Лабораторная работа №2
“Программирование алгоритмов разветвляющейся структуры”
Вариант – 7
(задание из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Задание:
Составить алгоритм и программу вычисления значения функции:
|sqrt(|(sinx+tg^2(x))/(3.5cosx)|), при –pi/2 -x -pi/2
Y=|
|cos(x/3)/(sinx+tg^2(x), pi/2-x-pi
Блок схема алгоритма:
Program Lab2;
uses crt;
var x,y : real;
begin
clrscr;
Writeln('****************************** INPUT *****************************');
Writeln('Input x'); {ўў®¤ е}
Readln(x); {—’…Ќ?… •}
if (-pi/2
y:=abs(sqrt((sin(x)+sqr(sin(x)/cos(x)))/(3.5*cos(x))))
else if (pi/2
y:=cos(x/3)/(sin(x)+sqr(sin(x)/cos(x)))
else y:=0;
writeln('****************************** OUTPUT ****************************');
writeln('y=',y); {‚›‚Ћ„ “}
Readln;
end.
Контрольный расчёт:
x=1, y=1.3143815582
|
Главная
Каталог файлов
