не роботает правильно простая програма на Паскале, помогите!!!
Program Rozgaluzhenna;
var x: integer;
y: real;
begin
Writeln('Введіть значення х');
Readln(x);
if x<0 then
y:=(3*x+2)/(x-8)
else
begin
if (x<=1) and (x>=0) then
y:=power(sin(x),2)+3.18*power(x,-2)/(x+3*cos(x))
else
y:=power(x,3)+3*power(x,-4)+power((x-4),0.5);
end;
writeln('y=',x);
end.
Запускаю програму, x всегда ровно y, что вожу, то и выводит, где ошыбка?
var x: integer;
y: real;
begin
Writeln('Введіть значення х');
Readln(x);
if x<0 then
y:=(3*x+2)/(x-8)
else
begin
if (x<=1) and (x>=0) then
y:=power(sin(x),2)+3.18*power(x,-2)/(x+3*cos(x))
else
y:=power(x,3)+3*power(x,-4)+power((x-4),0.5);
end;
writeln('y=',x);
end.
Запускаю програму, x всегда ровно y, что вожу, то и выводит, где ошыбка?
Мы платим до 300 руб за каждую тысячу уникальных поисковых переходов на Ваш вопрос или ответ Подробнее
ЛУЧШИЙ ОТВЕТ (1) |
ПОХОЖИЕ ВОПРОСЫ |