Тәрбиелік: Оқуыларды адамгершілікке, патриоттыққа, ұқыптылық жауапкершілдікке
тәрбиелеу.
Сабақтың түрі: практикалық сабақ
Сабақтың барысы:
1. Ұйымдастыру
2. Өткен материалды қайталау
3. Жаңа сабақты түсіндіру
4. Сабақты бекіту
5. Үйге тапсырма
Өткен материалды қайталау сұрақтары
Құрылымдық операторларға қандай операторлар жатады?
Олар неше топқа бөлінеді?
Қарапайым және құрылымдық операторлардың айырмашылығы неде?
Паскаль тілінде операторлық жақша дегеніміз не?
Шартты оператордың қандай түрлері бар?
Іf операторының жалпы жазылу түрі қандай?
Таңдау операторы не үшін пайдаланылады?
Компьютермен жұмыс
№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 max;
Var a, b, c, x, max: integer;
Begin
Readln (a, b, c);
If a>b then max:= x else max:=c;
Writeln (‘ max= ’ , max);
End.
№3 Екі санның кішісін табатын программа құру керек.
Program min;
Var a, b, min : integer;
Begin
Readln (a, b);
If aWriteln ( ‘ min = ‘ , min) ;
End.
№4. Үш санның кішісін табатын программа құру керек.
Program min;
Var a, b, c, x, min : integer;
Begin
Readln (a, b, c);
If aIf xWriteln ( ‘ min = ‘ , min) ;
End.
№5 Үш кесіндінің ұзындықтары берілген. Егер бұл үш кесіндіден үшбұрыш құру мүмкін болса, онда оның периметрін және ауданын табыңдар.
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.
№6. Адам жасына қарап, оларды әлі мектепке бармаған, мектеп оқушысы, жұмысшы, зейнеткер деген төрт топтың біріне жатқызатын программа құрыңдар. Адам жасы пернетақтадан енгізіледі.
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.
№7. Екі сан берілген. Егер бірінші санның абсолют шамасы екінші санның абсолют шамасынан артық болса, онда біріншісін бес есе азайту керек, әйтпесе екі санды да өзгеріссіз экранға шығару керек.
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.
№8.Пернетақтадан трамвай билетінің нөмірі (1 орынды 6 сан ) енгізіледі. Билет «бақытты» нөмір болатынын анықтаңдар. Бақытты билеттің алғашқы 3 цифрының қосындысы соңғы 3 цифрының қосындысына тең болады.
Program e8;
Var x, y, z, r, k, t, s, n : integer;
Begin
Read (x, y, z, r. k. t );
S:= x+y+z;
N:= r+k+t;
If S= N then writeln (‘ bakitti nomer’) else writeln (‘ bakitti nomir emes’);
End.
Достарыңызбен бөлісу: |
