Простейший цикл do & while.

@MadMen · Регистрация: 25.09.2009

Студворк — интернет-сервис помощи студентам

Есть:

C++
1
#include "Math.h"

C++
1
2
3
4
5
6
7
8
9
10
int a,b,c;
a=Edit1->Text.ToInt();
b=1;
do
{
 
"Пустота в моём логическом мышлении";
 
} while (a!=b);
Memo1->Lines->Add(c);

Требуется:

Если введено в переменную "a" число 3, то нужно получить ответ умножив переменную "b" на все целые положительные числа, которые идут перед переменной "а", включая её саму.
Пример:
a=3
c=3*2*1=6
---
a=4
c=4*3*2*1=24
---
a=5
c=5*4*3*2*1=120

Надеюсь суть понятна. Не понимаю как это реализовать

Добавлено через 51 минуту
Проблема решена, всем спасибо

@desp · 19.10.2009, 23:02

проблема зовется факториалом и, обычно, решается рекурсивно:

C++
1
2
3
4
5
6
7
int fact(int x){
 if(x>1){ 
 return x*fact(x-1);
 } else {
 return 1;          
} 
}

@MadMen · 19.10.2009, 23:10 **[ТС]**

Спасибо отдельное mirso за данный кусок:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a, b, c = 1;
 
    a = Edit1->Text.ToInt();
    b = 1;
 
    do//-----------------
    {
        c *= a--;
    } while ( a != b );
 
Memo1->Lines->Add(c);
}
//--------------------------------------------------------------------------

desp, Вам тоже благодарен

@desp · 19.10.2009, 23:40

Сообщение от MadMen

Спасибо отдельное mirso за данный кусок:

desp, Вам тоже благодарен

если уж так, имхо, правильнее было бы(последняя итерация а=1 => a-- ==0 => (bool)a=false)

C++
1
2
3
4
5
6
7
void __fastcall TForm1::Button1Click(TObject *Sender) 
{ 
int a,c =1;  a = Edit1->Text.ToInt();  do//-----------------     
{         
c *= a--;
}  while (a);  Memo1->Lines->Add(c); 
}

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .