Бақылау жұмысы 9-сыныпқа арналған

«Ә.Махутов атындағы мектеп-балабақша кешені» КММ

Информатика пәнінен 9-сынып бойынша бақылау жұмысы

Компьютермен жұмыс

І нұсқа

№1. Екі санның үлкенін табатын программа құр.                        

Program max;

Var a, b, max: integer;

Begin

Readln (a,b);

If a>b then max:= a else max:=b;

Writeln (‘ max= ’ , max);

End.                    

№2. Үш кесіндінің ұзындықтары берілген. Егер бұл үш кесіндіден үшбұрыш құру мүмкін болса, онда оның периметрін және ауданын табыңдар.

Program e5;

Var a, b, c : integer;

P1, p, s: real;

Begin

Readln (a, b, c);

If a+b>c then p1: = a+b+c ;

P:= (a+b+c)/2;

S:=sqrt (p*(p-a)*(p-b)*(p-c));

Writeln ( ‘ p1= ‘ , p1:5:2) ;

Writeln (‘ s=’,s:5:2);

End.

№3. Жаяу адам құрлықта 1 км/сағ, тауда 2 км/сағ, тау етегінде 3 км/сағ жылдамдықпен қозғалды. Кеткен уақыттары t1,t2,t3. Жүрген жолдарын есептеу үшін алгоритм құрыңыз. 

Program esep;

Var v1,v2,v3,t1,t2,t3:integer; s1,s2,s3:real;

Begin

Writeln(‘v1=’,v1);

Writeln(‘v2=’,v2);

Writeln(‘v3=’,v3);

S1:=v1*t1;

S2:=v2*t2;

S3:=v3*t3;

S:=s1+s2+s3;

Writeln(‘s=’,s);

End.

«Ә.Махутов атындағы мектеп-балабақша кешені» КММ

Информатика пәнінен 9-сынып бойынша бақылау жұмысы

Компьютермен жұмыс

ІІ нұсқа

№1 Екі санның кішісін табатын программа құру керек.

Program min;

Var a, b, min : integer;

Begin

Readln (a, b);

If a

Writeln ( ‘ min = ‘ , min) ;

End.

№2. Адам жасына қарап, оларды әлі мектепке бармаған, мектеп оқушысы, жұмысшы, зейнеткер деген төрт топтың біріне жатқызатын программа құрыңдар. Адам жасы пернетақтадан енгізіледі.

Program e6;

Var x : integer;

Begin

Writeln (‘ adam jasin engiz’ );

Readln (x);

If x<=6 then writeln (‘ ali mektepke barmagan’ ) else

If (x>6) and (x<=17) writeln (‘ mektep okushisi ‘) else

If (x>17) and (x<58) writeln (‘ jumisshi’) else writeln (‘ zeinetker’);

End.                                                                               

№3.Үш натурал сан берілген. Олардың

тең сандар болмаса, «жоқ» деп, егер олардың екеуі бір-біріне тең болса (иә(, деп, ал үшеуі де бірдей сан болса, «бәрі тең» деп жазу керек.

Var a,b,c:integer;

Begin

Writeln(‘a- sanin engiz’);

Read`(a);

Writeln(‘b- sanin engiz’);

Read`(b);

Writeln(‘c- sanin engiz’);

Read`(c);

If (a<>b) and (b<>c) and (a<>c) then writeln(‘zhok’) else if (a=b) and (b=c) and (a=c) then writeln(‘bari ten’) else writeln(‘ekeui ten’);

End.