Masha25

Создать массив записей по заданной структуре. Количество записей не больше 10. Реализовать редактирование записей (изменение, добавление, удаление). Исходные данные должны вводиться с проверкой на область допустимых значений. Все действия пользователя должны контролироваться и снабжаться осмысленными сообщениями. Реализовать в соответствии со своим вариантом запрос и вывод содержимого записи по определенным ключам.


Предусмотреть вывод значений для полей элементов массива записей по следующим ключам: по адресу юридической консультации, по названию юридической консультации, по фамилии, имени, отчеству (Ф.И.О.) адвоката или нотариуса, по номеру телефона адвоката или нотариуса.
Запрос:
Определить, сколько юридических консультаций находится в определенном районе.

Вот мой программный код:

Program rec;
uses crt;
const nMAX=10;
type urcons=record
nazv: string[20];
adres: record
rn,ul :string[15];
dom :integer;
end;
dan_not: record
fio:string[25];
tel: longint;
end;
dan_ad: record
fio:string[25];
tel: longint;
end;
end;
var consult: array [1.. nMAX] of urcons;
n,I :integer;
BEGIN
Writeln (\'введите количество консультаций до\',nMAX,\' \' );
READln(n);
for i:= 1 to n do
with consult[I] do
begin
writeln (\'введите название \',i,\' консультации:\');
readln(nazv);
writeln (\'введите адрес \',i,\' консультации:\');
writeln (\'введите район: \');
readln (adres.rn);
writeln (\'введите улицу:\');
readln ( adres.ul);
writeln (\'введите номер дома: \');
readln(adres.dom);
writeln (\'введите данные нотариуса \',i,\' консультации:\');
writeln (\'введите фио: \');
readln (dan_not.fio);
writeln (\'введите номер телефона нотариуса: \');
readln(dan_not.tel);
writeln (\'введите данные адвоката \',i,\' консультации:\');
writeln (\'введите фио: \');
readln ( dan_ad.fio);
writeln (\'введите номер телефона адвоката: \');
readln( dan_ad.tel);
end;
clrscr;
for i:= 1 to n do
with consult[I] do
begin
writeln (\' ----------юридическая консультация :\',nazv,\'--------------------\');
writeln (\'адрес: \');
writeln (\'район: \',adres.rn);
writeln (\'улица:\',adres.ul);
writeln (\'дом: \',adres.dom);
writeln (\'нотариус:\',dan_not.fio);
writeln (\'телефон: \',dan_not.tel);
writeln (\'адвокат:\',dan_ad.fio);
writeln (\'телефон: \',dan_ad.tel);

writeln (\' --------------------------------------------------------------\');

end;
end.



Необходимо:
1.Сделать всё с процедурами. (procedure vvoda, procedure vyvoda, procedure spravka)
2.Написать процедуру (spravka) для определения количества юридических консультаций находящихся в определенном районе.
3.Сделать так, чтобы можно было вводить разное число адвокатов и нотариусов.

Вложения

структура.docx (24.4 Кб, 215 просмотров)