Составить приложение на языке Pascal.

Вычислить на ПК значения функции, заданной в таблице. На печать
вывести значения вводимых исходных данных и полученные результаты,
сопровождая их именами переменных. Значения аргумента взять из
указанного диапазона так, чтобы протестировать все ветви программы.

1

Ответы и объяснения

Лучший Ответ!
2012-03-22T16:12:44+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a,x,b:real;

Begin

  read(a,x);

  if x>4 then b:=x*ln(x*x);

  if x<3 then b:=a*cos(x);

  writeln(b);

End.