Реализация задания в оконном приложении. Вид формы и полученные результаты представлены на рисВид формы и полученные результаты представлены на рис. 1.1. Компонента Edit 1 используется для ввода n, а компоненты Edit 2 и Edit 3 – для вывода результатов. Листинг программы может иметь следующий вид: Блок-схема функции-обработчика Button1Click представлена на рис. 1.2. ... double Faktorial(int); double Faktorial_R(int); //--------------------- Кнопка START --------------------------------------------- void __fastcall TForm1:: Button1Click(TObject *Sender) { int n = StrToInt(Edit1-> Text); switch(RadioGroup1-> ItemIndex) { case 0: Edit2-> Text = FloatToStrF(Faktorial_R(n), ffFixed, 8, 1); break; case 1: Edit3-> Text = FloatToStrF(Faktorial(n), ffFixed, 8, 1); break; } } //------------------ Функция без рекурсии --------------------------------------- double Faktorial(int n) { double f = 1; for (int i = 1; i < = n; i++) f *= i; return f; } //------------------- Рекурсивная функция ---------------------------------------- double Faktorial_R(int n) { if (n < 2) return 1; else return n*Faktorial_R(n-1); }
Рис. 1.1
Рис. 1.2
Блок-схемы функций пользователя Faktorial _ R и Faktorial представлены на рис. 1.3.
Рис. 1.3
|
