Program Markovsp1; uses crt; const eps=0.001; var t,s:real; i:integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); writeln(); writeln('Программа вычисляет частичную сумму ряда '); writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... '); writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001'); используется цикл repeat'); writeln(); s:=0; i:=1; repeat t:=1/((i)*(i)); s:=s+t; //writeln('i=',i,' T=',t:0:6,' S=',s:0:6); i:=i+1; until abs(t)<eps; writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6); writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6); end.
Program Markovsp2; uses crt; const eps=0.001; var t,s:real; i:integer; begin writeln('*** alphaues is thinking... ***'); writeln('*** OK ***'); writeln(); writeln('Программа вычисляет частичную сумму ряда '); writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... '); writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001'); используется цикл while'); writeln(); s:=0; i:=1; t:=1; while t>eps do begin t:=1/(i*i); s:=s+t; //writeln('i=',i,' T=',t:0:6,' S=',s:0:6); i:=i+1; end; writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6); writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6); end.
А)Начало -> Ввод массива -> Ввод X -> Ввод Y -> Если X>Y ->no->End ->yes-> p=0 -> ∨-> если элемент массива (p) > X, элемент массива (p) = X -> если элемент массива (p) < Y, элемент массива (p) = Y -> p = p + 1 -> если p больше размера массива если нет -> Возврат на ∨ если да -> Вывод массива -> Конец
б)Начало -> Ввод массива -> p=0 -> ∨-> если элемент массива (p) %(остаток от деления на) 3=0 ->yes-> ->no-> элемент массива (p) =элемент массива (p)%3 ->p=p+1 ->если p больше размера массива если нет -> Возврат на ∨ если да -> Вывод массива -> Конец
Program Markovsp1;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл repeat');
writeln();
s:=0;
i:=1;
repeat
t:=1/((i)*(i));
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
until abs(t)<eps;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.
Program Markovsp2;
uses crt;
const
eps=0.001;
var
t,s:real;
i:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Программа вычисляет частичную сумму ряда ');
writeln(' S=1+1/(2^2)+1/(3^2)+1/(4^2)+... ');
writeln('Вычисление прекратится, когда модуль очередного слагаемого станет меньше 0,001');
используется цикл while');
writeln();
s:=0;
i:=1;
t:=1;
while t>eps do
begin
t:=1/(i*i);
s:=s+t;
//writeln('i=',i,' T=',t:0:6,' S=',s:0:6);
i:=i+1;
end;
writeln('s=',s:0:6,' (pi^2)/6=',(pi*pi)/6:0:6);
writeln('Приближение к (pi^2)/6 равно ',s-(pi*pi)/6:0:6);
end.