$mymetatags$
Наш опрос |
Как показать числа фибоначчи в Delphi 7
Для этого кидаем на форму 2 компонента со вкладки Standard компонент Label компонент Button Клакаем по кнопке (Button) 2 раза и между procedure и begin пишем var i:integer; После begin gbiyv for i := 1 to 20 do label1.Caption := label1.Caption + Inttostr(fib(i))+', '; Ищем в коде надпись {$R *.dfm} и после нее пишем function fib(n:integer):integer; begin if n<2 then fib:=1 else fib:=fib(n-1)+fib(n-2); end; В итоге весь код должен выглядеть так unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function fib(n:integer):integer; begin if n<2 then fib:=1 else fib:=fib(n-1)+fib(n-2); end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin for i := 1 to 20 do label1.Caption := label1.Caption + Inttostr(fib(i))+', '; end; end. Скачать исходник
|
Друзья сайта |