Лабораторная работа №3
Вариант – 8
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{ Программа: Func, лаб. раб. #4, вар. 8
Цель: вычисление произольной функции
Описание параметров и переменных:
e - результат
a,t,w,x - входные данные
y - промежуточные
Требуемые подпрограммы: нет
Метод: вычисление по формулам
Программер: Джамалутдинов Н., группа #343
Проверила: Новичков В.С. , кафедра ВПМ
Дата написания: 8.10.2003 год.}
Program Func;
var a,e,t,w,x,y:real;
Begin {Funk}
write('a= ');read(a);
write('t= ');read(t);
write('w= ');read(w);
write('x= ');read(x);
writeln('a=',a,' x=',x,' w=',w,' t=',t);
y:=x+24.8;
If (a*x+sqrt(abs(a+x)))>0 then
e:=((x*x*x*x*x)*exp(1/3*ln(a*x+sqrt(abs(a+x)))))/(4*sqr(cos(a*x)))+y*y+w*t;
writeln('e= ',e);
end. {Funk}
|
Главная
Каталог файлов
