Контрольная работа: Выражения и условный оператор IF. Операторы циклов. Массивы и подпрограммы

Выполнила

Студентка гр.З-828-Б

Специальности 080105

Афонина Юлия Владимировна

Г. Нефтеюганск

2009 г.

Задание №1. «Выражения и условный оператор IF»

1. Вычислить значение функции f в точке x.

Решение :

Program prog1;

Var

f,x: real ;

Begin

writeln ('Расчет значения функции в заданной точке');

write (' Введите число x: ');

readln (x);

if x<0 then f:=SQR (x+3) else

begin

if x<4 then f:=sin(x-2)/(SQR(x)-16)

else f:=SQRT (x-4);

end ;

writeln (' Значение f(',x:0:8,') = ',f:0:8);

readln ;

end .

Тестирование программы:

1. X=-1 (выполнено первое условие, x<0):

Расчет значения функции в заданной точке

Введите число x: -1

Значение f(-1.00000000) = 4.00000000

--> ЧИТАТЬ ПОЛНОСТЬЮ <--