Лабораторная работа №7
“Циклы”
Вариант – 14
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Автор: SlavikS
Program lab_7;
{laba n7 var 14
Programma dlya rascheta dvoinoi summi
Nadoelo povtoryat`sya, no.... pros`ba menyat` cod programmi... Udachi!!! :)
}
uses crt;
const t=' ';
var a,k,s,hx,xn,x1:real;
i,j:integer;
begin
clrscr;
writeln (t,'Vveidite nachalo otscheta');
readln (x1);
writeln;
writeln (t,'Vvedite konec otscheta');
readln (xn);
writeln;
writeln (t,'Vvedite shag');
readln (hx);
clrscr;
writeln('_________________________________________________________');
writeln (t,'Pri zacone izmeneniya ',x1:3:2,'(',hx:3:2,')',xn:3:2);
writeln (t,' znachenie virageniya budet');
a:=x1;
s:=0;
repeat
i:=1;
while i<=10 do begin
j:=1;
while j<=i do begin
k:=i/(j+abs((exp(j)*ln(abs(a)))));
S:=s+k; j:=j+1;
end;
i:=i+1;
end;
a:=a+hx;
until a>xn;
write (t,' ravno ');
Writeln (S:3:2);writeln;
writeln(' Nagmite [Enter] ');
readln;
end.
|
Главная
Каталог файлов
