===== PascalABC.NET =====
begin
var a := ReadlnInteger('Введите целое число:');
try
Println(1 div a);
except
on System.DivideByZeroException do
Println('Попытка деления на ноль');
end;
var s := ReadlnString('Введите число с дробной частью:');
s.ToReal.Println;
on System.FormatException do
Println('Неверная запись вещественного числа')
var b := ArrRandom(5, -10, 10);
Println(b[ReadlnInteger('Какой элемент массива вывести?')])
on System.IndexOutOfRangeException do
Println('Неверный индекс')
BigInteger.Parse(ReadlnString('Введите число:')).ToString.ToInteger
on System.OverflowException do
Println('Слишком большое число')
end
end.
Примечание: StackOverflowException невозможно перехватить в версии .NET выше 2.0.
program fdjh;
uses crt;
var
F:text;
in_name, z:string;
max,n,i,d:integer;
writeln('Введiть iм`я файлу');
read(in_name);
assign(F,in_name);
rewrite(F);
writeln('Введiть розмiр файлу');
read(n);
for i:=1 to n do
d:=random(101)-25;
z := inttostr(d);
write(F,z+#13#10);
close(F);
reset(F);
max := -25;
while not eof(F) do
readln(F,z);
d := StrToINt(z);
if (d > max) and (d mod 4 = 0) then
max:=d;
if max = -25 then writeln('Максимальний кратний 4 в файлі не існує')
else writeln('Максимальний кратний 4 = ',max);
===== PascalABC.NET =====
begin
var a := ReadlnInteger('Введите целое число:');
try
Println(1 div a);
except
on System.DivideByZeroException do
Println('Попытка деления на ноль');
end;
try
var s := ReadlnString('Введите число с дробной частью:');
s.ToReal.Println;
except
on System.FormatException do
Println('Неверная запись вещественного числа')
end;
var b := ArrRandom(5, -10, 10);
try
Println(b[ReadlnInteger('Какой элемент массива вывести?')])
except
on System.IndexOutOfRangeException do
Println('Неверный индекс')
end;
try
BigInteger.Parse(ReadlnString('Введите число:')).ToString.ToInteger
except
on System.OverflowException do
Println('Слишком большое число')
end
end.
Примечание: StackOverflowException невозможно перехватить в версии .NET выше 2.0.
program fdjh;
uses crt;
var
F:text;
in_name, z:string;
max,n,i,d:integer;
begin
writeln('Введiть iм`я файлу');
read(in_name);
assign(F,in_name);
rewrite(F);
writeln('Введiть розмiр файлу');
read(n);
for i:=1 to n do
begin
d:=random(101)-25;
z := inttostr(d);
write(F,z+#13#10);
end;
close(F);
reset(F);
max := -25;
while not eof(F) do
begin
readln(F,z);
d := StrToINt(z);
if (d > max) and (d mod 4 = 0) then
max:=d;
end;
if max = -25 then writeln('Максимальний кратний 4 в файлі не існує')
else writeln('Максимальний кратний 4 = ',max);
close(F);
end.