===== 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.
===== 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.