Циклдік алгоритмдер

Пәні: информатика

8«В» сынып «______»____________20 ж

Сабақтың тақырыбы: Циклдік алгоритмдерді программалау

Сабақтың мақсаты:

а) Білімділігі: Оқушылар циклдік алгоритмдерді құруды, циклдердің командасын орындалуын және құрылымын көрсету.

ә) Тәрбиелігі: Сауаттылыққа, ұжымда бірлесіп жұмыс істеуге үйретуді көздеу.

б) Дамытушылығы: Білімді жүйелеу, тиянақтау, жаңа сабақты түсіндіру.

в) Әдістері:түсіндіру,ой қозғау, мағынаны ашу, өз бетімен жұмыс.

г)Көрнекіліктер:Компьютер,слайд,таратпа қағаздар.

Сабақ түрі: Аралас сабақ

Программалық қамсыздандыру: Pascal бағдарламасы

Пәнаралық байланыс: математика

Сабақтың өту барысы:

І. Ұйымдастыру кезеңі: (2 мин)
1. оқушылармен сәлемдесу
2. оқушылардың зейінін сабаққа аудару

ІІ. Үй тапсырмасын тексеру:(5 мин) информатикалық диктант

1. Сызықтық алгоритм ______ ____ ____________тізбегінен тұрады.

2. _____________ бірінең соң бірі тізбектеле орындалатын алгоритм –

____________________деп аталады.

3._____________ алгоритм- бұл _______байланысты әрекеттердің ________ немесе __________ орындайтын __________

4.Тармақталған _____________ жазудың ___түрі бар: _______және ____________

5.Сызықтық алгоритмде ______________бір ___________бойына орналасқан тізбекті _____________тұрады.

Ұпай саны_____________

Әр оқушы өзіне ұпай қояды. 5 сөйлем дұрыс болса-5 ұпай

4 сөйлем-4ұпай

3 сөйлем-3ұпай

2 сөйлем-2ұпай

1 сөйлем-1ұпай

ІІІ.Жаңа сабақ: (15мин) Видеоролик арқылы жаңа сабақтың тақырыбын ашып аламын.Үш топқа for,while,repeat деп ат беремін.Әр топ атына сәйкес текст алады, сол тексттің көмегімен жаңа сабақты өздері ашып,талқылап ватманға жазып сызады.(10мин) және әр топтан бір елші сайланады.әр елші басқа топқа өз тақырыбын түсіндіреді.сосын келесі топқа барып түсіндіреді.

ІV.Практикалық жұмыс: (15мин) оқушылар компьютерге отырып тапсырмаларды орындайды

1-тапсырма: * символын n-рет енгізу

Program esep1;

Var I,n:integer;

Begin

Write(‘символ саны’);

Readln(n);

For i:=1 to n do

Write (‘*’);

End.

Program esep1;

Var I,n:integer;

Begin

Write(‘символ саны’);

Readln(n);

i:=1;

while i

begin

Write (‘*’);

i:=i+1;

end;

End.

Program esep1;

Var I,n:integer;

Begin

Write(‘символ саны’);

Readln(n);

i:=1;

repeat;

Write (‘*’);

Until in;

End.

Until in;

End.

2-тапсырма:1-ден n -ға дейінгі сандардың қосындысын есептейтін программа құр

Program esep2;

Var S,I, n:integer;

Begin

S:=0;

readln(n);

For i:=1 to 10 do

S:=S+I;

Writeln(s);

End.

Program esep2;

Var S,I,n:integer;

Begin

S:=0;

i:=0;

readln(n);

while i

begin

s:=s+i;

i:=i+1;

end;

Writeln(s);

End.

Program esep2;

Var S,I:integer;

Begin

s:=0;

i:=0;

repeat

i:=i+1;

s:=s+i;

until i

Writeln(s);

End.

3-тапсырма: Жанарыс пен Жалғас олимпиадаға қатысқандықтан оларға облыстық олимпиада турынан есеп беремін.

Сандар жиынтығы беріледі сол сандардың ішінен ең үлкен және ең кіші сандарды табу керек.

var n,i:1..100000; 
a,max,min:0..100000; 
begin 
assign(input,'a.in'); reset(input); 
assign(output,'a.out'); rewrite(output); 
readln(n); 
max:=1; min:=100000; 
for i:=1 to n do 
begin 
read(a); 
if a 
if amax then max:=a; 
end; 
writeln(max-min); 
end.

V.Жаңа сабақты пысықтап бекiту, қорытындылау:(5мин)

bilimland.kz сайты дайындаған материалды көрсетемін.

VІ. Оқушылар білімін бағалау: (3мин)

Оқушылардың жауаптары мен белсенділіктеріне, жұмыс орындау қорытындыларына, практикалық жұмыс бойынша бағалау парағына баға қойылады.

VІІ. Үй тапсырмасы:    қосындыны есептейтін программа құр