Значение функции с условием - 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.

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

  1. const a = -0.5; Здесь объявляется константа a и ей присваивается значение -0.5.
  2. const b = 0.2; Здесь объявляется константа b и ей присваивается значение 0.2.
  3. var t: double; Здесь объявляется переменная t типа double и ей присваивается значение по умолчанию 0.0.
  4. begin Здесь начинается блок кода.
  5. write('t = '); Здесь выводится сообщение t = для переменной t.
  6. readln(t); Здесь считывается значение переменной t с помощью функции readln.
  7. if (t >= a) and (t <= 0) Здесь выполняется проверка условия: t должно быть больше или равно a и меньше или равно 0.
  8. then write('Function is undefined.') Если условие выполняется, то выводится сообщение Function is undefined..
  9. else begin Если условие не выполняется, то начинается другой блок кода.
  10. write('f = '); Здесь выводится сообщение f = для переменной f.
  11. if t < a Здесь выполняется проверка условия: если t меньше a, то...
  12. ...то write(exp(a t) cos(b t):0:15) Выводится результат вычисления exp(a t) cos(b t).
  13. ...else write(a t t ln(t):0:15) Если условие в пункте 11 не выполняется, то выводится результат вычисления a t t ln(t).
  14. end; Здесь заканчивается блок кода.
  15. readln Считывается значение переменной t с помощью функции readln.
  16. end. Код завершается.

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

12   голосов , оценка 3.667 из 5
Похожие ответы