Контрольні питання.
1. Який синтаксис опису структури?
2. Як розподіляється пам‘ять у структурі?
3. Як можна забезпечити доступ до елемента структури?
4. Як можна забезпечити доступ до елемента структури через
вказівник?
5. Як описати змінну структурованого типу?
6. Як описати в структурі змінну структурованого типу?
7. Що таке вкладені структури?
8. Як визначити розмір структури?
9. Що таке покажчики на структуру?
10. Що таке масив структур?
11. Що таке бітові поля?
12. Що таке об‘єднання?
Варіант 8.
1. Описати структуру з ім‘ям TOVAR, яка містить наступні поля:
Name – назва товару; Cost_Z – ціна закупки товару; Cost_P - ціна
продажу товари.
Quantity –кількість одиниць товару; Pributok – прибуток.
2. Написати програму, що використовує дану структуру і виконує наступні
дії:
- вводить з клавіатури масив даних SHOP, що складається з N змінних
типу TOVAR і обчислює прибуток по кожному товару;
- Впорядковує записи по зростанню поля Pributok;
- Виводить на екран всі товари, які мають найбільший прибуток.
до ть будьласка, дякую!
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение:
program zz1;
var n,n1,n2,n3:integer; //задаем переменные
begin
write('введите заданное трехзначное число');
read(n); //вводим с клавиатуры заданное трехзначное число
n1:=n div 100; //находим первую цифру числа
n2:=(n mod 100) div 10; //находим вторую цифру числа
n3:=n mod 10; //находим третью цифру числа
if (n1 mod 2 = 0)and(n2 mod 2 = 0)and(n3 mod 2 = 0) //проверяем, если все цифры четные, то выводим один ответ, если нет, то другой
then write('все цифры числа четные ') else write('некоторые цифры числа не четные');
Объяснение: