Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2008, 22:16   #1
IvanIvan
Новичок
Джуниор
 
Регистрация: 26.05.2008
Сообщений: 2
По умолчанию задача работает неправильно, подскажите!

Имеется список жителей ряда городов с их адресами.

Составить алгоритм и программу анализа данного списка с выводом фамилий
двух (или более) жителей , живущих вразных городах по одинаковым адресам.

Указания: 1)решить с использованием процедуры "ирония_судьбы".

2)в решении использовать тип данных ЗАПИСЬ с полями:

-Ф.И.О.,

-город,

-адрес:ЗАПИСЬ с полями:

-улица,

-дом,

-квартира



Program Adr;
uses Crt;
type
adres=record
init:string;
city,street,home,flat:string[20];
end;
var
a:array[1..100] of adres;
p:byte;
i:integer;

procedure adresswrite;
begin
clrscr;
writeln('Vvedite dannie o jitelax:');
writeln('Љ®«ЁзҐбвў® jiteley?');
readln(p);
for i:=1 to p do
begin
with a[i] do begin
writeln('F.I.O: ');
readln(init);
writeln('Gorod: ');
readln(city);
writeln('Adress: ');
writeln('Ulica:');
readln(street);
writeln('Dom: ');
readln(home);
writeln('Kvartira:');
readln(flat);
writeln('---------------')
end;
end;
end;

Procedure adressread;
var
g,j:integer;
begin
clrscr;
g:=0;
for i:=1 to p-1 do
for j:=i+1 to p do
begin
if (a[i].home=a[i+1].home) and (a[i].flat=a[i+1].flat) and (a[i].street=a[i+1].street) then
writeln('Odinakovie adresa u jiteley:');
writeln('jitel ',i);
writeln(a[i].init);
writeln('Gorod: ');
writeln(a[i].city);
writeln('Ulica: ');
writeln(a[i].street);
writeln('Dom: ');
writeln(a[i].home);
writeln('Kvartira: ');
writeln(a[i].flat);
writeln('*************');
g:=1;
end;
if g=0 then
writeln ('nety');

end;
begin
adresswrite;
adressread;
readkey;
end.


заранее благодарен за ответ!
IvanIvan вне форума Ответить с цитированием
Старый 26.05.2008, 22:21   #2
IvanIvan
Новичок
Джуниор
 
Регистрация: 26.05.2008
Сообщений: 2
По умолчанию

это в Паскале!
IvanIvan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите где ошибки? Не работает программа на Паскале ЯншинаВера Помощь студентам 1 21.05.2008 19:47
Скрипт неправильно работает aleksa76 JavaScript, Ajax 4 21.05.2008 17:47
неправильно выдаёт stringgrid chelsi Общие вопросы Delphi 3 30.04.2008 22:42
Подскажите почему не работает программа??? Danilyuk Помощь студентам 2 25.01.2008 10:15
Запрос неправильно работает... yulia БД в Delphi 0 27.05.2007 20:41