Тема: Работа с массивом из записей

 

Цель работы:

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.

 

 

Приложение Е (продолжение)