10-Sinf. 36-dars. Sana: I. Mavzu: Delphi dasturlash muhiti

Forml.Caption:='('+IntToStr(Forml.Height)+'*'+IntToStr(Forml.Wide)+')^r;

Unga ilovaning haqiqiy nomini ham qo‘shib qo‘yamiz: Forml.Caption:='Uchinchi ilova'+ Forml.Caption;

Buttonl tugmasini ikki marta bosib, dastur kodi oynasini chaqiramiz va oxirgi ikki satrni unga qo‘shib qo‘yamiz:

If Forml.Width<600 then begin

Forml.Width:=Forml.Width+16;

Forml.Height:=Forml.Height+9; End else

ShowMessage('Oyna boshqa kengaymaydi');

IntToStr(Forml.Height)+*+IntToStr(Forml*Width)+);'> Forml.Caption:='('+IntToStr(Forml.Height)+'*'+IntToStr(Forml*Width)+')';

Forml.Caption:='Uchinchi ilova '+ Forml.Caption;

4. Darsni mustahkamlash va yakunlash:

1. Ikkinchi ilovaning kamchiligi nimada? 2. ShowMessage qanday vazifani bajaradi?

3. IntToStr funksiyasi qanday vazifani bajaradi?

5. O'quvchilarni baholash: Faol qatnashgan o’quvchilarni baholash va ularni jurnalga qayd etish.

6. Uyga topshiriq: 95-bet 1-mashqni bajarish.