Значение функции с условием - Turbo Pascal
Формулировка задачи:
Дано:
a = -0,5
b = 0,2
Условие t
Если t больше или равно а , то f=at2ln t
Если t строго меньше а , то f=eatcos bt
Решение задачи: «Значение функции с условием»
textual
Листинг программы
const a = -0.5; b = 0.2; var t: double; begin write('t = '); readln(t); if (t >= a) and (t <= 0) then write('Function is undefined.') else begin write('f = '); if t < a then write(exp(a * t) * cos(b * t):0:15) else write(a * t * t * ln(t):0:15) end; readln end.
Объяснение кода листинга программы
- const a = -0.5; Здесь объявляется константа a и ей присваивается значение -0.5.
- const b = 0.2; Здесь объявляется константа b и ей присваивается значение 0.2.
- var t: double; Здесь объявляется переменная t типа double и ей присваивается значение по умолчанию 0.0.
- begin Здесь начинается блок кода.
- write('t = ');
Здесь выводится сообщение
t =
для переменной t. - readln(t); Здесь считывается значение переменной t с помощью функции readln.
- if (t >= a) and (t <= 0) Здесь выполняется проверка условия: t должно быть больше или равно a и меньше или равно 0.
- then write('Function is undefined.')
Если условие выполняется, то выводится сообщение
Function is undefined.
. - else begin Если условие не выполняется, то начинается другой блок кода.
- write('f = ');
Здесь выводится сообщение
f =
для переменной f. - if t < a Здесь выполняется проверка условия: если t меньше a, то...
- ...то write(exp(a t) cos(b t):0:15) Выводится результат вычисления exp(a t) cos(b t).
- ...else write(a t t ln(t):0:15) Если условие в пункте 11 не выполняется, то выводится результат вычисления a t t ln(t).
- end; Здесь заканчивается блок кода.
- readln Считывается значение переменной t с помощью функции readln.
- end. Код завершается.