Инф олимпиада doc


Құрылған программаның қатесін тексер



бет3/66
Дата08.02.2022
өлшемі91,93 Kb.
#123795
1   2   3   4   5   6   7   8   9   ...   66
Байланысты:
1544775476 (1)

3. Құрылған программаның қатесін тексер
Program;
Var X: integer; y:real;
Begin read (x,a);
Y:=sqr (x) + 2*a – sqr(p/2+5*sin(0.1));
End.

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.


Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   ...   66




©www.engime.org 2024
әкімшілігінің қараңыз

    Басты бет