Реализовать запрос в программе "Продолжить работу с программой? Y/n"

@Zed11 · Регистрация: 25.10.2014

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

Добрый день!

Помогите пожалуйста с программой. Мне нужно, чтобы в конце выполнения программы пользователю выводилось:"Продолжить работу с программой? Y/N". После этого пользователь нажимал или Y(программа начиналась заново) либо N(программа закрывалась). Пробовал сделать через repeat, но программа просто проходит мимо и закрывается. Первый код моя программа, второй моя попытка

Pascal

Program Kurs;
uses SysUtils, Process, graph, strutils;
var
 str, str0, otv:string;
 f: file;
 i,key: integer;
 begin
otv:='';
write('Введите путь к файлу .pas: ');
read(str);
if str='test' then
str:='D:\Ret\University\Kursovaya\Test.pas';
if str='test1' then
str:='D:\Ret\University\Kursovaya\Lab_8\Lab_8_2.pas';
str0:=str;
for i:=length(str0) downto 1 do
if str0[i]='.' then
begin
delete(str0, i+1, length(str0)); break;
end;
str0:=str0+'txt';
assign(f,str0);
rewrite(f);
close(f);
Compile(str);
Output(str0,str);
writeln('Продолжить работу с программой? Y/N');
readln(otv);
???
end.

Pascal

Program Kurs;
uses SysUtils, Process, graph, strutils;
var
 str, str0, otv:string;
 f: file;
 i,key: integer;
 begin
repeat
otv:='';
key:=key+1;
write('Введите путь к файлу .pas: ');
read(str);
if str='test' then
str:='D:\Ret\University\Kursovaya\Test.pas';
if str='test1' then
str:='D:\Ret\University\Kursovaya\Lab_8\Lab_8_2.pas';
str0:=str;
for i:=length(str0) downto 1 do
if str0[i]='.' then
begin
delete(str0, i+1, length(str0)); break;
end;
str0:=str0+'txt';
assign(f,str0);
rewrite(f);
close(f);
Compile(str);
Output(str0,str);
writeln('Продолжить работу с программой? Y/N');
readln(otv);
if (otv='n') or (otv='N') then
key:=0;
until key>0
end.