Программа должна выполнять:
– вывод сообщения о разработчике и о назначении программы;
– ввод данных в режиме диалога.
Сохранение данных в файле и чтение данных из файла организовать как процедуру или функцию.
Вот как выглядит задание, в таблице 3.1 была куча вариантов, но оставил только свой. В остальных оставил все, ибо я не совсем понял, как ориентироваться по-этому заданию... у меня 7 вариант.
Вот то, что получилось у меня... прошу проверить с заданием, все ли так сделал + после того, как заменил транслит русскими буквами, программа начала выдавать ошибку, как исправить?
program laba3;
uses crt;
Label m1;
var
n:integer;
st1,st2:string[18];
F:text;
procedure Ввод;
begin
assign(F,'rez.txt');
rewrite(F);
write('Введите символы: ');
read(st1);
Writeln('st1= ',st1);
Writeln(f,st1);
close(f);
readln;
end;
procedure Чтение;
begin
assign(F,'rez.txt');
reset(f);
readln(f,st2);
writeln('st2= ',st2);
close(f);
end;
Begin
clrscr;
writeln('1. Ввод');
writeln('2. Чтение');
writeln('3. Выход');
m1:write('Введите пункт меню: ');
readln(n);
case n of
1:begin Ввод; goto m1; end;
2:begin Чтение; end;
3:Выход;
end;
goto m1;
readln;
end.
Нажмите для просмотра прикрепленного файла
