Сабақ №3. Модуль crt. Сабақтың түрі : Іс-тәжірибелік сабақ Сабақтың мақсаты
жүктеу/скачать 1,76 Mb.
|
| program esep1;
var i:integer; begin
for i:=1 to 10 do begin textbackground(random(15)); window(1+(10+i),1+(2+i),80-(10+i), 25-(2+i)); delay(50000); clrscr; end;
end. Программаның орындалуы: 
Нұсқа бойынша бекітілген тапсырмаларды орындап, нәтижесін алу. Іс-тәжірибелік жұмыс тапсырмалары: Тапсырма №1. Мәтіндік файл мазмұнын экран бетіне Enter пернесін басу арқылы 18 қатардан тұратын үзінділермен шығару. 
Тапсырма №2. Дүкен бағдарламанын құру. program jjj; uses crt; const a1=350; g1=250; m1=500; var a,g,m,s:real; begin
textbackground(12); clrscr;
window(5,5,15,6); textbackground(2); clrscr; write('alma'); window(40,5,50,6); textbackground(2); clrscr; read(a); window(5,8,15,9); textbackground(2); clrscr; write('grusha'); window(40,8,50,9); textbackground(2); clrscr; read(g); window(5,11,15,12); textbackground(2); clrscr; write('mandarin'); window(40,11,50,12); textbackground(2); clrscr; read(m); window(10,15,45,16); textbackground(2); clrscr; s:=a*a1+g*g1+m*m1; write('summa=',s:8:2,' tenge'); readkey;
end. Программаның орындалуы: 
Тапсырма №3. Тест сұрақтарын енгізу. program wod_test; uses crt; LABEL 3; type ts=record vop:string; otb:array[1..3] of string; pn:integer; end;
var t:ts; f:file of ts; PAROL:INTEGER; jp,i,s:integer; begin
assign(f,'ts.dat'); rewrite(f); for s:=1 to 5 do begin textbackground (2); clrscr;textbackground(14); window(5,5,25,6);clrscr;textcolor(yellow); writeln('сурак '); window(30,5,75,6);clrscr;window(5,8,25,9); clrscr;writeln('1- жауап '); window(30,8,75,9);clrscr;window(5,11,25,12); clrscr;writeln('2- жауап '); window(30,11,75,12);clrscr;window(5,14,25,15); clrscr;write('3-жауап '); window(30,14,75,15);clrscr;window(5,17,25,18); clrscr;writeln('дурыс жауап');window(30,17,75,18);clrscr; window(30,5,75,6);readln(t.vop); window(30,8,75,9);readln(t.otb[1]); window(30,11,75,12);readln(t.otb[2]); window(30,14,75,15);readln(t.otb[3]); window(30,17,75,18);readln(t.pn); write(f,t);textbackground(blue); window(1,1,80,25);clrscr; end; repeat until keypressed; end.
Программаның орындалуы: 
Тапсырма №4. Тестілеу бағдарламасы program testiley; uses crt; label 2; type ts=record vop:string; otb:array[1..3] of string; pn:integer; end;
var t:ts; f:file of ts; k,n,i,j,ball,kol:integer; x:real;c:char; begin textcolor(white); clrscr; assign(f,'ts.dat'); reset(f); ball:=0; i:=1; kol:=0; while not eof(f) do begin read(f,t); clrscr;
gotoxy(25,1); write(' С У Р А К '); gotoxy(2,2); write(i,' ',t.vop); gotoxy(35,4); write(' Ж А У А Б Ы '); k:=1; for j:=1 to 3 do begin gotoxy(2,5+k); writeln(j,' ',t.otb[j]); k:=k+2; end;
gotoxy(25,24); writeln('дурыс жауаптын номірін енгіз'); gotoxy(25,22); readln(n); if n=t.pn then begin gotoxy(35,22); writeln(' Д У Р Ы С '); ball:=ball+1; end; i:=i+1;
end; clrscr;
x:=ball*100/i; gotoxy(40,8); writeln(' СІЗДІН АЛГАН БАГАНЫЗ ');GOTOXY(40,10); if x<30 then writeln(' 2 (КАНАГ-СЫЗ) ') else if x<45 then writeln('3 (КАНАГ.)') else if x<75 then writeln('4 (ЖАКСЫ)') else writeln('5 (ОТЕ ЖАКСЫ)'); IF x<45 then begin GOTOXY(10,12); writeln('СІЗ PRAKTIKALIK ЖУМЫСТЫ ОРЫНДАУГА ДАЙЫН ЕМЕССІЗ'); gotoxy(10,14); WRITELN('ОКЫ, ОКЫ, ТАГЫ ДА ОКЫ ');END; if x>75 then begin gotoxy(10,12); writeln('KUTTUKTAYMIN!!! ');END; 2: c:=readkey; if c<>#13 Then begin write(#7); goto 2; end;
end. Программаның орындалуы: 
4. Іс-тәжірибелік жұмыс бойынша есеп тапсыру ( 15 мин.) Орындалған жұмыс нәтижелерін тексеру және бағалау. Кеткен қателіктерді ескерту және келешекте қайталанбауын қадағалау. Оқулықтың тест сұрақтарына жауап беру.  
Тест тапсырмаларын орындап болған соң студентке орындалған тесттің нәтижесі ретінде баға қойылады. 5. Үй тапсырмасы ( 3 мин.) Паскаль тілінде CRT модулінің мүмкіндіктерін пайдаланып тарих пәнінен және психологиялық тестілеу бағдарламасын ұйымдастыру 6.Сабақты қорытындылау ( 5 мин). Бағалау және оны жариялау. Оқытушы Тасбулатова А.А. Каталог: sabaq-kz -> attachment attachment -> Қазақ тілі мен әдебиет пәні мұғалімі, филология магистрі Амирханова Сара Бекетқызы Коучинг жоспарының тақырыбы: «Lesson study – сабақты зерттеу әдісі» attachment -> Сабақ тақырыбы: Химияның негізгі түсініктері мен заңдары Сілтеме attachment -> Сабақтыңтақырыбы: 3 4 attachment -> Сабақ: Алкандардың қасиеттері. Алкандардың жеке өкілдері және қолданылуы attachment -> Сабақтың түрі: Аралас сабағы Сабақ уақыты: 90 мин. Сабақтың педагогикалық мақсаты attachment -> Сабақ Алматы қаласы Алатау ауданы «185 жалпы білім беретін мектеп» коммуналдық мемлекеттік мекемесі Бастауыш сынып мұғалімі Курманова Маржан Сеилхановна attachment -> Сабақтың тақырыбы Сағат саны Мерзімі Оқып-үйренудің негізгі мақсаты attachment -> Сабақтың мақсаты: оқушыларға алжапқыштың және бас орамалдың сызбасын есептеуді және құрастыруды үйрету жүктеу/скачать 1,76 Mb. Достарыңызбен бөлісу:
|