Readln (God, Alg, Fiz, inf)

End;

writeln ('Список відмінників');

For і:=1 То 5 Do

with cl ass[і], Ball Do

If (Alg+Fiz+lnf) >= 30 Then Writeln (Name);

End.

3. Надрукуйте список учнів, прізвища яких починаються з лі­тери А, та їх оцінки.

4. Надрукуйте список учнів, які мають оцінки не нижче 8, та прізвища яких починаються з літер В і Г.

5. Обчисліть середній бал класу і виведіть список учнів, які мають середній бал, вищий за середній бал класу.

6. Надрукуйте список учнів, упорядкований за убуванням серед­нього балу. Для розв'язування завдання найпростіше використати такий прийом: для кожної можливої суми балів К від максимального значення (3x12=36) до мінімального (3x1=3) переглянути весь масив записів, і, якщо сума елементів поля за­пису Ball дорівнює К, вивести на друк значення поля Name.

For К:=36 DownTo 3 Do

For i:=l To 5 Do

with Cl ass[i], Ball Do

If (Alg+Fiz+lnf) = К Then writeln (Name);

Таким чином ми отримаємо на екрані рейтинг учнів, але сам масив записів в пам'яті комп'ютера залишається не- упорядкованим.

Опрацювати завдання.

“Комбіновані типи. Записи”

1. Назвіть компоненти запису та їх типи:

Type Book = Record

Nazv: String[45];

God: 1000..2000;

Price: Real;

End;

2. Опишіть запис, який містить таку інформацію:

· назву підприємства-виробника;

· номер магазину- споживача;

· назви товарів, які виробляються, 50 найменувань;

· ціна кожного товару за 1 штуку в гривнях;

· кількість кожного товару в штуках.

3. Існує опис:

Type Fam = Record

Glava: String[15];

Age: 18..100;

Child: Array[1..2] of Record

Name: Stri ng[15];

Godr:1900..2000

End

End

var A, в: Fam;

Занесіть вихідну інформацію до змінної А та продублюйте її до змінної В.

4. Відомо, що

Type Time = Record

Hour:0..23;

Min, Sec:0..59 End;

var T1,T2:Time;

Напишіть програму, яка вводить значення полів запису Т1 і Т2 та друкує True, якщо Т1 передує Т2, і друкує False у протилеж­ному випадку.

5. Дано опис типу запису, який містить відомості про книгу:

Type Kniga = Record

Nazva: String [50];

Avtor: String [20];

Rik, Kilk: Integer; vart: Real;

End;

Опишіть масив Katalog записів типу Kniga, призначений для збереження каталога книжкового магазину (5 найменувань).

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

7. Запишіть фрагмент для пошуку в масиві Katalog книги автора 'М.Рильський'. Якщо є, виведіть на друк всі відомості про кни­гу, якщо немає - виведіть повідомлення 'Такої книги немає'.

8. Запишіть фрагмент для виведення на друк списку всіх книг, ви­даних не раніше 2000 року.

9. Запишіть фрагмент для виведення на друк списку всіх книг, ва­ртість яких не менше 10 грн.

10. Запишіть фрагмент для виведення на друк списку всіх книг з ука­заниям вартості кожної книги і кількості її наявних примірників.

11. Запишіть фрагмент для виведення на друк списку всіх книг з указаниям загальної вартості всіх екземплярів кожної книги.

12. Практичне завдання. Дані назви 5 моделей персональних комп'ютерів. Для кожного ПК відомі обсяг пам'яті, вартість і швидкодія. Складіть програму, яка вводить дані про всі ПК, визначає, який ПК має мінімальне співвідношення вар­тість/швидкодія, і друкує назву ПК та його характеристики.