Как сделать вывод записей в файл

@mr-cat · Регистрация: 08.09.2018

Студворк — интернет-сервис помощи студентам

Имеется 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
{формирование таблицы данных}
procedure Anketa(var f: ft; n1: integer; var k: student);
var
  i: integer;
begin
  for i := 1 to n1 do
  begin
    writeln('Анкета ', i);
    write('Введите фамилию ученика: ');
    readln(k.family);
    write('Введите имя ученика: ');
    readln(k.name);
    repeat
    write('Введите год обучения (1-11): ');
    readln(k.year);
    until k.year in [1..11];
    repeat
      write('Введите букву класса (А-Г): ');
      readln(k.class_bukva);
    until k.class_bukva in ['А'..'Г'];    
  end;  
end;
 
{запись данных таблицы в файл}
procedure Zapis(var f: ft; n1: integer; k: student);
var i: integer;
begin
rewrite(f);
 for i := 1 to n1 do
  write(f, k);
  close(f);  
end;

@Puporev · 24.02.2019, 09:06

Зачем вторая процедура?
Просто записывать в файл запись сразу после ввода.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
rewrite(f);
for i := 1 to n1 do
  begin
    writeln('Анкета ', i);
    write('Введите фамилию ученика: ');
    readln(k.family);
    write('Введите имя ученика: ');
    readln(k.name);
    repeat
    write('Введите год обучения (1-11): ');
    readln(k.year);
    until k.year in [1..11];
    repeat
      write('Введите букву класса (А-Г): ');
      readln(k.class_bukva);
    until k.class_bukva in ['А'..'Г']; 
    write(f, k);
   end;  
close(f);

@JuriiMW · 24.02.2019, 09:17

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
function Anketa(n : integer) : array of student;
begin
  SetLength(Result, n);
  for var i := 0 to n-1 do
    begin
      WriteLn('Анкета ' + Succ(i) + ' ученика');
      Result[i].family := ReadLnString('фамилия:');
      Result[i].name   := ReadLnString('    имя:');
      repeat
        Result[i].year := ReadLnInteger('год обучения (1-11):');
      until Result[i].year in [1..11];
      repeat
        Result[i].class_bukva := ReadLnString('буква класса (А-Г):');
      until Result[i].class_bukva in ['А'..'Г'];    
    end;  
end;
 
procedure Zapis(fName : String; a : array of student);
begin
  f : File of student;
  Rewrite(f, fName);
  foreach var st in a do
    Write(f, st);
  Close(f);  
end;

Добавлено через 6 минут

Сообщение от Puporev

Зачем вторая процедура?

Может ему ещё что-то нужно там считать или выводить?

@Puporev · 24.02.2019, 09:24

А зачем массив и типизированный файл? Может еще парочку структур создать?

@mr-cat · 24.02.2019, 09:24 **[ТС]**

а возможно это сделать с использованием старых функций паскаля? (да, я знаю, что надо было в другой теме писать, просто использую эту версию паскаля)

@JuriiMW · 24.02.2019, 09:51

Ну Puporev вам в старой версии дал решение…

@Puporev · 24.02.2019, 10: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
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
type uchenik=record
             family:string[15];
             name:string[10];
             year:byte;
             class_bukva:char;
             end;
     ft=file of uchenik;
{формирование таблицы данных и запись в файл}
procedure Anketa(var f: ft);
var n,i: integer;
    k:uchenik;
begin
assign(f,'anceta');
rewrite(f);
write('Сколько учеников n=');
readln(n);
for i := 1 to n do
 begin
  writeln('Ученик ',i);
  with k do
   begin
    write('Фамилия: ');
    readln(family);
    write('Имя: ');
    readln(name);
    repeat
    write('Год обучения (1-11): ');
    readln(year);
    until year in [1..11];
    repeat
    write('Буква класса (А-Г): ');
    readln(class_bukva);
    until class_bukva in ['А'..'Г'];
    write(f,k);
   end;
  end;
 close(f);
 end;
 //чтение файла и вывод на экран
 procedure Read_file(var f:ft);
 var k:uchenik;
 begin
writeln('------------------------------------------');
writeln('|   Фамилия     |   Имя    | Год | Класс |');
writeln('------------------------------------------');
reset(f);
while not eof(f) do
 begin
  read(f,k);
  with k do
  writeln('|',family:15,'|',name:10,'|',year:4,' |',class_bukva:4,'   |');
 end;
 writeln('------------------------------------------');
 close(f);
 end;
 var f:ft;
 begin
 Anketa(f);
 Read_file(f);
 end.

@mr-cat · 24.02.2019, 10:09 **[ТС]**

спасибо

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.02.2019, 09:24
	А зачем массив и типизированный файл? Может еще парочку структур создать? 0

@mr-cat 0 / 0 / 0 Регистрация: 08.09.2018 Сообщений: 98
	24.02.2019, 09:24 [ТС]
	а возможно это сделать с использованием старых функций паскаля? (да, я знаю, что надо было в другой теме писать, просто использую эту версию паскаля) 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	24.02.2019, 09:51
	Ну Puporev вам в старой версии дал решение… 0

@mr-cat 0 / 0 / 0 Регистрация: 08.09.2018 Сообщений: 98
	24.02.2019, 10:09 [ТС]
	спасибо 0

Как сделать вывод записей в файл

Решение