12.05.2012, 00:13 | #1 (permalink) |
Новичок
Регистрация: 11.05.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 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.Сделать так, чтобы можно было вводить разное число адвокатов и нотариусов. |
12.05.2012, 00:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, ваша ваша проблема уже имеет решение на нашем форуме Помогите, пожалуйста, с задачей в C++ Помогите, пожалуйста, с задачей на массивы Помогите пожалуйста с задачей по C++ Помогите с задачей на С++ очень срочно нужно...пожалуйста |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|