Протабулировать функцию - Turbo Pascal (29037)

Формулировка задачи:

; при условии ; x=0,25(0,05)0,65

Код к задаче: «Протабулировать функцию - Turbo Pascal (29037)»

textual
var x,a,y:real;
begin
x:=0.25;
while x<=0.65 do
 begin
  if x<0.5 then a:=1
  else a:=2;
  y:=exp(-a*x*sin(a));
  writeln('x=',x:4:2,' y=',y:5:3);
  x:=x+0.05;
 end;
end.

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ