Вычислить значение выражения - Pascal ABC (14620)

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

Это условие: Исходные данные: Xнач.=0, Xкон.=4, Шаг=0.25
program task1;
var
  Xn,Xk,Xd,z,x:real;
begin
  writeln('Введите Xнач.');
  readln(Xn);
  writeln('Введите Xкон.');
  readln(Xk);
  writeln('Введите Шаг');
  readln(Xd);
  x:=Xn;
  while x<=Xk do
  begin
  if (x>2.5) then
  z:=sqr(arctan(x))-ln(x)
  else if (x<=1) then
  z:=exp(1/3*(ln(sqrt(sqr(sin(x))*x+10.2*sqr(x)))))
  else z:=sqr(ln(x))+x/2;
  writeln(' x=',x,' z=',z);
  x:=x+Xd;
  end;
end.

Код к задаче: «Вычислить значение выражения - Pascal ABC (14620)»

textual
program task1;
var
  Xn,Xk,Xd,z,x:real;
begin
Xn:=0;
Xk:=4;
Xd:=0.25;
x:=Xn;
while x<=Xk do
 begin
  if (x>2.5) then  z:=sqr(arctan(x))-ln(x)
  else if (x<=1) then
   begin
    if x=0 then z:=0
    else z:=exp(ln(sqr(sin(x)))/3)+10.2*sqr(x)
   end
  else z:=sqr(ln(x))+x/2;
  writeln(' x=',x:5:2,' z=',z:5:2);
  x:=x+Xd;
 end;
end.

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


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