13. Программаның қатесін тексер. Program ;
Var a:real;
Begin read(u,r);
A=sqr(u)/r;
Write(a);
End.
14. Есептің денесі берілген, басы мен аяғын толықтырып жаз. …………..
…………..
F:=m*A;
…………..
…………..
15. Программаның басы мен аяғы берілген, денесін жаз. Program audan;
Const m:=3.14;
Var k:integer; s:real;
Begin
……………
Writeln(‘audan s=’,s:6:4);
Readln end.
Алгебра пәнінен алынған есептер 1. Программа денесі берілген, басы мен аяғын жаз ……………
……………
Y:=sqr(x)+2*cos(x);
……………
……………
2. Құрылған программаның қатесін тексер Program tendeu;
Var 2,x:integer; real;
Begin read(x);
Y:=cos(sqrx+20 mod 10/sqrt(x);
Write(y);
End.
3. Есептің шарты берілген, программасын құр Y:=cosx+(x – ni becke bolgendegi ,utin boligi):√x+5;
4. Программаның басы мен аяғы берілген, денесін тап Program esep;
Var a,b:integer; c:real;
Begin readln(a,b);
………………
Writeln(c);
Readln end.
5. Программа құрылған, шартын жаз Program esep1;
Var x,y:real;
Begin read(x);
Y:=sqrt(sqr(x)+sqr(5))/sqr(sin(x))*3;
Write(y);
End.
6. Есептің шарты берілген, программасын құр y=sin(x-6x+8);
