- Преподавателю
- Информатика
- Бақылау жұмысы 9-сыныпқа арналған
Бақылау жұмысы 9-сыныпқа арналған
Раздел | Информатика |
Класс | 9 класс |
Тип | Конспекты |
Автор | Кобенгалиева Р.М. |
Дата | 25.12.2015 |
Формат | docx |
Изображения | Нет |
«Ә.Махутов атындағы мектеп-балабақша кешені» КММ
Информатика пәнінен 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.