Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Kesha777
1 / 1 / 0
Регистрация: 28.10.2017
Сообщений: 168
1

В файле содержатся адреса n человек. Вывести фамилии людей, живущих в разных городах по одинаковым адресам

23.12.2017, 21:12. Просмотров 386. Ответов 1
Метки нет (Все метки)

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

Вот что смог сам, но косяк, выводит неверно. Отладьте или напиши заново, пожалуйста.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
const
 way='f_file';
 waytxt='txt_file.txt';
type
 el=record
     surname,gorod,adres:string[40];
    end;
 arr_el=array [1..40] of el;
 ft=file of el;
var
 f:ft;
 r1:el;
 r:arr_el;
 t:text;
 str1:string;
surname,gorod,adres:string[40];
 i,j,q:integer;
 b,b1:boolean;
 
Begin
 i:=0;
 assign(f,way);
 rewrite(f);
 assign(t,waytxt);
 reset(t);
 while not eof(t) do
  begin
   writeln;
   inc(i);
   readln(t,surname);
   readln(t,gorod);
   readln(t,adres);
   write('Familiya: ');
   write(surname,' ');
   write('Gorod: ');
   write(gorod,' ');
   write('Adres: ');
   writeln(adres);
   r[i].surname:=surname;
   r[i].gorod:=gorod;
   r[i].adres:=adres;
   write(f,r[i]);
  end;
 close(t);
 close(f);
 writeln;
 writeln('Familii:'); writeln;
 assign(t,'newtxt.txt');
 rewrite(t);
 for j:=1 to i-1 do
  begin
   b1:=true;
   for q:=1 to j-1 do
    if r[j].gorod=r[q].gorod then b1:=false;
   if b1 then
    begin
     b:=false;
     q:=j;
     repeat
      inc(q);
      if r[j].gorod=r[q].gorod then b:=true;
     until b or (q=i);
     if b then
      begin
       writeln(t,r[j].surname,' ');
       writeln(t,r[j].gorod);
       writeln(t,r[j].adres);
       writeln(t);
       write('Familiya: ');
       write(r[j].surname,' ');
       write('Gorod: ');
       write(r[j].gorod,' ');
       write('Adres: ');
       writeln(r[j].adres);
       writeln;
       for q:=j+1 to i do
        if r[j].gorod=r[q].gorod then
         begin
          writeln(t,r[q].surname,' ');
          writeln(t,r[q].gorod);
          writeln(t,r[q].adres);
          writeln(t);
          write('Familiya: ');
          write(r[q].surname,' ');
          write('Gorod: ');
          write(r[j].gorod,' ');
          write('Adres: ');
          writeln(r[q].adres);
          writeln;
         end;
      end;              
    end
  end;
 close(t);
 readln;
End.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.12.2017, 21:12
Ответы с готовыми решениями:

Найдите в базе всех жителей, живущих в разных городах по одинаковому адресу.
Есть база данных по жителям красноярского края, содержащая город, улицу, номер дома и квартиры....

Вывести фамилии людей, живущих в разных городах по одинаковым адресам
В файле содержаться адреса n человек. Вывести фамилии людей, живущих в разных городах по одинаковым...

Структура: Вывести фамилии людей, живущих в разных городах по одинаковым адресам
Добрый день! Есть задачка: Даны адреса n человек ( n = const). Вывести фамилии людей, живущих в...

Вывести фамилии людей, живущих в разных городах по одинаковым адресам или сообщить, что таких людей нет
Задача:В файле содержаться адреса n человек. Вывести фамилии людей, живущих в разных городах по...

Поиск фамилий двух людей, живущих в разных городах по одному адресу
составьте программу,осуществляющую поиск фамилий двух людей, живущих в разных городах по одному...

1
blogerjackpraid
0 / 0 / 3
Регистрация: 04.11.2016
Сообщений: 58
30.12.2017, 12:33 2
прикрепи файл, если не секрет и не зашифрован)
мне просто нужно знать как ты ориентируешься в файле
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2017, 12:33

Напечатать фамилии двух (любых) жителей из списка S, живущих в разных городах по одинаковому адресу
Доброе время суток у меня трабл с прогой :wall: вот задание type stroka=packed array of...

Известны фамилии, адреса и телефоны в формате XXX-XX-XX 20-ти человек. Найти фамилии и адреса людей, чей телеф
Известны фамилии, адреса и телефоны в формате XXX-XX-XX 20-ти человек. Найти фамилии и адреса...

Запись. Известны фамилии,адреса и телефоны 25-ти человек. Найти фамилии и адреса людей, чей телефон начинается с цифры 3
1)Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru