Як зробити програму на delphi, яка б обчислювала факторіал?
Програма обчислює факторіал (Delphi)
У Delphi за допомогою циклів ви можете також створити і програму, яка б обчислювала факторіал практично миттєво! (І при цьому не потрібно використовувати різного роду математичні формули). Слідуючи інструкції, наведені нижче, ви також зможете зробити таку програму!
Інструкція
1 крок
Приблизно так і розташуйте всі три компоненти
Для того, щоб написати код для програми, що обчислює факторіал, будемо використовувати цикл While ... Do. Створіть нову форму у вікні вашої програми і закиньте зі вкладки standard наступні компоненти: Button, Edit, Label. Розташуйте їх приблизно так, як показано на скріншоті.
2 крок
Потім змініть властивість caption у форми, кнопки і 'edit'a на "Обчислення факторіала", "Обчислити факторіал" та "Відповідь" відповідно. А у компонента "Edit" очистіть властивість text, потім створіть обробник onclick і впишіть в нього наступне:
begin
Edit1.Clear-
end-
Для чого це, може з'явитися у вас питання? Це для того, щоб при натисканні на edit, дане поле редагування очищалося, щоб не видаляти написане в ньому за допомогою кнопки Back Space.
3 крок
Тепер важливий крок, в якому потрібно осмислити код! Створіть обробник onclick для кнопки і впишіть туди наступний програмний код:
var
a, b, c: real-
begin
a: = StrToFloat (Edit1.Text) -
b: = 1
c: = 1
while clt; = a do
begin
b: = b * c-
c: = c + 1;
Label1.Caption: = FloatToStr (b) -
end;
У Edit будемо вводити значення 'a'. Тобто факторіал якого числа потрібно обчислити за допомогою даної програми.
4 крок
Готова програма
Все програма готова, залишилося запустити її. Запустивши впишіть в "Edit" яке-небудь позитивне число і натисніть на кнопку "Обчислити факторіал", в "Label" e відобразиться відповідь! Ось так досить просто можна зробити програму на Delphi, яка б обчислювала факторіал!