Лабораторная работа №6
“Оператор Repeat; File; Until”
Вариант – 14
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков, стр. 140)
Автор: SlavikS
Program Lab_5;
{lab n 5 variant N 14
Kak vsegda pros`ba izmenit` hot` malen`ko textprogrammi
i popitat`sya hot` manen`ko ponyat` chto k chemu ;))
Xren znaet pochemu, no proga rabotaet ne sovsem korectno
(a peresmatrivat` cod programmi mne uge len`),
ne vvodite bol`shie znacheniya e, moget vivesti nevernii rezulatat :(
}
var
e,x,x1,x2,s: real;
i: integer;
begin
Writeln ('Vvedite znacenie x ot -1 do 1');
readln (x);writeln;
if (x<1) and (x>-1) then
begin
Writeln ('Vvedite pogrehnost izmereniya');
readln (e);writeln;
Writeln ('Pri zna4enii x=',x:5:2);Writeln;
Writeln ('pogrehnosti e=',e:10:10);
x1:=x;
i:=0;
s:=x1;
repeat
i:=i+1;
x2:=x1;
x1:=x2*(-(x*x*(2*i-1)/(2*i+1)));
s:=s+1;
until abs(x2-x1)
writeln;
writeln ('arctg(x)=',s:3:2);writeln;
end
else writeln ('4itay vnimatel`no USLOVIE!!!!!'); Writeln;
Writeln (' Nagmi [Enter] (c)_S');
readln;
end.
|
Главная
Каталог файлов
