Тема: Работа с массивом из записей
Цель работы: 1.Научиться описывать записи с заданной структурой 2.Освоить приемы ввода данных по полям записи Задание: Дан список, содержащий не менее 4 записей, каждая из которых имеет структуру: Ф.И.О. Домашний адрес Номер участка Год тип строка тип строка тип рождения 15 символов 30 символов integer 1900..2000 Разработать программу, выполняющую следующие функции: - ввод данного списка в массив записей; - вывод массива записей на экран; - поиск всех граждан, родившихся до 1970 года и фамилия которых начинается с буквы " М" с выводом найденных записей на экран.
Приложение Е (продолжение) Листинг программы №5 Program Lab5; Uses crt; Type T_year=record Year:1900..2000; end; tzap=record fio:string[15]; Adress:string[30]; Number:integer; year:integer; end; Var Spis:array[1..50]of tzap; N,i:byte; isk_fio:string[15]; Begin Write(' Введите число записей в списке N ='); Readln(N); Writeln('Введите список по полям – каждое поле с новой строки'); For i:=1 to N do With Spis[i] do begin Write('Ф.И.О. – 15 символов '); Readln(fio); Write('Домашний адрес - 30 символов'); Readln(adress); Write('Номер участка '); Readln(number); Write('Год рождения с 1900 по 2000'); Readln(year); end; writeln('Введите искомую фамилию на букву М - 15 символов'); Readln(isk_fio); for i:=1 to N do with Spis[i] do if fio[1]='М' then begin writeln(' Фамилия найдена '); writeln(fio,'',Adress,'',number,'',year); readkey; halt; end; writeln(' Фамилия не найдена '); readkey; end.
Приложение Е (продолжение)
|
