Question

var x,y:real;


begin

x :=-10;


while x <= 10 do begin

if 5-x >= 0 then

y := sqrt(5-x);

writeln('x: ', x, '; y: ',y);

x := x + 1;

end;



end.



Как вместо нуля напротив y вывести слово error?
Паскаль

Answer 1

Ответ:

добавить в Var строковую переменную (например  s:string;), а в программе определять равенство y=0. Если верно, то строковой переменной присвоить s:=error. Если не верно , то строковой переменной присвоить y с указанием количества знаков после запятой (например 5 знаков) Str(y:0:5, s); и при выводе написать writeln('x: ', x, '; y: ',s); (заменили число y на строку s)

Объяснение: