Var x,y:real; begin x :=-10;while x = 10 do begin - вопрос №17340209101050 от shvanova2017 16.06.2022 10:06

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?Паскаль

shvanova2017 · Answer

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

Объяснение:

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?Паскаль

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?
Паскаль