Вычислить значение выражения - 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.
Объяснение кода листинга программы
- Создается программа
task1
. - Объявляются переменные: Xn, Xk, Xd, z, x. Все переменные являются числами с плавающей точкой (real).
- Значение переменной x устанавливается равным 0.
- Задается условие для цикла while: x <= Xk.
- В цикле 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.
- Проверяется условие (x > 2.5). Если это условие истинно, то выполняется следующая последовательность действий:
- Цикл while продолжается, пока значение переменной x не станет больше или равным значению переменной Xk.
- Программа завершается.