Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
shop
7 / 7 / 0
Регистрация: 20.10.2012
Сообщений: 80
#1

Записи и работа с файлом - Turbo Pascal

23.05.2018, 00:44. Просмотров 78. Ответов 1
Метки нет (Все метки)

Известны фамилии, адреса и телефоны 25 человек. Найти фамилии и адреса людей, чей телефон начинается с цифры 3. Телефон задан в виде 000-00-00

Составить три программы: первая должна формировать на диске файл записей с исходными данными, вторая выводить его содержимое на экран, третья - выводить результаты

Программа без файла
Кликните здесь для просмотра всего текста
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
uses crt;
const n=3;
      line='-------------------------------------------------------';
      shap='|  famil       |       adres         |        telefon  |';
 
type telephone = record
     fam:  string[10];
     adr:  string[20];
     tel:  string[9];
     end;
 
var t:array [1..n] of telephone;
    i,k:byte;
 
begin
writeln('Vnesite dannie:');
for i:=1 to n do
    with t[i] do
         begin
         write('Famil: '); readln(fam);
         write('Andres: '); readln(adr);
         repeat
         write('Telefon (000-00-00): '); readln(tel);
         until (length(tel)=9) and ((tel[4]='-') and (tel[7]='-'));
         end;
clrscr;
write('Telefoni na cifru 3');
for i:=1 to n do
    with t[i] do
         if tel[1]='3' then
            begin
            inc(k);
            if k=1 then
               begin
               writeln;
               writeln(line);
               writeln(shap);
               writeln(line);
               end;
            writeln('|',fam:10,'|':2,adr:25,'|':5,tel:9,'|':3);
            writeln(line);
            end;
if k=0 then writeln(' otsutstvujut') else
   writeln('Vsego ',k);
readln;
end.



Что я попробовал написать

Кликните здесь для просмотра всего текста
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
uses crt;
const n=3;
      line='-------------------------------------------------------';
      shap='|  famil       |       adres         |        telefon  |';
 
type telephone = record
     fam:  string[10];
     adr:  string[20];
     tel:  string[9];
     end;
 
var t:array [1..n] of telephone;
    i,k:byte;
 g:text;
begin
writeln('Vnesite dannie:');
assign(g,'аа.txt');
  reset(g);
for i:=1 to n do
    with t[i] do
         begin
         While not Eof(g) do 
     begin
         write('Famil: '); read(g,fam);
         write('Andres: '); read(g,adr);
         write('Telefon (000-00-00): '); read(g,tel);
        
        end;
         end;
 close(g);
clrscr;;
reset(g);
write('Telefoni na cifru 3');
for i:=1 to n do
    with t[i] do
         if tel[1]='3' then
            begin
            inc(k);
            if k=1 then
               begin
               writeln;
               writeln(line);
               writeln(shap);
               writeln(line);
               end;
While not Eof(g) do 
     Begin
 read(g,fam,adr,g,tel);
            writeln('|',g,fam:10,'|':2,g,adr:25,'|':5,g,tel:9,'|':3);
            writeln(line);
            end;
            end;
if k=0 then writeln(' otsutstvujut') else
   writeln('Vsego ',k);
readln;
end.


Сначала пробую без подпрограмм, но программа не работает с файлом
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2018, 00:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Записи и работа с файлом (Turbo Pascal):

Работа с файлом - Turbo Pascal
Помогите решить данную задачу del

Работа с текстовым файлом - Turbo Pascal
Помогите, пожалуйста, сделать программу: Даны файлы f и g. Записать в файл h все совпадающие строки файлов f и g, если таких строк нет,...

Работа с текстовым файлом - Turbo Pascal
Требуется написать программу, считывающую данные из текстового файла; затем данные записываются в файл прямого доступа (компоненты файла...

Рекурсия. Работа файлом - Turbo Pascal
Доброго вечера, форумчане. Нужно научить программу рекурсивно читать файл по одному значению за раз. uses crt; type...

Работа с файлом целых чисел - Turbo Pascal
Дан файл f, компоненты которого являются целые числа. Определить: 1)Количество чётных чисел среди компонент 2)Количество квадратов...

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

1
Ruella
81 / 81 / 40
Регистрация: 07.10.2015
Сообщений: 168
23.05.2018, 12:36 #2
shop, простите, а можно узнать, почему у Вас файл текстовый, а не типизированный? Или этого требует условие задания?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2018, 12:36
Привет! Вот еще темы с ответами:

Работа с файлом, содержащим числа integer - Turbo Pascal
Всем привет! Надо решить задание: в текстовом файле записаны числа integer через пробел. Количество всех цифр неизвестно, а значит...

Turbo Pascal Работа с текстовым файлом - Turbo Pascal
Дано целое число К и текстовый файл. Удалить из файла абзац с номером К (абзацы отделяются друг от друга одной или несколькими пустыми...

Работа с файлом, содержащим сведения о заказах клиентов - Turbo Pascal
Организовать работу с файлом, содержащим следующие сведения о заказах клиентов: ФИО клиента, место работы клиента, наименование,...

Работа с текстовым файлом, помогите исправить ошибки в программе - Turbo Pascal
Анкета содержит сведения в виде: фамилия, имя, отчество, величина зарплаты, стаж работы, количество детей. Получить список сотрудников,...


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

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

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