Программа Последовательность Фибоначчи с интерфейсом - PascalABC.NET
Формулировка задачи:
Сказали написать код для создания программы которая находит n-ое количество чисел в последовательности Фибоначчи и сказали создать для неё интерфейс в Pascal Windows Forms, просьба помочь с интерфейсом.
это код программы.
Решение задачи: «Программа Последовательность Фибоначчи с интерфейсом»
textual
Листинг программы
Unit Unit1; interface uses System, System.Drawing, System.Windows.Forms; type Form1 = class(Form) procedure button1_Click(sender: Object; e: EventArgs); {$region FormDesigner} private {$resource Unit1.Form1.resources} button1: Button; textBox1: TextBox; textBox2: TextBox; {$include Unit1.Form1.inc} {$endregion FormDesigner} public constructor; begin InitializeComponent; end; end; implementation procedure Form1.button1_Click(sender: Object; e: EventArgs); var n,a,b,c:integer; begin n:=strtoint(TextBox1.Text); TextBox2.ScrollBars:=ScrollBars.Horizontal; a:=0; TextBox2.Text:=inttostr(a)+' |'; b:=1; TextBox2.ScrollBars:=ScrollBars.Horizontal; TextBox2.Text:=TextBox2.Text+' '+inttostr(b)+' |'; for var i:=3 to n do begin if i<n then TextBox2.Text:=TextBox2.Text+' '+inttostr(a+b)+' |' else TextBox2.Text:=TextBox2.Text+' '+inttostr(b); c:=b; b:=a+b; a:=c; end; end; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д