While

[Miller1045]

нужно решить задачку с вайлом...(шаг h:=0,1), а:=-2, b:=2, х:=а...
Вроде бы все.
Заранее Спасибо!!!

[Miller1045]

Ребят ну помогите же плиииз

[BDA]

Проверьте правильность счета:

Uses CRT,Math;

var
a,b,h,x:real;

function y(x:real):real;
begin
if x<-0.5 then
	y:=1+power(sin(x+0.5),3)
else
if x>0.5 then
	y:=1+power(sin(x-0.5),3)
else
	y:=1;
end;

BEGIN
h:=0.1;
a:=-2;
b:=2;
x:=a;
while (x-h<=b) do
begin
	writeln('x=',x:0:2,' y=',y(x):0:2);
	x:=x+h;
end;
readln;
END.

[Miller1045]

Ребят задача решена не правильно нужен цикл....помогите плииииз

[Hacker19_90]

Ребят задача решена не правильно нужен цикл....помогите плииииз

да?
а это что

while (x-h<=b) do
begin
	writeln('x=',x:0:2,' y=',y(x):0:2);
	x:=x+h;
end;

?

[Miller1045]

вот я тут попытался сделать как хотела она...но чето не то с у он везде равен единице а так быть не должно как я понял кароч посмотрите чет тут не так и подправьте если не сложно

[Hacker19_90]

1)Вам чем функция то не устраивала?
2) Кто такая "она" и чего она хотела?

[Miller1045]

она эт препод и хотела она от меня что бы я прально написал программу
её не устроил "y"
то что он везде равен 1
а должен быть равен 1 только в определённом промежутке
а по поводу функции она сказала что типо мы этого не проходили и где ты такую белеберду вычитал и тп

[Hacker19_90]

А на кой извините х*ен вы функцию убрали?
И с чего бы вдруг код от BDA не верный?
так ладно не устраивает функциия делай так

Uses CRT;

var
a,b,h,x, y:real;

BEGIN
h:=0.1;
a:=-2;
b:=2;
x:=a;
while (x-h<=b) do
begin
        if x<-0.5 then
	  y:=1+exp(ln(sin(x+0.5))*3)
        else
          if x>0.5 then
	    y:=1+exp(ln(sin(x-0.5))*3)
          else
	    y:=1;
	writeln('x=',x:0:2,' y=',y(x):0:2);
	x:=x+h;
end;
readln;
END.

[Miller1045]

блин в строке writeln пишет ожидалось имя процедуры или функции