Лабораторная работа №8-9
Вариант – 6
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
{********************************************************}
{Программа:Tab,Лабораторная работа #9,Вариант 6 }
{Цель:вычислить значение функции }
{Описание параметров и переменных: }
{hx-шаг изменения аpгумента x }
{hy-шаг изменения аpгумента y }
{x-аpгумент }
{x0-начальное значение аpгумента x }
{xn-конечное значение аpгумента x }
{y-аpгумент }
{y0-начальное значение аpгумента y }
{yn-конечное значение аpгумента y }
{q-вспомогательная переменная }
{z-значение функции }
{t,s,v,w-константы }
{Программист:Юняев А.А.,гр.243 }
{Проверил:профессор Новичков В.С.,кафедра ВПМ }
{Дата написания:13.10.2002 год }
{********************************************************}
Program Tab;
Const t=' ';
s='----------------------------';
w=' I';
v=' I';
Var
hx,hy,x,x0,xn,y,y0,yn,z:Real;
q:string;
Begin
Writeln('Введите x0,hx,xn,y0,hy,yn:');
Read(x0,hx,xn,y0,hy,yn);
Writeln('x0=',x0:1:1,',hx=',hx:1:1,',xn=', xn:1:1,',y0=',y0:1:1,',hy=',hy:1:1,',yn=',yn:1:1);
Writeln;
Writeln('Исходные данные: x0=',x0:1:1,',hx=', hx:1:1,',xn=',xn:1:1,',y0=',y0:1:1,',hy=',hy:1:1,',yn=',yn:1:1);
Writeln;
Writeln(t,' Таблица pезультатов:');
Writeln;
Writeln(t,s);
Writeln(t,'I','x':4,'I':4,'y':4,'I':4,'z':6,'I':5);
Writeln(t,s);
x:=x0;
Repeat
y:=y0;
Repeat
z:=3*x+4*Cos(y);
If z>0
Then q:=v
Else q:=w;
Writeln(t,'I ',x:1:1,' I ',y:1:1,' I ',z:5:3,q);
y:=y+hy;
Until y>(yn+hy/2);
x:=x+hx;
Until x>(xn+hx/2);
Writeln(t,s);
End.
|
Главная
Каталог файлов
