Тәжірибелік-зертханалық жұмыс Саналатын типті және параметрлі циклді қолдану арқылы тапсырмалар шешу. Мақсаты
жүктеу/скачать 25,36 Kb.
|
Тәжірибелік
- Бұл бет үшін навигация:
- Run/Program Reset
- Бақылау сұрақтары
|
Тәжірибелік-зертханалық жұмыс Саналатын типті және параметрлі циклді қолдану арқылы тапсырмалар шешу. Мақсаты:Саналатын типті және параметрлі циклді қолдану арқылы тапсырмалар шешу 1. Delphi-ді іске қосыңыз. 2. Ашылған жобаға 1 Label компонентін,Edit және Button компонентін орналастырыңыз. 3. 1 Label компонентіне атынызды жазыңыз. 4. Бағдарламаны жүктеп, Button батырмасын басқан кезде, Label1 компонентіне есептің нәтижесі шықсын. 5. Ол үшін Button1 батырмасының код терезесіне төмендегі кодты теріңіз: procedure TForm1.Button1Click(Sender: TObject); Var a,i,s :real; begin
a:=StrToFloat(Edit1.Text); i:=1;
S:=0; While i<16 do begin s:= s + a; a:= a * 2; i:= i + 1; Label1.Caption:=FloatToStr(s); end;
end; end.
7. Қосымша тоқтап қалғанда оның жұмысын аяқтау үшін Run/Program Reset немесе Ctrl+F2 басамыз. 8. Жобаны келесі команда тізбегін орындай отырып сақтаңыз: File—Save project As…
Тапсырма№2.0.....100 дейінгі сандардың қосындысын табыңыз. Бақылау сұрақтары: Операторлардың қандай түрлерін білесіз? For операторының жазылу синтаксисі? Цикл түрлерінің айырмашылықтарын атаңыз? While - do операторының жазылу форматы? Repeat және Until операторымен While - do операторының қандай айырмашылығы бар? Repeat және Until операторының жазылу форматы? жүктеу/скачать 25,36 Kb. Достарыңызбен бөлісу:
|