InfoHub Logo

Sabaqtyń taqyryby: Tarmaqtalý operatoryna esepter shyǵarý

Sabaqtyń maqsaty:
Bilimdilik: Oqýshylardy Paskal tiliniń IF, THEN, ELSE tarmaqtalý operatoryn paıdalanyp baǵdarlama qurýǵa úıretý.
Damytýshylyq: Tarmaqtalý operatoryn paıdalanyp, baǵdarmalama qura otyryp, oqýshylardy óz betterimen baǵdarlama qurýǵa daǵdylandyrý, logıkalyq oılaý qabiletterin damytý.
Tárbıelik: Oqýshylardy patrıottyqqa, jaýapkershilikke tárbıeleý.
Sabaqtyń túri: Praktıkalyq sabaq
Sabaqtyń ádisi: Reprodýktıvti ádis
Sabaqtyń kórnekiligi: Derbes kompúter
Sabaqtyń barysy:
İ. Uıymdastyrý kezeńi

İİ. Úı tapsyrmasyn tekserý

• Qurylymdyq operatorlarǵa qandaı operatorlar jatady?
• Qarapaıym jáne qurylymdyq operatorlardyń aıyrmashylyǵy nede?
• Qurama operator dep qandaı operatordy aıtamyz?
• Shartty operatorlardyń qandaı túrleri bar?
• Tańdaý operatory ne úshin qoldanylady?
• CASE operatorynyń jalpy jazylý túri qandaı?

İİİ. Kompútermen jumys

№1 esep: Eki sannyń úlkenin tabatyn baǵdarlama qurý
Program esep_1;
Uses crt;
Var x, y, max: integer;
Begin
Clrscr;
Writeln(‘Eki sandy engiz…’);
Readln(x,y);
If x>y then max:=x else max:=y;
Writeln(‘Eki sannyn ulkeni = ’, max);
End.

№2 esep: Úsh sannyń úlkenin tabatyn baǵdarlama qurý
Program esep_2;
Uses crt;
Var x, y, z, max: integer;
Begin
Clrscr;
Writeln(‘Ush sandy engiz…’);
Readln(x,y,z);
If x>y then max:=x else max:=y;
If max>z then max:=max else max:=z;
Writeln(‘Ush sannyn ulkeni = ’, max);
End.

№3 esep: Adam jasyna qarap, olardy áli mektepke barmaǵan, mektep oqýshysy, jumysshy, zeınetker degen tórt toptyń birine jatqyzatyn baǵdarlama qurý. Adam jasy pernetaqtadan engiziledi.
Program esep_3;
Uses crt;
Var x: integer;
Begin
Clrscr;
Writeln(‘Adam jasyn engiz…’);
Readln(x);
If x6) and (x17) and (xabs(y) then
begin
x:=x/5;
writeln(‘x = ‘,x:5:2) end
else writeln(‘x = ‘,x, ‘ y = ‘,y);
End.


№5 esep: Pernetaqtadan tramvaı bıletiniń nomeri (1 oryndy 6 san) engiziledi. Bılettiń «baqytty» nomer ekenin anyqtaıtyn baǵdarlama qurý kerek. Baqytty bılettiń alǵashqy 3 sıfrynyń qosyndysy sońǵy 3 sıfrynyń qosyndysyna teń.
Program esep_5;
Uses crt;
Var x, y, z, a, b, c, S, S1: real;
Begin
Clrscr;
Writeln(‘bilet nomerin engiz…’);
Readln(x, y, z, a, b, c);
S:=x+y+z;
S1:=a+b+c;
If S = S1 then writeln(‘bakitty nomer’)
else writeln(‘bakitty nomer emes’);
End.

IV. Sabaqty bekitý suraqtary

• Shartty operatorlardyń qandaı túrleri bar?
• IF operatorynyń jalpy jazylý túri qandaı?
• Writeln(h:5:2) operatoryndaǵy 5 jáne 2 sıfrlary neni bildiredi?
• Qandaı jaǵdaıda IF operatory eki ret qoldanylady?

V. Úıge tapsyrma berý
89 – 90 bet, 12 jáne 13 jattyǵýlar.
VI. Oqýshy bilimin baǵalaý