Выручайте друзья

[gangsterkot]

Уравнение решить по 3 циклам repeat,while,for
y:=3sin*sqrt(x+0.35+3.8) на отрезке [5;7] с шагом h=0.2
прошу пожалуйста помогите,буду очень благодарен
судьба решается

[Ezhik Kihze]

Может протабулировать функцию, а не решить уравнение?

[gangsterkot]

Сообщение от Ezhik Kihze

Может протабулировать функцию, а не решить уравнение?

да....протабулировать

[Stilet]

Предположительно так:

var x,y:double;i:integer;
begin
 x:=5;while x<=7 do begin y:=x; repeat
  for i:=round((7-y)/0.2) downto 2 do writeln(3*sin(sqrt(i*0,2+0.35+3.8)));
  writeln(3*sin(sqrt(y+0.35+3.8)));
  y:=y+0.2;
 until y>=7; x:=y x:=x+0.2;  writeln(3*sin(sqrt(x+0.35+3.8)));
 end;
end;

[gangsterkot]

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

Предположительно так:

var x,y:double;i:integer;
begin
 x:=5;while x<=7 do begin y:=x; repeat
  for i:=round((7-y)/0.2) downto 2 do writeln(3*sin(sqrt(i*0,2+0.35+3.8)));
  writeln(3*sin(sqrt(y+0.35+3.8)));
  y:=y+0.2;
 until y>=7; x:=y x:=x+0.2;  writeln(3*sin(sqrt(x+0.35+3.8)));
 end;
end;

спасибо...

[gangsterkot]

ты ее в паскале проверял,просто у меня ошибку выдает

[Stilet]

Я ее с потолка писал. Там всего лишь пара синтошибок.

   x:=5;while x<=7 do begin y:=x; repeat
    for i:=round((7-y)/0.2) downto 2 do writeln(i*0.2:10:2,3*sin(sqrt(i*0.2+0.35+3.8)):10:2);
    writeln(y:10:2,3*sin(sqrt(y+0.35+3.8)):10:2);
    y:=y+0.2;
   until y>=7; x:=y; x:=x+0.2;  writeln(x:10:2,3*sin(sqrt(x+0.35+3.8)):10:2);
   end;
  readln;

[gangsterkot]

очень благодарен,спасибо за решение(с меня спасибка)