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

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

При условии, что для x=1(0.5)4 при K=3, a=0.5 , b=0.7

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

textual
uses crt;
const xn=1;
      xk=4;
      dx=0.5;
      k=3;
      a=0.5;
      b=0.7;
var x,z:real;
begin
clrscr;
x:=xn;
while x<=xk do
 begin
  if x<=k then z:=a*sin(x)+b*cos(x)
  else z:=ln(x)/(b*sin(x)+a*cos(x));
  writeln('x=',x:4:1,' z=',z:6:3);
  x:=x+dx;
 end;
readln
end.

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


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