САБА? ЖОСПАРЫ «Бекітемін»
________________
О?у ісіні? ме?герушісі
К?ні: 30,31 ?а?тар, 5 а?пан 2015 жыл
П?н аты: Информатика
Класы: 8 «А», 8 «Б», 8 «В», 8 «Г»
Саба?ты? та?ырыбы: Циклді? ал?ы шарты, циклді? ілесу шарты
Саба?ты? ма?саты:
Білімділігі: О?ушыларды Паскаль тілінде циклдермен ж?мысістеу ?абілетін арттыру, программа ??ру?а да?дыландыру;
Дамытушылы?ы: О?ушыларды? Паскаль программалау тілінде есеп шы?ару м?мкіндіктерін, логикалы? ойлау ?абілеттерін дамыту;
Т?рбиелік: О?ушыларды тияна?тылы??а, ??ыптылы??а т?рбиелеу.
Саба?ты? т?рі: аралас саба?
Саба?ты? барысы:
1. ?йымдастыру
2. ?ткен материалды ?айталау
3. Компьютермен ж?мыс
4. Саба?ты бекіту
5. ?йге тапсырма
?ткен материалды ?айталау с?ра?тары
- ?айталау операторлары не ?шін ?олданылады?
- Цикл дегеніміз не?
- ?айталау операторларыны? ?анша т?рі бар?
- WHILE ?андай оператор?
- WHILE операторыны? жалпы жазылу т?рі ?андай?
- REPEAT ?андай оператор?
- REPEAT операторыны? жалпы жазылу т?рі ?андай?
- FOR ?андай оператор?
- FOR операторыны? жалпы жазылу т?рі ?андай?
Компьютермен ж?мыс
№7. Екі санны? кішісін табатын программа ??ру керек.
Program min;
Var a, b, min : integer;
Begin
Readln (a, b);
If a<b then min: = a else min : = b;
Writeln ( ‘ min = ‘, min) ;
End.
№8. ?ш санны? кішісін табатын программа ??ру керек.
Program min;
Var a, b, c, x, min : integer;
Begin
Readln (a, b, c);
If a<b then x: = a else x : = b;
If x<c then min: = x else min : = c;
Writeln ( ‘ min = ‘, min) ;
End.
№11. ?ш кесіндіні? ?зынды?тары берілген. Егер б?л ?ш кесіндіден ?шб?рыш ??ру м?мкін болса, онда оны? периметрін ж?не ауданын табы?дар.
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.
№16. Адам жасына ?арап, оларды ?лі мектепке барма?ан, мектеп о?ушысы, ж?мысшы, зейнеткер деген т?рт топты? біріне жат?ызатын программа ??ры?дар. Адам жасы пернета?тадан енгізіледі.
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.
№17. Екі сан берілген. Егер бірінші санны? абсолют шамасы екінші санны? абсолют шамасынан арты? болса, онда біріншісін бес есе азайту керек, ?йтпесе екі санды да ?згеріссіз экран?а шы?ару керек.
Program e7;
Var x, y : real;
Begin
Writeln (‘x, y-?);
Readln (x, y);
If abs (x)< abs(y) then x:=x/5;
Writeln (x:5:2, y:5:2);
Readln;
End.
Саба?ты бекіту с?ра?тары
- Цикл дегеніміз не?
- Циклді? алгоритмні? неше т?рі бар?
- Программаны? н?тижесін ?алай к?реміз?
?йге тапсырма: 6.1 тапсырма
