Және, немесе, емес қызметші сөздерімен біріктірілген, бірнеше қарапайым шарттардан тұратын шарттар құрама шарттар деп аталады. Логикалық операциясы бар күрделі шарт қарапайым шарттардың екеуі де орындалған жағдайда ғана ақиқат деп есептеледі.
Pascal тілінде логикалық операцияларды енгізейік:
және немесе
емес
and
or
not
Мысал:
Алг ЕСҮТ(арг нақ А,В, нәт лит max)
басы
енгізу А,В
егер А>B
онда max:=A
әйтпесе max: =В
бітті
шығару max
Соңы
Жауабы:
Program ECYT;
Var a,b,y:real;
begin
readln(a,b);
if a>b then y:=a else y:=b;
writeln(‘y=‘,y);
end.
2 мысал:
Program esep2;
var a,b,c,d:real;
begin
writeln(‘a,b,c engis’);
readln(a,b,c);
D:=sqr(b)-4*a*c
If d>0 then begin x1:=(-b+sqrt(d))/2*a;
x2:=(-b-sqrt(d))/(2*a)’);
Writeln(‘x1=‘,x1:4:2); Writeln(‘x2=‘,x2:4:2);
end;
Else if D=0 then begin x:=-b/2*a;
end.
Оқушылар слайдтарды зейін қойып тыңдап, қарайды.
Түсіну, білу
Оқулықпен жұмыс. Информатикалық диктант.
Әрекеттердің мүмкін бағыттарының әрқайсысы тармақ деп аталады. Кейбір шарттың орындалуына байланысты әрекеттердің атқарылу реттілігі белгілі бір тармақ бойынша жүруі мүмкін. Мұндай алгоритмдер тармақталған деп аталады.
Орындалу тәсіліне байланысты тармақталу командасы толымды және толымсыз болып екі түрге бөлінеді.
Егер if сөзінен кейінгі жазылған шарт сақталса, then сөзінен кейін жазылған операторлар сериясы орындалады, ал, шарт сақталмаса else сөзінен кейін жазылған операторлар сериясы орындалады.
Оқушылар интербелсенді тақтадан көп нүктенің орнына керекті сөздерді тауып, оқулықтан қарап қояды.
Сергіту сәті
Интербелсенді тақтадан сергіту сәтінің тұсаукесерін көрсетемін.
Оқушылар сергіту сәтін орындайды.
Қолдану
Пратикалық жұмыс
Екі топқа екі есептен беріледі.
1-есеп.
Берілген х саны х>0-ге тең болса, онда х-ті екіге арттыр, әйтпесе х-ті екі еселеу программасын жазыңдар.
PROGRAM esep1 ;
VAR x,y: real;
Begin
readln(x);
if x>0 THEN y:=x+2 else y:=2*x;
writeln('y=’,y');
end.
2-есеп.
А саны берілген. Осы санның жұп не тақ екенін анықтайтын программа құр
PROGRAM esep2 ;
VAR a: integer;
Begin
readln(a);
if a mod2=0 THEN writeln(‘a-жұп‘);
else writeln(‘a-тақ‘);
end.
3-есеп.
Үш сан А,В,С берілген. Егер А<В <С теңсіздігі орындалса, онда олардың қосындысының мәнін, ал басқаша болса, көбейтіндісін табу программасын жазыңдар.
PROGRAM esep3 ;
VAR a,b,c,y: real;
Begin
readln(x);
if A THEN y:=A+B+C else y:=A*B*C;
writeln('y=’,y');
end.
4-есеп.
Кез-келген санның оң немесе теріс екенін анықтайтын программа құрыңыз
Жауабы:
PROGRAM esep4 ;
VAR a: real;
Begin
Write(' a-ны енгиз');
read(a);
if a>=0 THEN write('a он сан') else write('а терис сан');
end.
Оқушылар есепті компьютерде орындайды.
Қорытынды
Рефлекция кері байланыс
"Кері байланыс" әдістерінің бірі "Білім сатысы" әдісі
Сабақтан алған әсерлерімен ұсыныстарын стикерге жазу
I саты
Мен... дұрыс түсінбедім.
II саты
Мен,...түсіндім, бірақ әлі ізденемін.
III саты
Мен жасай алдым, менде бәрі жақсы болады.
Бағалау
Алдарындағы бағалау парағы бойынша өздерін бағалайды.
Әр оқушы бағалау парағындағы қорытынды ұпайды шығарып, сыныпқа хабарлайды.
Үйге тапсырма беру
Күнделіктеріне үйге берілген тапсырманы жазып алады.
