Створення масивів записів

Приклад 15.Створити масив записів з полями: прізвище учня і три оцінки. Вивести прізвища учнів, які мають хоч одну двійку.

programpr1;

uses crt;

const n=3;

туре

zap=record

fio:string[40];

oz1,oz2,oz3:integer;

end;

mas=array[1..n] of zap;

var

a:mas;

i,c:integer;

procedure st_zap (var s:zap); {Створення запису}

begin

with s do

begin

write('Введітьпрізвищеучня:');readln(fio);

write('Введітьоцінку 1:');readln(oz1);

write('Введітьоцінку 2:');readln(oz2);

write('Введітьоцінку 3:');readln(oz3);

end;

end;

procedure druk_zap(var s:zap); {Друк запису}

begin

with s do

writeln(fio:40,oz1:2,oz2:2,oz3:2);

end;

procedure st_mas; {Створення масиву}

var i:integer;

begin

for i:=1 to n do

begin

st_zap(a[i]);

end;

end;

procedure poisk(c:integer);{Обробка масиву}

var i,d:integer;

begin

d:=0;

for i:=1 to n do

begin

with a[i] do

begin

if (oz1=2) or (oz2=2) or (oz3=2) then writeln('Двійкимає:',fio)

else d:=d+1;

end;

end;

if (d=3) then writeln('Учнів з двійками немає');

end;

Begin

clrscr;

writeln('Кількістьучнів - 3');

st_mas;

writeln;

poisk(c);

readln;

end.

Завдання

1. Створити масив записів, який містить про учнів: прізвище, клас, номер школи і додатково оцінки за останню четверть (середній бал). Вияснити скільки учнів мають оцінку не нижчу за 4.

2. Створити масив записів, який містить дані про книги. Дані про кожну книгу-це прізвище автора, назва книги та рік видання. Вивести на екран всі книги вказаного автора та їх роки видання.

3. Створити масив записів, який містить дані про автомобілі, що складаються з його марки, номера та прізвища господаря. Знайти прізвища господарів та номер автомобіля певної марки.

4. Створити масив записів з полями: прізвище учня, число та місяць народження. Надрукувати список учнів, які народилися влітку.

5. Створити масив записів, який містить різні дати. Кожна з цих дат складається з числа, місяця та року. Знайти дату з найменшим номером року.

6. Створити масив записів, який містить дані про книги. Дані про кожну книгу – це прізвище автора, назва книги та рік видання. Визначити чи є книга з назвою”Інформатика”, якщо є, то повідомити прізвище автора та рік видання.

7. Створити масив записів, який містить дані про куби: розмір кожного куба (довжину ребра), його колір та матеріал. Знайти кількість деревяних кубів.

8. Створити масив записів, який містить дані про учнів школи. Поля запису: прізвище, ім’я, клас та номер школи. Надрукувати дані про учня, прізвище якого найкоротше.

9. Створити масив записівз полями: прізвище учня, число та місяць народження. Надрукувати список учнів, упорядкований по місяцю народження.

10. Створити масив записів, який містить про учнів: прізвище, клас, номер школи і гурток, в роботі якого учень приймає участь. Вияснити скільки учнів і хто саме відвідують вказаний гурток.

11. Створити масив записів, який містить дані про куби: розмір кожного куба (довжину ребра), його колір та матеріал. Знайти кількість кубів з ребром рівним 5.

12. Створити масив записівз полями: назва книги, автор та рік видання. Надрукувати дані про книги, які видані з 1960 року.

13. На Олімпійських Іграх в Сіднеї приймали участь гімнасти з різних країн. Відомості про кожного складаються з імені, прізвища, країни та кількості балів. Створити масив записів, який містить відомості про спортсменів. Вивести на екран дані про представників України.

14. В змаганнях зі спортивної гімнастики приймають участь декілька спортсменів. Вони виконують вправи на 4 снарядах. Створити масив записів,що містить відомості про кожного спортсмена: прізвище та оцінки на кожному снаряді. Вивести прізвища тих спортсменів, які в сумі отримали найбільще балів.

15. Створити масив записів, що зберігає координати точки xi, yi . Знайти всі точки, які найменше віддалені від даної точки М.