обработка на изключения в езика pascal
Program TRY_EXCEPT_STATEMENT;
{$mode delphi}
uses crt,sysutils;
var
num:integer;
run:boolean;
begin
Writeln;
run:=TRUE;
While run do
begin
try {if anything goes wrong in code, the program will move on to except}
write('Enter an integer here please: ');
readln(num);
writeln('VALID INPUT');
run := FALSE;
except {The program instead of crushing, does the following code}
writeln('WRONG INPUT - PLEASE TRY AGAIN');
run := TRUE;
end;
end;
Writeln;
end.
{
Program Description:
Program gets input from the user and performs
a format validation check using the try-except
statement. The program will ask for input
until the input entered is valid.
}