While

[Hacker19_90]

эм...
вот так

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:0:2);
	x:=x+h;
end;
readln;
END.

[Stilet]

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

writeln('x=',x:0:2,' y=',y(x):0:2); Здесь упоминается вызов функции из кода BDA
writeln('x=',x:0:2,' y=',y:0:2); - вот так без нее.

[s-andriano]

Сообщение от Miller1045

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

Все верно, так и должно быть.

[Miller1045]

Помогите ребят с программой то...Правильно работающей

[BDA]

Да вы что?
Вам уже привели решение как с функцией, так и без.
Все работает отлично.
Если вас не устраивает приведенный код - пишите сами, по всем требованиям вашего строгого преподавателя.

[Miller1045]

Я дико извиняюсь но почему тогда при копировании программы написанной хакером она выдает мельчайшие ошибки но я не знаю как их убрать написал ниже

[Miller1045]

пишет Ошибка:неверная вещественная операция Строка 14
Это по программе хакера так где присваивание функции у идет че там делать я не знаю все перепробовал что знал

[BDA]

Попробуйте так:

uses
  CRT, Math;

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 + power(sin(x + 0.5), 3)
    else
    if x > 0.5 then
      y := 1 + power(sin(x - 0.5), 3)
    else
      y := 1;
    writeln('x=', x:0:2, ' y=', y:0:2);
    x := x + h;
  end;
  readln;
end.