Лабораторная работа №5
Вариант – 6
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{********************************************************}
{Программа:Proizvedenie,Лабораторная работа #6,Вариант 6 }
{Цель:вычисление произведения }
{Описание параметров и переменных: }
{P-произведение; }
{i-параметр цикла; }
{u-промежуточное значение; }
{x-переменная; }
{x0-начальное значение переменной; }
{hx-шаг изменения переменной; }
{Программист:Юняев А.А.,гр.243 }
{Проверил:профессор Новичков В.С.,кафедра ВПМ }
{Дата написания:15.10.2002 год }
{********************************************************}
Program Proizvedenie;
Var
P,hx,u,x,x0:Real;
i:Integer;
Begin
Writeln('Введите значения x0,hx:');
Read(x0,hx);
Writeln('x0=',x0,',hx=',hx);
P:=1;
x:=x0;
For i:=1 to 10 do
Begin
u:=(2*x+i)/(Sqr(2*i)+1);
P:=P*u;
x:=x+hx
End;
Writeln('Произведение равно:');
Writeln('P=',P)
End.
|
Главная
Каталог файлов
