Консультация № 185772
07.04.2012, 18:45
69.05 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Составить разветвляющийся алгоритм
Написать программу на языке Object Pascal.
Выполнить программу в среде программирования Turbo Pascal, Free Pascal или консольном приложении Delphi.
Проверить результаты работы программы.
Задано вещественное значение аргумента х. Вычислить значение
функции у.

Обсуждение

Неизвестный
07.04.2012, 21:43
общий
это ответ
Здравствуйте, Посетитель - 383833!

uses crt;
var x,y: real;
begin
clrscr;

write('Vvedite chislo x => ');
readln(x);
if x < 3 then y := 3+sqr(ln(x))
else y := exp(x)+sin(x);

writeln('y = ',y);
readkey;
end.
Форма ответа