Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
selenka
0 / 0 / 0
Регистрация: 14.04.2012
Сообщений: 16
#1

Создать файл, содержащий сведения о телефонах абонентов

22.07.2009, 13:19. Просмотров 1334. Ответов 1
Метки нет (Все метки)

Создать файл, содержащий сведения о телефонах абонентов. Каждая записаь имеет поля -- фамилия абонента, года установки телефона, номер телефона.
По вводимой фамилии абонента выдать номер телефона. Определить количество установленных телефонов с хххх года. Номер года вводится с терминала.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.07.2009, 13:19
Ответы с готовыми решениями:

Создать файл, содержащий сведения о количестве изделий, собранных сборщиками цеха за неделю
3 А. Создать файл, содержащий сведения о количестве изделий, собранных...

Создать массив записей, содержащий сведения о студентах группы
Создать массив записей, содержащий сведения о студентах группы. Каждая запись...

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

Создать файл toys, содержащий сведения об игрушках
Люди помогите,а.... первые темы по этому паскалю сделала, а дальше всё... не...

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

1
Puporev
Модератор
54354 / 41945 / 28978
Регистрация: 18.05.2008
Сообщений: 98,806
22.07.2009, 15:08 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Программа написана и откомпилирована в Турбо Паскале, думаю подправить под Free для Вас не составит труда.
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
uses crt;{модуль для работы с клавиатурой и экраном, возможно В Free называется не так}
type Tabonent=record
              fam:string[20];
              god:word;
              nom:string[10];
              end;
var f:file of Tabonent;
    ab:Tabonent;
    fm:string[20];
    gd:word;
    i,k,b:integer;
    c:char;
begin
clrscr;
assign(f,'abonent');
rewrite(f);
writeln('Введите данные об абонентах, окончание ввода Esc:');
i:=0;
repeat
i:=i+1;
writeln('Абонент ',i);
write(' Введите фамилию: ');readln(ab.fam);
repeat
write(' Введите год установки телефона (1950-2009):');readln(ab.god);{интервал годов можете изменить}
until (ab.god>=1950)and(ab.god<=2009);
write(' Введите номер телефона: ');readln(ab.nom);
write(f,ab);{заносим запись в файл}
c:=readkey;{ждем нажатия клавиши}
until c=#27;{если Esc, заканчиваем ввод записей}
clrscr;
write('Введите фамилию для поиска:');
readln(fm);
b:=0;
reset(f);
while not eof(f) do
 begin
  read(f,ab);
  if ab.fam=fm then
   begin
    b:=1;
    writeln(ab.nom);
   end;
 end;
if b=0 then writeln('Такой фамилии нет!');
close(f);
reset(f);
repeat
write('Введите искомый год начала установок телефонов(1950-2009):');
readln(gd);
until (gd>=1950)and(gd<=2009);
k:=0;
b:=0;
while not eof(f) do
 begin
  read(f,ab);
  if ab.god>=gd then
   begin
    k:=k+1;
    b:=1;
   end;
 end;
if b=0 then writeln('После ',gd,' года телефоны не устанавливались')
else writeln('Количество телефонов, установленных с ',gd,' года=',k);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.07.2009, 15:08

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

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

Создать файл содержащий сведения о сдаче студентами первого курса сессии
Создать файл содержащий сведения о сдаче студентами первого курса сессии....


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

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

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