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.