Лабораторная работа №8
“Проектирование алгоритмов и программ со структурой вложенных циклов”
Вариант – 14
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Автор: SlavikS
Program Lab_07_1;
{ Vividit tablicy
co znacheniyami peremennih
Ubeditelnaya prosba xot` nemnogo menyat` isxodnii text programmi,
vsetaki prepoda odni i tege, mogut pridrat`sya :))
}
Const
t=' ';
r=' |';
w='__________________________________________________________________';
var
xn,x0,p,hx,q,x:real;
i,nx:integer;
begin
Writeln (t,'Vvedite nachalo otscheta');
writeln;
write (t);
readln (x0);
writeln (t,'Vvedite konec otscheta');
writeln;
write (t);
readln (xn);
writeln (t,'Vvedite shag');
writeln;
write(t);
readln (hx);
{Exo vivoda}
Writeln (t,'Nachalo otscheta ',x0:2:3);writeln;
writeln (t,'Konec otscheta ',xn:2:3); writeln;
writeln (t,'Shag = ',hx:2:3);
Writeln ('___________________________________________________');
Writeln;
nx:= trunc ((xn-x0)/hx);
if nx<1 then
writeln ('Pri zaddannih znacheniyah kolichestvo elementov ravno 0')
else
begin
x:=x0;
Writeln ('Znacenie x':15,r,'Znachenie p':15,r,'Znachenie q':15,r);
Writeln ('':15,r,'v uravnenii':15,r,'v uravnenii':15,r);
Writeln ('':15,r,'p=1+x*x+x*x*x*x':15,r,'q=x*x*x+x':15,r);
Writeln (w);
for i:=1 to nx do
begin
p:=1+sqr(x)+(sqr(sqr(x)));
q:=x*x*x+x;
x:=x+hx;
writeln (x:15:2,r,p:15:2,r,q:15:2,r);
end;
end;
Writeln (w);
writeln;
writeln(' _ _ _ ') ; Writeln;
Write ('Nagmite [Enter] (c)_S');
Readln;
end.
|
Главная
Каталог файлов
