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

Узнай цену своей работы

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

Это условие: Исходные данные: Xнач.=0, Xкон.=4, Шаг=0.25

Решение задачи: «Вычислить значение выражения»

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.

Объяснение кода листинга программы

  1. Создается программа task1.
  2. Объявляются переменные: Xn, Xk, Xd, z, x. Все переменные являются числами с плавающей точкой (real).
  3. Значение переменной x устанавливается равным 0.
  4. Задается условие для цикла while: x <= Xk.
  5. В цикле while выполняется следующая последовательность действий:
    • Проверяется условие (x > 2.5). Если это условие истинно, то выполняется следующая последовательность действий:
      • Вычисляется значение z по формуле: sqr(arctan(x)) - ln(x).
      • Выводится на экран значение переменной x и значение z.
    • Если условие (x <= 1) истинно, то выполняется следующая последовательность действий:
      • Проверяется условие (x = 0). Если это условие истинно, то значение переменной z устанавливается равным 0.
      • В противном случае вычисляется значение z по формуле: exp(ln(sqr(sin(x)))/3) + 10.2*sqr(x) + 10.2.
      • Выводится на экран значение переменной x и значение z.
    • Если условие (x > 1) истинно, то вычисляется значение z по формуле: sqr(ln(x)) + x/2.
    • Значение переменной x увеличивается на значение переменной Xd.
  6. Цикл while продолжается, пока значение переменной x не станет больше или равным значению переменной Xk.
  7. Программа завершается.

Оцени полезность:

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