Задание № 3. Использование стандартных функций

1. Разработайте консольную программу вычисления значения функции при х = 2.346. Затем вычислить квадратный корень из абсолютной величины полученного значения, т.е. найти . Для этого:

· Задайте значение х = 2.346 в виде константы.

· Введите вещественные переменные y, z и объявите их Real.

· Организуйте вывод на экран результатов вычисления заданных функций.

Листинг программы должен иметь примерно следующий вид:

program Standart_Function;

{$APPTYPE CONSOLE}

Uses

SysUtils;

Const

x=2.346;

Var

y,z: real;

Begin

writeln('Raschet function Y=1+cos^2(x)+sin^3(x) for x=2.346');

y:=1+x*sqr(cos(x))+sqr(sin(x))*sin(x);

z:=sqrt(abs(x));

writeln('y=',y);

writeln('z=',z);

readln

end.

2. Откомпилируйте и выполните программу. При наличии ошибок, исправьте их.

3.
При отсутствии ошибок вы должны получить результат, представленный на рис. 2.

4. Сохраните проект программы в папке \Мои документы\ЛЗ-21\Задание-03 под именем Standart_Function.

Дата добавления: 2015-07-08