Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
shop
7 / 7 / 5
Регистрация: 20.10.2012
Сообщений: 81
1

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

23.05.2018, 00:44. Просмотров 95. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

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

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

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

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


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

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

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