0 / 0 / 0
Регистрация: 31.01.2012
Сообщений: 53

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

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

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

Добавлено через 21 час 57 минут
Помогите решить пожалуйста
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.05.2012, 17:13
Ответы с готовыми решениями:

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

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

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

3
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.05.2012, 17:51
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
0 / 0 / 0
Регистрация: 31.01.2012
Сообщений: 53
02.05.2012, 17:59  [ТС]
Спасибо за решение, а по проще никак нельзя? было бы хорошо если бы по проще сделали, Спасибо еще раз
0
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
02.05.2012, 18:03
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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.05.2012, 18:03
Помогаю со студенческими работами здесь

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

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

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

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

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


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

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

Новые блоги и статьи
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
Раскрываем внутренние механики Android с помощью контекста и манифеста
mobDevWorks 07.07.2025
Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru