Написать код программы на языке паскаль
Для вычисления значений функции типа y=SQR(l/x) напишите подпрограмму обработки ошибок.
Ответы
Ответ дал:
0
var y,x,l:real;
begin
writeln('Введите значение l и x соотвественно');
read(l,x);
if x=0 then writeln('x не может быть равен нулю, так как дробь нельзя делить на ноль')
else begin
y:=sqr(l/x);
writeln(y);
end;
end.
begin
writeln('Введите значение l и x соотвественно');
read(l,x);
if x=0 then writeln('x не может быть равен нулю, так как дробь нельзя делить на ноль')
else begin
y:=sqr(l/x);
writeln(y);
end;
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад