Лабораторная работа №5
Вариант – 8
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{Программа: Laba6, лаб. раб. #6, вар. 8
Цель: вычисление произвольной функции
Описание параметров и переменных:
S - результат
X - входные данные
A,N,Y - промежуточные
Требуемые подпрограммы: нет
Метод: Цикл с параметром
Программер: Джамалутдинов Н., группа #343
Проверила: Новичков В.С. , кафедра ВПМ
Дата написания: 21.10.2003 год.}
Program Laba6;
Uses crt;
Var
A,S,X,Y:REAL;
N:integer;
i:integer;
Begin {Laba6} ClrScr;
Write ('Введите X (X>0) = ');
Read (X);
If x>0 then begin
S:=0;
For N:=1 to 20 do begin
If (N>12)and(X>3.5)
Then A:=-0.5
else A:=-7.5;
y:=1;
{ For i:=1 to n do
Y:=Y*a;}
y:=a*a*n ;
S:=S+(Y+1)*ln(x);
end;
Writeln('S = ',s:7:5);
Readkey;
End
End.
|
Главная
Каталог файлов
