Презентация, практическая работа, образец готового проекта по теме "Использование итерации и рекурсии в среде Lazarus"
Итерация и рекурсия (Использование в среде
Итерация и рекурсия
(Использование в среде Lazarus)
Вспомним… Какие подпрограммы называются рекурсивными?
Вспомним…
Какие подпрограммы называются рекурсивными?
Приведите пример использования рекурсии в математики, информатики.
Что такое итерация?
Функция (процедура) которая в процессе выполнения обращается сама к себе, называется рекурсивной
Функция (процедура) которая в процессе выполнения обращается сама к себе, называется рекурсивной.
Итерация в программировании — организация обработки данных, при которой действия повторяются многократно, не приводя при этом к вызовам самих себя (в отличие от рекурсии).
Когда какое-то действие необходимо повторить большое количество раз, в программировании используются циклы. Один шаг (повтор) цикла – итерация.
Пример Классический пример использования итерации (1 способ) и рекурсии (2 способ) – вычисление факториала числа
Пример
Классический пример использования итерации (1 способ) и рекурсии (2 способ) – вычисление факториала числа.
N! = 1*2*3*…*(N-1)*N
Для размещения компонентов используется объект
Для размещения компонентов используется объект PageControl (вкладка) с панели инструментов Common Controls
TForm1.Edit1EditingDone(Sender:
1 способ – использование итерации
procedure TForm1.Edit1EditingDone(Sender: TObject);
var N, i: byte;
p:int64; // наибольший целый тип в Object Pascal
begin
N:=strtoint(edit1.text); // ввод числа
Listbox1.Items.Clear; // очистка списка
p:=1;
for i:=1 to N do
begin
p:= p*i;
Listbox1.Items.Add(inttostr(i)+'!='+inttostr(p));
end;
end;
TForm1.Edit2EditingDone(Sender:
2 способ – использование рекурсии
procedure TForm1.Edit2EditingDone(Sender: TObject);
var N,i:byte;
Function fact(A: byte):int64;
begin
< вписать операторы тела цикла самостоятельно>
end;
begin
N:=strtoint(edit2.text);
Listbox2.Items.Clear;
for i:=1 to N do
listbox2.Items.Add(inttostr(i)+'!='+inttostr(fact(i)));
end;
© ООО «Знанио»
С вами с 2009 года.
