Цикл Repeat, Не получается вставить цикл в конкретную программу Опции

[garry_m]

Помогите pls вставить цикл следующего типа в программу:
Цикл:

repeat
{$I-}
write('...'); readln(...);
{$I+}
ok:=(ioresult=0); val(s,k,err);
ok:=ok and (err=0);
if not ok then writeln('...');
until ok;

Программа:

uses crt;
var
x,y,z:real;
c:real;
ans:char;
begin clrscr; repeat clrscr;

writeln('Raschet znachenija functii.');
writeln('');
write('Vvedite X -> '); readln(x);
write('Vvedite Y -> '); readln(y);
write('Vvedite Z -> '); readln(z);
writeln('');
writeln('Raschitaem znachenije functii.');

C:=ln(sqr(2*x+5*y)*(22*x+401*y)/(5*sqr(x)+8*y+9*z));
writeln('');
write('Znachenije functii ravno: ',C:8:4); readln;
writeln('');
writeln('Do you want to repeat?');
ans:=readkey;
until UpCase(ans) = 'N';

end.

[GoodWind]

тогда обясню - свой цикл (модифицированный конечно) оформляешь в функцию, которую применяешь вместо readln.

Код

function GetRealA(min,max:real;mess:string;):real;
var s:string;
      err:integer;
      t:real;
      ok:boolean;
begin
ok:=false;
repeat
write(mess); readln(s);
val(s,t,err);
ok:=(err<>0) and (t>=min) and (t<=max);
if not ok  then writeln('Error!');
until ok;
GetRealA:=t;
end;

теперь можешь использовать эту фуенкцию в своей программе:

Код

uses crt;
var
x,y,z:real;
c:real;
ans:char;
begin clrscr; repeat clrscr;

writeln('Raschet znachenija functii.');
writeln('');
x:=getRealA({мин значение},{макс значение},'Введите Х: ');
y:=getRealA({мин значение},{макс значение},'Введите Y: ');
x:=getRealA({мин значение},{макс значение},'Введите Z: ');
writeln('');
writeln('Raschitaem znachenije functii.');

C:=ln(sqr(2*x+5*y)*(22*x+401*y)/(5*sqr(x)+8*y+9*z));
writeln('');
write('Znachenije functii ravno: ',C:8:4); readln;
writeln('');
writeln('Do you want to repeat?');
ans:=readkey;
until UpCase(ans) = 'N';

end.

примерно так...