09.11.2013, 16:30
|
Прохожий
|
|
Регистрация: 09.11.2013
Сообщения: 2
Версия Delphi: Delphi 7
Репутация: 10
|
|
Переделать код с одного оператора цикла в другой
Помогите пожалуйста переделать готовый код. Но что бы в нем использовались операторы цикла "while do" а не "repeat until".
Код:
{$APPTYPE CONSOLE}
uses
SysUtils;
function fact(x: Integer): Integer;
begin
if x=1 then
fact:=1
else
fact:=fact(x-1)*x;
end;
const e=10e-5;
var x,s,sk:real;
k:integer;
begin
readln(x);
sk:=1;
s:=1;
k:=0;
writeln('e = ',e:0:4);
repeat
k:=k+1;
sk:=-sk*x*x/((2*k-1)*fact(2*k));
s:=s+(2*k*k+1)*sk;
writeln('chlen[',k,'] = ',sk*(2*k*k+1):0:5);
until (abs(sk*(2*k*k+1))<e);
writeln('s = ',s:0:5,', k = ',k);
readln
end.
|