Из do while в repeat - Помощь студентам

Prostooo · 23.11.2015, 09:49

Помогите пожалуйста перевести код из do while в repeat

Код:

var s,x:real;
    fact:longint;
    c,j:integer;
begin
x:=5.99;
fact:=1;
s:=1;
while(s>0.001) do begin
  for c:=1 to j do fact:=fact * c;
  s:=(Sqr(x)+Sqr(j))/fact;
  j:=j+1;
end;
writeln(s:4:20);
end.

Аватар · 23.11.2015, 09:54

Код:

repeat
...
until s<=0.001;

Prostooo · 23.11.2015, 09:57

Большое спасибо.

23.11.2015, 09:49	#1
Prostooo Регистрация: 23.11.2015 Сообщений: 3	Из do while в repeat Помогите пожалуйста перевести код из do while в repeat Код: `var s,x:real; fact:longint; c,j:integer; begin x:=5.99; fact:=1; s:=1; while(s>0.001) do begin for c:=1 to j do fact:=fact * c; s:=(Sqr(x)+Sqr(j))/fact; j:=j+1; end; writeln(s:4:20); end.`

23.11.2015, 09:54	#2
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `repeat ... until s<=0.001;` Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
While and repeat	Expert	Фриланс	1	07.07.2009 18:45
While and repeat	Linker88	Фриланс	4	19.05.2009 20:33
repeat ... until	08ekhiv1	Помощь студентам	3	17.03.2009 16:42
repeat until	4ERRY	Помощь студентам	7	21.02.2009 21:38
Repeat	Наталья111	Общие вопросы Delphi	7	06.01.2009 19:44

23.11.2015, 09:57	#3
Prostooo Регистрация: 23.11.2015 Сообщений: 3	Большое спасибо.