| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите, пожалуйста, разобраться! [D7, XP]

Страницы:   < 1 2 >

Санёк77 ©   (2007-05-08 20:14:00) 

Не врубаюсь, как с помощью операторов if и while посчитать факториал, например, 50! Скажите, кто знает, please!

---

homm   (2007-05-09 11:04:00) [21]

> var F, J: Extended;

Огромная нарастающая ошибка. Нужно длинную арифметику применять.

---

Санёк77   (2007-05-08 20:38:00) [22]

Thank's! Вроде разобрался..

---

{RASkov}   (2007-05-08 20:35:00) [23]

var F, J: Extended; K: Integer;
begin
 F:=50; J:=1; K:=1;
 while True do begin
  J:=J*K; INC(K);
  if K>F then Break;
 end;
 ShowMessage(FloatToStr(J));
end;

---

Страницы:   < 1 2 >

Наверх