Program Errors;

Type Zap=Record A:lnteger;

B:Char

End;

Var X,Y,F: Zap; C:Char;

Begin Readln (C);

With X Do Begin A:=Ord(C);

B:=C End;

Zap:=X;

If X=Y Then Y:=F.P;

With Y Do Writeln (A,X)

End.

4. Опишіть змінну для збереження списку товарів іграшкового мага­зину як масив записів Маgazin:

5. Запишіть фрагмент програми, призначении для надання значень елементам масиву Magazin.

6. Знайдіть загальну вартість товарів в масиві Magazin.

7. Запишіть фрагмент програми, призначений для виведення на ек­ран списку товарів, подібного до наведеного в питанні 4 (значень полів записів, які є елементами масиву Magazin).

8. Запишіть фрагмент програми для пошуку в масиві записів, значен­ня поля Назва яких дорівнює 'Машина', і виведення всіх полів цих записів на екран.

9. Запишіть фрагмент програми для пошуку в масиві записів, значен­ня поля Ціна яких не більше 5 грн., і виведення всіх полів цих записів на екран.

10. Опишіть масив записів для збереження списку з 4 учнів у формі: Ім'я, вага, зріст. Запишіть оператори для введення значень еле­ментів масиву з клавіатури.

11. Знайдіть середнє арифметичне значень зросту учнів.

12. Визначте ім'я найлегшого учня.

7. Домашнє завдання.

1. Опрацювати конспект.

2. Виконати вправу “Учні”.

1. Задача. Скласти список навчальної групи з 5 учнів. Для кожно­го учня вказати рік народження та оцінки з фізики, алгебри, інформатики. Інформацію про кожного учня оформити у ви­гляді запису. Сукупність записів об'єднати в масив.

2. Проаналізуйте програму, яка забезпечує введення інформа­ції про 5 учнів. Результатом роботи програми є список відмінників.

Type PUPIL = Record

Name: Stri ng[20];

God: 1980..1990;

Ball: Record Alg,Fiz,lnf:l..12 End;

End;

Var Class: Array [1..5] of Pupil; і: integer;

Begin

For і:=1 To 5 Do

With Class[i], Ball Do Begin

write ('=>'); Readln (Name);