| Yangi mavzuni mustahkamlash:
1. Quyidagi chiziqli dasturlarning ishini izohlang va natijasini aniqlang.
a) Var a,b:String; b) var a,b:Integer; s:Real;
Begin Begin a:=4;
a:= 'O'zbekiston a:=sqr(a); b:=b~a;
b:= 'Davlat'; s:=2*a+3*b;
WriteLn(a, 'Mustaqil b); WriteLn('S= ',s);
End. End.
2. Quyida trapetsiya yuzini hisoblash dasturi tartibsiz yozilgan. Operatorlarni mantiqan to'g'ri ketma-ketlikda joylashtiring.
p := (a+b) /2; s := p * h; Program trapesiya_yuzi; End. WriteLn('S =', s,'kvadrat birlik');ReadLn(a,b,h); Begin Write('A,B,H qiymatlarni kiriting: '); Var a,b,h: Integer; p,s:Real;
Uyga vazifa: Mavzuni o’rganib kelish.3-mashqni bajarish.
3. Uchburchakning a, b tomonlari va ular orasidagi a burchak berilgan. Uchburchakning yuzini hisoblash dasturini tuzing.
Sana :__________________
Sinf :___________________
| 