1-тапсырма. Өрнектің мәнін табыңдар: а
Математикалық жазылуы:
Алгоритмі Программасы: алг өрнек (бүтін а, нақты у) program esep1;
арг а, в var a,y:integer;
нәт у
басы begin
енгізу а a:=2;
У:= y:=
шығару у write (‘y=-‘y);
readln;
соңы end.
2-тапсырма. Егер ауаның 21% оттегіні құраса, онда авс өлшеміндегі бөлмедегі оттегінің көлемі қанша болды? а=3, в=4,с=5.
Математикалық жазылуы: V=0,21*3*4*5=12,6
Алгоритмі Программасы алг химия ( нақты а, в, с, нәт v) program hymia;
арг а, в, с var a,b, c, v: real;
басы begin
енгізу а, в, с a:=3: b:=4: c:=5;
V=0,21*3*4*5=12,6 V:=0.21*a*b*c;
шығару V write (‘v=‘v);
readln;
соңы end.
3-тапсырма. Сызықтық программаларда жіберілген қатені тап. /Әр топ екі жолдың қатесін табады/.
Program kateny tavu Program kateny tavu;
Var m=integer, a:byte Var m:integer; a,f:byte;
Begin; Begin
M=3.8, a=14.3: f:=m*a M:=3.8; a:=14.3;f:=m*a;
Writeln(‘f=,f:4:1) Writeln(‘f=’,f:4:1);
