Tasdiqlayman” Qo`shtepa ixtisoslashtirilgan maktabi mmibdo` S.
IV. Mustahkamlash uchun savol va topshiriqlar Chiziqli dastur deganda nimani tushunasiz?
Qanday operatorlardan foydalanib muloqat dasturlari tuzish mumkin?
Nima uchun dasturda soniga qiymat berish shart emas?
Chiqarish formati haqida so‘zlab bering.
Ekrandagi natijani ko‘rish uchun qaysi klavishlar juftligi bosiladi?
Mashqlar 1. Quyidagi chiziqli dasturlarni ishini izohlang va natijasini aniqlang.
a)
Var a,b:String;
Begin
a:= ‘O`zbekiston ‘;
b:= ‘Davlat‘;
WriteLn(a, ‘Mustaqil ‘, b);
End.
b)
var a,b:Integer; s:Real;
Begin a:=4;
a:=sqr(a); b:=b–a;
s:=2*a+3*b;
WriteLn(‘S= ‘,s);
End.
Natija: O`zbekiston Mustaqil Davlat
Natija: S=-1.6000000000E+01
2. Quyida trapetsiya yuzini hisoblash dasturi tartibsiz yozilgan. Operatorlarni mantiqan to‘g‘ri ketma-ketlikda joylashtiring.
Program trapesiya_yuzi;
Var a,b,h:Integer; p,s:Real;
Begin Write(‘A,B,H qiymatlarni kiriting: ‘);ReadLn(a,b,h);
p := (a+b) /2; s := p * h; WriteLn(‘S =’, s,‘kvadrat birlik‘);
End.
3. Uchburchakning a, b tomonlari va ular orasidagi burchak berilgan. Uchburchakning yuzini hisoblash dasturini tuzing.
Program uchburchak_yuzi;
Var a,b, alfa: real;
Begin
Write(‘a tomon uzunligini kiriting: ’); readln(a);
Write(‘b tomon uzunligini kiriting: ’); readln(b);
Write(‘alfa burchak kattaligini kiriting: ’); readln(alfa);
S:=a*b*sin(alfa)/2;
Writeln(‘S=’,s:5:2,’ kvadrat birlik.’);
Readln; end.