3 Обьектілі бағдарланған программалау тілін оқыту әдістемесі

Төменде (2.1.15-сурет) санның факториалын есептеу терезесі келтірілген.

2.1.15-сурет. Факториалды есептеу терезесі

2. Пішінге Edit1, Label, Label2, Button1 компоненттерін орналастырыңыз. Label компонентінің Caption қасиетіне «Санды енгіз», Button1 батырмасына «Есептеу» мәндерін жазыңыз. Label2-нің Caption қасиетін, Edit1-дің Техт қасиетін тазалаңыз.

3. Код терезесін ашып, оның ішіндегі

implementation

{$R *.dfm}

жолдарынан кейін келесі функцияны жазыңыз:

// рекурсивті функция

function factorial(n: integer): integer;

begin

if n > 1

else factorial:= 1; // 1 факториал 1-ге тең

end;

4.Button1 батырмасын екі рет шертіңіз. Пайда болған процедураның дайындамасына келесі кодты жазыңыз:

procedure TForm1.Button1Click(Sender: TObject);

var

k:integer; // факториалды есептеге қажет сан

begin

f := factorial(k);

label2.caption:='Санның факториалы '+Edit1.Text

+' тең болады:'+IntToStr(f);

end.

2.1.16-сурет. Программаның блок-схемасы

5. 
   Жобаны сақтап, қосымшаны орындауға жіберіңіз.