3 Обьектілі бағдарланған программалау тілін оқыту әдістемесі
жүктеу/скачать 0,88 Mb.
|
Delphi программалау тілін оқыту әдістемесі
| 1-тапсырма. Факториалды есептеу. Программа енгізу өрісіндегі санның факториалын есептеу керек (есептеу үшін рекурсивті функция қолданылады).
Төменде (2.1.15-сурет) санның факториалын есептеу терезесі келтірілген. Тапсырманы орындау алгоритмі: 2.1.15-сурет. Факториалды есептеу терезесі 1. Жаңа жобаны ашып, пішіннің Caption қасиетіне «Факториалды есептеу» деген мәнді жазыңыз. 2. Пішінге Edit1, Label, Label2, Button1 компоненттерін орналастырыңыз. Label компонентінің Caption қасиетіне «Санды енгіз», Button1 батырмасына «Есептеу» мәндерін жазыңыз. Label2-нің Caption қасиетін, Edit1-дің Техт қасиетін тазалаңыз. 3. Код терезесін ашып, оның ішіндегі
жолдарынан кейін келесі функцияны жазыңыз: // рекурсивті функция function factorial(n: integer): integer; begin if n > 1
then factorial := n * factorial(n-1) // функция өзін өзі шақырады else factorial:= 1; // 1 факториал 1-ге тең end;
procedure TForm1.Button1Click(Sender: TObject); var k:integer; // факториалды есептеге қажет сан f:integer; // k саны факториалының мәні begin
k := StrToInt(Edit1.Text); f := factorial(k); label2.caption:='Санның факториалы '+Edit1.Text +' тең болады:'+IntToStr(f); end; end.
Төменде (2.1.16-сурет) осы программаның блок-схемасы көрсетілген: 2.1.16-сурет. Программаның блок-схемасы Жобаны сақтап, қосымшаны орындауға жіберіңіз. жүктеу/скачать 0,88 Mb. Достарыңызбен бөлісу:
|