136. Написать программу, которая вычисляет пи с заданой пользователем тоностью.

Program m38;

var

n:integer;

i,el,p,t:real;

begin

p:=0;

n:=1;

el:=1;

writeln('Задайте точность вычисления ПИ');

readln(t);

writeln('Вычисление ПИ с точностью',t:9:6);

while el>=t do

begin

el:=1/(2*n-1);

if (n mod 2)=0 then

p:=p-el

else

p:=p+el;

n:=n+1;

end;

p:=p*4;

writeln('Значение ПИ с точностью',t:9:6,'равно',p:9:6);

writeln('Просуммировано',' ',n,' ','членов ряда.');

readln;

end.

137. Написать программу, которая вычисляет наибольший общий делитель двух целых чисел.

Program m39;

var

n1,n2,n,no,r:integer;

begin

writeln('Вычисление наибольшего общего делителя!');

writeln('Для двух целых чисел');

writeln('Введите в одной строке два числа');

write('->');

readln(n1,n2);

while (n1 mod n2)<>0 do

begin

r:=n1 mod n2;

n1:=n2;

n2:=r;

end;

no:=n2;

writeln('Делитель чисел',' ',n1,' ','и',' ',n2,' ','это',' ',no);

readln;

end.

Вход

p:=0; n:=1; el:=1;

writeln('Задайте точность вычисления ПИ');

readln(t);

writeln('Вычисление ПИ с точностью',t:9:6);

while el>=t

el:=1/(2*n-1);

if (n mod 2)=0 then

p:=p-el

p:=p+el;

n:=n+1;

p:=p*4;

writeln('Значение ПИ с точностью',t:9:6,'равно',p:9:6);

writeln('Просуммировано',' ',n,' ','членов ряда.');

Выход

Вход

writeln('Вычисление наибольшего общего делителя!');

writeln('Для двух целых чисел');

writeln('Введите в одной строке два числа');

write('->'); readln(n1,n2);

while (n1 mod n2)<>0 doф

r:=n1 mod n2;

n1:=n2;

n2:=r;

writeln('Делитель чисел',' ',n1,' ','и',' ',n2,' ','это',' ',no);

no:=n2;

Выход