підпрограма

Приклад 1:
c=c->next; // Переходження до наступного елемента if(k!=0) sr=(float)s/k; return sr; // Повертання середнього арифметичного // Очищення пам’яті від стека // (використовується підпрограма вилучення вершини стека) void clean() while(root!=0) // Допоки стек є непорожній (вершина не 0), del(); // вилучення вершини. //Кнопка “Долучити” void __fastcall TForm1::Button1Click(TObject *Sender) add(StrToInt(Edit1->Text)); // Кнопка “Створити” void __fastcall TForm1::Button2Click(TObject *Sender) int n=Memo1->Lines->Count; Розділ 12 416 for(int i=0; iLines->Strings[i])); // Кнопка “Вилучити” void __fastcall TForm1::Button3Click(TObject *Sender) del(); print(); // Кнопка “Переглянути” void __fastcall TForm1::Button4Click(TObject *Sender) print(); // Кнопка “Розв’язок” void __fastcall TForm1::Button5Click(TObject *Sender) if(root==0) ShowMessage(“Стек є порожній”); return; Edit2->Text=FloatToStr(srednee()); while(root != 0 && root->x <= 0) del(); // Кнопка “Очистити”. --- Невідомий автор, "132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech"