Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
proger_noob
0 / 0 / 0
Регистрация: 31.01.2012
Сообщений: 53
1

Записи и типизированые файлы. Структура: ФИО, год установки телефона, номер телефона

02.05.2012, 17:13. Просмотров 1200. Ответов 3
Метки нет (Все метки)

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

Добавлено через 21 час 57 минут
Помогите решить пожалуйста
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.05.2012, 17:13
Ответы с готовыми решениями:

Записи и типизированые файлы. Структура: ФИО абонента, год установки, номер телефона
Создать файл, содержащий сведения о телефонах абонентов. Каждая запись имеет поля: фамилия...

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

Структура: Описать запись с именем Note, содержащую следующие поля: фамилия, имя; номер телефона; день рождения...
Описать запись с именем Note, содержащую следующие поля: фамилия, имя; номер телефона; день...

Записи и файлы. Предметная область - Факультатив. Структура: Наименование, ФИО проводящего, день недели, время
1. Записи. Составить программу, которая позволяет вводить сведения о предметной области, заносит...

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

3
КонецСвета
Почетный модератор
7944 / 3915 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.05.2012, 17:51 2
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
uses crt;
const line='--------------------------------------------------------------------';
      shap='|     Фамилия, имя, отчество     | Год установки | Номер телефона  |';
      tg=2012;
 
type abonents = record
     fio:  string[30];
     god:  integer;
     tel:  string[9];
     end;
 
var f: file of abonents; v: byte;
 
procedure Vvod (var ff: file of abonents);
var i,n: integer; a: abonents;
begin
clrscr;
assign(ff,'C:\BD.dta');
rewrite(ff);
write('Количество абонентов: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with a do
         begin
         write('Фамилия, имя, отчество: '); readln(fio);
         repeat
         write('Год установки: '); readln(god);
         until (god>1950) and (god<=tg);
         repeat
         write('Телефон (000-00-00): '); readln(tel);
         until (length(tel)=9) and ((tel[4]='-') and (tel[7]='-'));
         write(ff,a);
         end;
close (ff);
end;
 
procedure Vyvod (ff: file of abonents);
var a: abonents;
begin
clrscr;
assign(ff,'C:\BD.dta');
reset(ff);
writeln('Сведения об абонентах ');
writeln(line);
writeln(shap);
writeln(line);
while not (eof(ff)) do
      begin
      read(ff,a);
      with a do writeln('|',fio:30,'|':3,god:10,'|':6,tel:13,'|':5);
      writeln(line);
      end;
writeln(line);
close (ff);
end;
 
function Count (ff: file of abonents): integer;
var a: abonents; k: byte; gg: integer;
begin
k:=0;
assign(ff,'C:\BD.dta');
reset(ff);
write('Укажите год для подсчета установок в заданном году: '); readln(gg);
while not (eof(ff)) do
      begin
      read(ff,a);
      with a do if god=gg then inc(k);
      end;
Count:=k;
close (ff);
end;
 
 
begin
v:=1;
repeat
writeln('0-завершение работы');
writeln('1-ввод данных');
writeln('2-вывод данных');
writeln('3-подсчет установок в заданном году');
readln(v);
case v of
1: Vvod (f);
2: Vyvod (f);
3: writeln('Количество телефонов, установленных в заданном году: ',Count (f));
end;
until v=0;
end.
1
proger_noob
0 / 0 / 0
Регистрация: 31.01.2012
Сообщений: 53
02.05.2012, 17:59  [ТС] 3
Спасибо за решение, а по проще никак нельзя? было бы хорошо если бы по проще сделали, Спасибо еще раз
0
КонецСвета
Почетный модератор
7944 / 3915 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.05.2012, 18:03 4
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
uses crt;
 
type abonents = record
     fio:  string[30];
     god:  integer;
     tel:  string[9];
     end;
 
var f: file of abonents;
    i,n,k,g: integer;
    a: abonents;
 
begin
assign(f,'C:\BD.dta');
rewrite(f);
write('Количество абонентов: '); readln(n);
writeln('Внесите данные:');
for i:=1 to n do
    with a do
         begin
         write('Фамилия, имя, отчество: '); readln(fio);
         write('Год установки: '); readln(god);
         write('Телефон: '); readln(tel);
         write(f,a);
         end;
reset(f);
write('Укажите год для подсчета установок в заданном году: ');
readln(g);
while not (eof(f)) do
      begin
      read(f,a);
      with a do if god=g then inc(k);
      end;
writeln('Количество телефонов, установленных в заданном году: ',k);
end.
1
02.05.2012, 18:03
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.05.2012, 18:03

Составить программу, которая позволяет найти в телефонном справочнике по номеру телефона ФИО и адрес абонента
Здравствуйте, Уважаемые. Очень срочно нужна Ваша помощь, в решении двух задач. 2.В среде...

Составить программу, в которой описывается структура из полей: Фамилия, Номер телефона, Год рождения
Составить программу, в которой описывается структура из полей: Фамилия, Номер телефона, Год...

Составить программу, в которой описывается структура из полей: Фамилия, Номер телефона, Год рождения
Составить программу, в которой описывается структура из полей: Фамилия, Номер телефона, Год...


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

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

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