Задачка паскаль с меню и функциями

@C4rly · Регистрация: 05.12.2022

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

1 Разработать элементарное меню, состоящее из пронумерованных пунктов. Выбор пункта меню осуществляется вводом соответствующего номера пункта.
Меню имеет вид:
1 Создание текстового файла bank.txt
2 Добавление записи в файл bank.txt
3 Просмотр файла bank.txt
4 Просмотр файла bank.txt по условию
5 Создание текстового файла bank1.txt
6 Просмотр файла bank1.txt
7 Выход

2 Разработать процедуры без параметров для реализации 1 и 2 пунктов меню.
3 Разработать процедуру с параметрами для реализации 4 пункта меню.
4 Разработать процедуру с параметром для реализации просмотра файла. Эта процедура должна вызываться при выборе пользователем 3 и 6 пунктов меню. В качестве формального параметра может выступать файловая переменная.
5 Разработать функцию с параметрами, возвращающую обработанную строку исходного текстового файла bank.txt, согласно индивидуальному заданию. Вызываться эта функция будет в процедуре реализации 5 пункта меню.
6 Разработать процедуру без параметров для реализации 5 пункта меню. В теле этой процедуры каждая строка исходного файла bank.txt должна обрабатываться функцией и записываться в новый текстовый файл bank1.txt.

Индивидуальное задание:
Создаваемый текстовый файл, содержит данные о вкладчиках банка (сумма на счете в рублях, фамилия, дата последней операции). Условие для просмотра – сумма на счёте больше Х рублей. Обработка каждой строки исходного файла - переписать каждую строку исходного текстового файла в обратном порядке.

Сейчас остановился на отладке функций, выдает ошибку "тип возвращаемого значение следует указать явно".

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
type bank = record
  score:integer;
  surname:string[20];
  date:integer;
end;
var spisok:file of bank;
var pers:bank;
var c,menu:integer;
var n:string;
 
procedure file_create;{создание файла}
begin
  assign(spisok,'bank');
  rewrite(spisok);
  repeat
  with pers do begin
    writeln('Введите счёт вклада: '); read(score);
    writeln('Фамилию вкладчика: '); read(surname);
    writeln('Дату последней операции: '); read(date);
  end;
  write(spisok,pers);
  close(spisok);
  writeln('Продолжить? (да/нет)');
  readln(n);
  until n='нет';
end;
 
procedure file_addition;{добавление в файл}
begin
  assign(spisok,'bank.txt');
  reset(spisok);
  seek(spisok,filesize(spisok));
  repeat
  with pers do begin
    writeln('Введите счёт вклада: '); read(score);
    writeln('Фамилию вкладчика: '); read(surname);
    writeln('Дату последней операции: '); read(date);
  end;
  write(spisok,pers);
  close(spisok);
  writeln('Продолжить? (да/нет)');
  readln(n);
  until n='нет';
end;
 
procedure condition_check(x:integer);{просмотр по условию}
begin
  writeln('Введите число Х из условия: ');
  read(x);
  assign(spisok,'bank');
  reset(spisok);
  with pers do begin
    if score > x then
      writeln('Фамилия: ',surname);
      writeln('Счёт: ',score);
      writeln('Дата последней операции: ',date);
  end;
  close(spisok);
end;
 
procedure file_check(var spisok:file of bank);{просмотр банк.тхт}
begin
  assign(spisok, 'bank.txt');
  reset(spisok);
  read(spisok,pers);
  with pers do begin
    writeln('Фамилия: ', surname);
    writeln('Счёт: ', score);
    writeln('Дата последней операции: ' ,date);
    writeln('///////////////');
  end;
  close(spisok);
end;
 
procedure file1_check(var spisok:file of bank);{просмотр банк1}
begin
  assign(spisok, 'bank1.txt');
  reset(spisok);
  read(spisok,pers);
  with pers do begin
    writeln('Фамилия: ', surname);
    writeln('Счёт: ', score);
    writeln('Дата последней операции: ' ,date);
    writeln('///////////////');
  end;
  close(spisok);
end;
 
function re_func(k:integer); 
var i:byte; {переворачиваем строки}
begin
  {assign(spisok,'bank');
  reset(spisok);}
  while not eof(spisok) do begin
    inc(k);
    read(spisok,pers);
  end;
  seek(spisok,0);
  for i:=k downto 1 do  
  close(spisok);
end;
 
procedure file1_create;
begin
  assign(spisok,'bank1');
  rewrite(spisok);
  re_func(k);
end;
 
function MainMenu: integer;
var
  PunktOfMenu: integer;
begin
  writeLn('1 - Создание текстового файла bank');
  writeLn('2 - Добавление записи в файл bank');
  writeLn('3 - Просмотр файла bank');
  writeln('4 - Просмотр файла bank по условию');
  writeLn('5 - Создание текстового файла bank1');
  writeln('6 - Просмотр файла bank1');
  writeln('7 - Выход');
  writeln('Пункт: ');
  read(PunktOfMenu);
  MainMenu := PunktOfMenu;
end;
begin
  repeat
  menu:= MainMenu;
    case menu of 
      1:file_create;
      2:file_addition;
      3:file_check;
      4:condition_check;
      5:file1_create;
      6:file1_check;
    end; 
  until menu = 7;
end.

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

Добавлено через 40 минут
Немного поработал над кодом, теперь он запускается, но работает некорректно

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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
type bank = record
  score:integer;
  surname:string[20];
  date:integer;
end;
var spisok:file of bank;
var pers:bank;
var c,menu,x:integer;
var n:string;
 
procedure file_create;{создание файла}
begin
  assign(spisok,'bank');
  rewrite(spisok);
  repeat
  with pers do begin
    writeln('Введите счёт вклада: '); read(score);
    writeln('Фамилию вкладчика: '); read(surname);
    writeln('Дату последней операции: '); read(date);
  end;
  write(spisok,pers);
  close(spisok);
  writeln('Продолжить? (да/нет)');
  readln(n);
  until n='нет';
end;
 
procedure file_addition;{добавление в файл}
begin
  assign(spisok,'bank.txt');
  reset(spisok);
  seek(spisok,filesize(spisok));
  repeat
  with pers do begin
    writeln('Введите счёт вклада: '); read(score);
    writeln('Фамилию вкладчика: '); read(surname);
    writeln('Дату последней операции: '); read(date);
  end;
  write(spisok,pers);
  close(spisok);
  writeln('Продолжить? (да/нет)');
  readln(n);
  until n='нет';
end;
 
procedure condition_check(x:integer);{просмотр по условию}
begin
  writeln('Введите число Х из условия: ');
  read(x);
  assign(spisok,'bank');
  reset(spisok);
  with pers do begin
    if score > x then
      writeln('Фамилия: ',surname);
      writeln('Счёт: ',score);
      writeln('Дата последней операции: ',date);
  end;
  close(spisok);
end;
 
procedure file_check(var spisok:file of bank);{просмотр банк.тхт}
begin
  assign(spisok, 'bank.txt');
  reset(spisok);
  read(spisok,pers);
  with pers do begin
    writeln('Фамилия: ', surname);
    writeln('Счёт: ', score);
    writeln('Дата последней операции: ' ,date);
    writeln('///////////////');
  end;
  close(spisok);
end;
 
procedure file1_check(var spisok:file of bank);{просмотр банк1}
begin
  assign(spisok, 'bank1.txt');
  reset(spisok);
  read(spisok,pers);
  with pers do begin
    writeln('Фамилия: ', surname);
    writeln('Счёт: ', score);
    writeln('Дата последней операции: ' ,date);
    writeln('///////////////');
  end;
  close(spisok);
end;
 
function re_func(i,k:integer):string; 
//var i:byte; {переворачиваем строки}
begin
  {assign(spisok,'bank');
  reset(spisok);}
  while not eof(spisok) do begin
    inc(k);
    read(spisok,pers);
  end;
  seek(spisok,0);
  for i:=k downto 1 do  
  close(spisok);
end;
 
procedure file1_create;
var k,i:integer;
begin
  assign(spisok,'bank1');
  rewrite(spisok);
  re_func(k,i);
end;
 
function MainMenu: integer;
var
  PunktOfMenu: integer;
begin
  writeLn('1 - Создание текстового файла bank');
  writeLn('2 - Добавление записи в файл bank');
  writeLn('3 - Просмотр файла bank');
  writeln('4 - Просмотр файла bank по условию');
  writeLn('5 - Создание текстового файла bank1');
  writeln('6 - Просмотр файла bank1');
  writeln('7 - Выход');
  writeln('Пункт: ');
  read(PunktOfMenu);
  MainMenu := PunktOfMenu;
end;
begin
  repeat
  menu:= MainMenu;
    case menu of 
      1:file_create;
      2:file_addition;
      3:file_check(spisok);
      4:condition_check(x);
      5:file1_create;
      6:file1_check(spisok);
    end; 
  until menu = 7;
end.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/