Помощь - Поиск - Пользователи - Календарь
Полная версия: Подскажите пожалуйста, где ошибка.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
QRFail
Запускаю код, при x=2 почему то решает то что в (x>1)and(x<2) Почему так? Может я че то не правильно понимаю???

uses crt;
var a,x1,x2,dx,x,y:real;
begin
clrscr;
a:=2.3;
x1:=0.2;
x2:=8;
dx:=0.2;
x:=x1;


Writeln('x | y');
Writeln('---------');
while x<x2 do
begin
If x=2 then writeln('Gbplf') ;
If x=1 then
begin
y:=1.5*sqr(cos(x));
writeln(x,' | ',y);
end
else
If (x>1)and(x<2) then
begin
y:=1.8*a*x;
writeln(x,' | ',y);
end
else
If x>2 then
begin
y:=(sqr(x-2))+6;
writeln(x,' | ',y);
end
else writeln('Не удовлетворяет условию');



x:=x+dx;

end;




end.


x=2 игонорирует. Если шаг dx поставить 0,3 все верно решает.
QRFail
применил for вместо while. помогло.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.