Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Dariya313
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 12
#1

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

08.10.2011, 08:00. Просмотров 495. Ответов 6
Метки нет (Все метки)

Файл содержит сведения из телефонного справочника организации: название подразделения, фамилия, имя, отчество и телефонный номер. Вывести список телефонный номеров задаваемого подразделения и определить их количество.
ПОМОГИТЕ ВЫВЕСТИ КОЛИЧЕСТВО И СПИСОК!
Pascal
1
2
3
4
5
6
7
8
9
10
11
Program File;
var F: text; Naz,Fio:string; Tel,n,k:integer;
Begin
k:=0;
Writeln('n');
Readln(n);
assign(F,'isx.txt');
Reset(F);
While Not EOF(F) do Begin
Readln(F,Naz,Fio,Tel);
if n>1 then k:=K+1;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2011, 08:00
Ответы с готовыми решениями:

Вывести упорядоченный список номеров столбцов и соответствующих им сумм
Пожалуйста срочно нужна помощь с заданием ... заранее большущее СПАСИБО !!! Задание Дана...

Вывести список номеров неуспевающих студентов и вычислить абсолютную успешность
Задача 2. В процессе обработки на ЭВМ аттестационного сведения группы необходим вывести список...

Определить и вывести в текстовый файл массив номеров позиций символов «а»
Определить файл fl.pas как типизированный файл из символов. Определить и вывести в текстовый файл...

Определить и вывести в текстовом файле массив номеров позиций символов "а"
Определить файл F1.pas как типизированный файл из символов. Определить и вывести в текстовом файле...

Вывести вначале элементы массива с нечетными номерами в порядке возрастания номеров, затем - элементы с четными в порядке убывания номеров
дан массив А размера N.вывести вначале элементы с нечетными номерами в порядке возрастания...

6
Puporev
Модератор
54405 / 41978 / 28996
Регистрация: 18.05.2008
Сообщений: 98,886
08.10.2011, 15:31 #2
А файл точно текстовый, а не типизированный файл записей?
Если текстовый, то как в нем записаны данные?
0
Dariya313
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 12
08.10.2011, 17:40  [ТС] #3
как я понимаю это текстовый файл! Вот что дано в задачи то я и написала! Получается, дан файл ,а из него нужно вывести на экран сведения которые в вопросе указаны!

Добавлено через 3 минуты
В файле ведь любая запись может быть! И цифры и символы и строки!
0
Puporev
Модератор
54405 / 41978 / 28996
Регистрация: 18.05.2008
Сообщений: 98,886
08.10.2011, 17:54 #4
Цитата Сообщение от Dariya313 Посмотреть сообщение
В файле ведь любая запись может быть! И цифры и символы и строки!
Естественно. Вот и спрашиваю как там написано все. Я-то думаю что файл типизированный, но Вам виднее.
0
Dariya313
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 12
09.10.2011, 09:37  [ТС] #5
Каким хоть способом ее начать решать подскажите?
0
Puporev
Модератор
54405 / 41978 / 28996
Регистрация: 18.05.2008
Сообщений: 98,886
09.10.2011, 10:14 #6
Цитата Сообщение от Dariya313 Посмотреть сообщение
Каким хоть способом ее начать
Так вот это как раз и зависит от того какой файл и как он записан.
Вот как выглядит пример похожей программы с типизированным файлом
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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
program telefon;
uses
  crt;
type
  telephone = record
    fam,name,adr,num: string[30];
  end;
var
  i,k,n: integer;
  p: telephone;
  st: string;
  f: file of telephone;
  b:boolean;
begin
  clrscr;
  assign(f,'telefon');
  rewrite(f);
  write('wwedite kol-wo nomerow: ');
  readln(n);
  for i:= 1 to n do
  begin
    clrscr;
    writeln('*** Zapis No ',i,' ***');
    write('wwedite familiyu: ');
    readln(p.fam);
    write('wwedite imya: ');
    readln(p.name);
    write('wwedite adress: ');
    readln(p.adr);
    write('wwedite telefon: ');
    readln(p.num);
    write(f,p);
  end;
  close(f);
  clrscr;
  writeln('*** Wiberite parametr dlya poiska: ');
  writeln('1 - familia');
  writeln('2 - imya');
  writeln('3 - adress');
  writeln('4 - telefon');
  writeln('5 - pokazat spisok');
  writeln('6 - exid');
  write('Wash wibor: ');
  readln(k);
  case k of
    1: begin
         clrscr;
         write('Wwedite familiyu: ');
         readln(st);
         writeln('------------------------------------------------------------');
         writeln('|   familiaя   |   imja я    |  adres       |  telefon     |');
         writeln('------------------------------------------------------------');
         reset(f);
         b:=false;
         while not eof(f) do
          begin
           read(f,p);
           if p.fam=st then
            begin
             b:=true;
             gotoXY(1,whereY);  write('| ',p.fam);
             gotoXY(16,whereY); write('| ',p.name);
             gotoXY(30,whereY); write('| ',p.adr);
             gotoXY(45,whereY); write('| ',p.num);
             gotoXY(60,whereY); write('| ');
             writeln;
            end;
          end;
         writeln('------------------------------------------------------------');
         if not b then writeln('Takoj familii net!');
         close(f);
         readkey;
       end;
    2: begin
         clrscr;
         reset(f);
         write('Wwedite imya: ');
         readln(st);
         writeln('------------------------------------------------------------');
         writeln('|   familiaя   |   imja я    |  adres       |  telefon     |');
         writeln('------------------------------------------------------------')
         b:=false;
         while not eof(f) do
          begin
           read(f,p);
           if p.name=st then
            begin
             b:=true;
             gotoXY(1,whereY);  write('| ',p.fam);
             gotoXY(16,whereY); write('| ',p.name);
             gotoXY(30,whereY); write('| ',p.adr);
             gotoXY(45,whereY); write('| ',p.num);
             gotoXY(60,whereY); write('| ');
             writeln;
             end;
          end;
         writeln('------------------------------------------------------------');
         if not b then writeln('Takogo imeni net!');
         clode(f);
         readkey;
       end;
    3: begin
         clrscr;
         reset(f);
         write('Wwedite adress: ');
         readln(st);
         writeln('***********************');
         while not eof(f) do
           if a[i].adr=st then
             writeln('------------------------------------------------------------');
             writeln('|   familiaя   |   imja я    |  adres       |  telefon     |');
             writeln('------------------------------------------------------------');
             begin
             gotoXY(1,whereY);  write('| ',a[i].fam);
             gotoXY(16,whereY); write('| ',a[i].name);
             gotoXY(30,whereY); write('| ',a[i].adr);
             gotoXY(45,whereY); write('| ',a[i].num);
             gotoXY(60,whereY); write('| ');
             writeln;
             end;
             writeln('------------------------------------------------------------');
         close(f);
         readkey;
       end;
    4: begin
         clrscr;
         reset(f);
         write('Wwedite nomer: ');
         readln(st);
         writeln('***********************');
         while not eof(f) do
           if a[i].num=st then
             writeln('------------------------------------------------------------');
             writeln('|   familiaя   |   imja я    |  adres       |  telefon     |');
             writeln('------------------------------------------------------------');
             begin
             gotoXY(1,whereY);  write('| ',a[i].fam);
             gotoXY(16,whereY); write('| ',a[i].name);
             gotoXY(30,whereY); write('| ',a[i].adr);
             gotoXY(45,whereY); write('| ',a[i].num);
             gotoXY(60,whereY); write('| ');
             writeln;
             end;
             writeln('------------------------------------------------------------');
         close(f);
         readkey;
       end;
    5: begin
         clrscr;
         reset(f);
         writeln('spisok polzovatelei:':30);
         writeln;
         writeln('------------------------------------------------------');
         writeln('|    familiaя   |  imjaя    |  adres  |  telefon     |');
         writeln('------------------------------------------------------');
         while not eof(f) do
         begin
           gotoXY(1,whereY);  write('| ',a[i].fam);
           gotoXY(17,whereY); write('| ',a[i].name);
           gotoXY(29,whereY); write('| ',a[i].adr);
           gotoXY(41,whereY); write('| ',a[i].num);
           gotoXY(54,whereY); write('| ');
           writeln;
         end;
         writeln('------------------------------------------------------');
         write('Press Enter...');
         close(f);
         readln
       end;
    6:
      end;
    end.
Добавлено через 2 минуты
Вы за то время что тут ноете могли бы в Поиске по запросам Записи найти кучу похожих программ и с текстовыми и типизированными файлами.

Добавлено через 3 минуты
Сейчас, напишу с текстовым файлом, чувствую Вы из категории людей, что ни украсть ни покараулить, только сопли размазывать.

Добавлено через 52 секунды
За это время хотя бы исходный файл сделали и в тему скинули, а то и это за Вас нужно делать.

Добавлено через 5 минут
Кстати на какую хоть тему задача, просто на файлы или на файлы и записи(record)?

Добавлено через 16 минут
Вот самый простой вариант, не знаю по теме или нет, но условию задачи соответствует.
Создаете файл в папке с программой примерно такого содержания
Код
podr1 ivanov ivan ivanovich 1234567
podr2 ivanova anna ivanovna 1234589
podr1 petrov ivan petrovich 1255567
podr2 repin petr semenovich 5674567
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
uses crt;
var f:text;
    s,p:string;
    k:byte;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
write('Введите название подразделения: ');
readln(p);
writeln('Список телефонов подразделения ',p);
k:=0;
while not eof(f) do
 begin
  readln(f,s);{читаем строки}
  if copy(s,1,pos(' ',s)-1)=p then{смотрим первое слово, если нужнеое, то}
   begin
    while pos(' ',s)>0 do{удаляем все слова до последнего пробела включительно}
    delete(s,1,pos(' ',s));
    writeln(s);{выводим номер}
    k:=k+1;{}
   end;
 end;
if k=0 then write('Телефонов этого подразделения нет')
else write('Их количество=',k);
close(f);
readln
end.
1
Dariya313
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 12
09.10.2011, 10:39  [ТС] #7
Эта задача на ФАЙЛЫ а не на записи(если бы была на записи я бы уточнила!)!!!!!!!!!!!! И я тут не ною а помощи прошу! Могли бы и не отвечать в таком случае!!!!
0
09.10.2011, 10:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2011, 10:39

Выполняет группировку по полю Тип подразделения таблице ПОДРАЗДЕЛЕНИЯ. Для каждой группы вычисляет минимальное и макс
8) Выполняет группировку по полю Тип подразделения таблице ПОДРАЗДЕЛЕНИЯ. Для каждой группы...

Вывести упорядоченный список номеров столбцов матрицы и соответствующих им сумм
Определить сумму чётных элементов в каждом столбце матрицы и упорядочить номера столбцов по...

В списке выбора ComboBox1 содержится список городов. При выборе города в поле Edit1 вывести телефонный код
19. В списке выбора ComboBox1 содержится список городов. При выборе города в поле Edit1 вывести...


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

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

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