Лабораторная работа №7
Вариант – 4
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Program ZnachFunctW;
{**************************************}
{ Имя програмы в банке программ: Lab8v3.Pas }
{ Программа: ZnachFunctW, Лаб. раб. №8, Вар. 3 }
{ Цель: вычислить значение функции при заданных }
{ значениях аргументов. }
{ Описание пааметров и переменных: }
{ a,x,t - аргументы, }
{ w - функция, }
{ an,xn - начальные значения аргументов, }
{ ak,xk - конечные значения аргумнтов, }
{ ha,hx - шаги, }
{ Требумые подпрограммы: нет. }
{ Метод: вычисление с помощью структуры вложенных циклов. }
{ Программист: Борискин Д.В., гр. 243 }
{ Проверил: Новичков В.С., каф. ВПМ }
{ Дата написания: 12 ноября 2002 года. }
{**************************************}
var
a,ak,an,ha,hx,x,xk,xn,t,w:real;
begin {ZnachFunctW}
Write('Введите начальное значение А ');
Read(an);
Write('Введите конечное значение А ');
Read(ak);
Write('Введите шаг для А ');
Read(ha);
Write('Введите начальное значение X ');
Read(xn);
Write('Введите конечное значение X ');
Read(xk);
Write('Введите шаг для X ');
Read(hx);
Writeln('An= ',an);
Writeln('Ak= ',ak);
Writeln('Ha= ',ha);
Writeln('Xn= ',xn);
Writeln('Xk= ',xk);
Writeln('Hx= ',hx);
x:=xn;
while x<=xk do
begin
a:=an;
while a<=ak do
begin
if a
then t:=a/(2*x)
else t:=2*a*x;
w:=x*x*cos(a*x+t);
Writeln('A= ',a);
Writeln('X= ',x);
Writeln('W= ',w);
a:=a+ha;
end;
x:=x+hx;
end;
End.{ZnachFunctW}
|
Главная
Каталог файлов
