Nevesot
5 год назад
Пожалуйста посчитайте с решением в FreePascal. Нужно простовычислить значение выражения по формуле, которая выбирается в зависимости от значения х.Я написал вот такую формулу в FreePascal:Var x, c, b, y:integers:real;beginwrite ('x,c,d: ');readln (x,c,d);if (x<=-2) then y:=(2*sqr(x)-5)elseif (x>-2) and (x<=3) then y:(sqrt(x+2))elseif (x>3) then y:=((x+3)/2);writeln('Y = ',y);readln;end.Но не работает, пишет ошибку в else. Что делать?
ОТВЕТЫ
София
Oct 24, 2020
Var x,y:real;
begin
write ('x: ');
readln (x);
if x<=-2
then y:=2*sqr(x)-5
else if x<=3 then y:=sqrt(x+2)
else y:=(x+3)/2;
writeln('Y = ',y);
readln;
end.
Пример:
x: 4
Y = 3.5
begin
write ('x: ');
readln (x);
if x<=-2
then y:=2*sqr(x)-5
else if x<=3 then y:=sqrt(x+2)
else y:=(x+3)/2;
writeln('Y = ',y);
readln;
end.
Пример:
x: 4
Y = 3.5
683
