4. Программа құрылған, шартын өзің жаз. Program taban;
Var a,b,c:integer; s:real;
Begin read(a,b,c);
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Write(s);
End.
5. Программаның басы мен аяғы берілген, денесін тап. Program paralli;
Var p,s:integer; h:real;
Begin read(p,s);
…………….
Write(h);
End.
6. Есептің шарты берілген, программасын құр. Тік төртбұрыштың екі қабырғасы берілген. Оның ауданын табатын программа жаз.
7. Программасы берілген, шартын жаз. Program uzyndyk;
Const m:=3.14;
Var r,l:real;
Begin read;
R:=5.5;
L:=2*pi*r;
Write(‘radiusy 5.5 cm bolatyn shenber uzyndygy 35cm’);
End.
8. Программаның қатесін тап. Program san;
Var x,y:integer; k:real;
Begib read(x,y);
Sqr(r)=(sqr(x)+sqr(y));
Write(r);
End.
9. Программа денесі берілген, басы мен аяғын толықтыр. ....................
....................
....................
P:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
V:=s*4/3;
…………….
…………….
10. Басы мен аяғы берілген, денесін құрастыр. Program ktb;
Var r,r1,h,l,v,s:real;
Begin
Writeln(‘radiustarymen biktikti’);
Readln(r,r1,h);
…………
Writeln(‘konus parametrleri’);
Writeln(‘r=’,r:3, r1=’,r1:3, h=’,h);
Writeln(‘v=; v:8:P3;’3;,’s=’,s:8:3);
End.
