1. Sintaksisga kirish Dastur yaratish muhiti

Blok sxema

Mazkur blok sxema algoritmning bitta qadamini amalga oshiruvchi protsedurani ifodalaydi. To‘liq natijaga erishish uchun bu protsedura 24 marta bajarilishi kerak. Buning uchun «Stroka» tugmachasi ko‘p marotaba bosiladi yoki «Pusk/Pauza» tugmachasi yordamida ishga tushiriluvchi taymer algoritmining bajarilishi bilan amalga oshiriladi. Bu protsedura bajarilganda A massiv masalaning birinchi qatorini hosil qiladi, ya’ni massaivning birinchi va ikkinchi elementlari bir, boshqalari nollar. Undan tashqari dastur o‘lchami A bilan ustma-ust tushadigan yordamchi A1 massivni hosil qiladi.

Dastur kodi

int A[26]; // massiv

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
for(int i = 0; i<26; i++)
{
A[i] = 0;
}
A[0] = 1;
A[1] = 1; // massivni initsalizatsiya qilish
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(A[25] == 0)
{
int A1[26];
AnsiString s = "";
int i = 1;

A1[0] = 1;

while(A[i] != 0)
{
A1[i] = A[i] + A[i-1];
i++;
}
A1[i] = 1;

for(int j = 0; j <= i; j++)

{
A[j] = A1[j];
s = s + IntToStr(A[j]) + ' ';
}
Memo1->Lines->Add(s);
}
} //asosiy protsedura
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if(Button2->Caption == "Pusk")
{
Button2->Caption = "Pauza";
}
else
{
Button2->Caption = "Pusk";
} // taymerni aktivlashtirish
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(Button2->Caption == "Pauza") //aktivlikka tekshirish
{
Button1->Click(); // asosiy protsedurani chaqirish
}
}