VPF::задачка - Форум программистов

denks

Дата 1.12.2006, 19:34 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 16.4.2006

Репутация: нет
Всего: нет

M
Girder

Название темы - должно отражаеть её суть!
PS: Тема закрыта!

Помогите разобрать следующую задачу. Мы вводим данные нескольких людей (имя,город,улица,дом,квартира).
Далее необходимо вывести на экран имена людей которые живут в разных городах но имеют одинаковый адрес. Написал примерную программу. но возникает какая-то ошибка. помогите пожалуйста в решении этой задачи. Спасибо.

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  Windows;

const n=5;
    Type a=record
                 city,street:string;house,flat:integer;
                 name:string;
                 end;
         r=record
         adr:a;
         end;

     var sotr:array[1..n] of r;
         i:integer;
         c:string;
         s:string;
         h:integer;
         f:integer;
begin
writeln('vvedite name,city,street,house and flat');
for i:=1 to n do
         readln( sotr[i].adr.name,sotr[i].adr.city,sotr[i].adr.street,sotr[i].adr.house,sotr[i].adr.flat);
         c:=sotr[1].adr.city;
         s:=sotr[1].adr.street;
         h:=sotr[1].adr.house;
         f:=sotr[1].adr.flat;
         for i:=2 to n do  begin
if sotr[i].adr.city <> c then if sotr[i].adr.street=s then if sotr[i].adr.house=h then if sotr[i].adr.flat=f then writeln(sotr[i].adr.name);
readln;
end;
end.

Poseidon

Дата 1.12.2006, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Ужас!

Ну да ладно, я сегодня добрый. Держи smile

Код


program Project2;

{$APPTYPE CONSOLE}

uses
  Windows;
label start;

const n=5;

Type a=record
    city,street:string;
    house,flat:integer;
    name:string;
    end;

r=record
  adr:a;
  end;

var sotr:array[1..n] of r;
i, x:integer;

begin
start:
writeln('vvedite name,city,street,house and flat');
for i:=1 to n do
  begin
  readln(sotr[i].adr.name);
  readln (sotr[i].adr.city);
  readln (sotr[i].adr.street);
  readln (sotr[i].adr.house);
  readln (sotr[i].adr.flat);
  end;

for i:=1 to n do
  for x:= i+1 to n do
  begin
  if (sotr[i].adr.city <> sotr[x].adr.city)
  and(sotr[i].adr.street = sotr[x].adr.street)
  and(sotr[i].adr.house = sotr[x].adr.house)
  and(sotr[i].adr.flat = sotr[x].adr.flat)
  then writeln(sotr[i].adr.name + '&' + sotr[x].adr.name);
  end;
goto start;
end.

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

denks

Дата 1.12.2006, 21:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 16.4.2006

Репутация: нет
Всего: нет

Всё равно у меня ошибка выскакивает. не могу понять почему

NightmareZ

Дата 1.12.2006, 22:04 (ссылка)

(нет голосов)

Загрузка ...

[хакер]

Профиль
Группа: Участник
Сообщений: 699
Регистрация: 10.8.2006

Репутация: нет
Всего: 13

Цитата(denks @ 1.12.2006, 21:26

)

Всё равно у меня ошибка выскакивает. не могу понять почему

Ты бы хоть написал что за ошибка. Телепаты нынче в отпуске.

--------------------

NightmareZ.net - мой блог и сайт, мои проекты и прочий трэш
Ely-Art.ru - наша маленькая домашняя арт-студия
mugcraft.ru - кружки на любой вкус

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »