Республикалық басылым білім жолы нұрлы жол


Білу Үй тапсырмасы. Түсіну



Pdf көрінісі
бет16/157
Дата30.11.2023
өлшемі2,76 Mb.
#194351
1   ...   12   13   14   15   16   17   18   19   ...   157
Байланысты:
Республикалы басылым білім жолы н рлы жол

Білу
Үй тапсырмасы.
Түсіну
Мағынаны тану
Қолдану
Тапсырмаларды орындау
Талдау Жинақтау
Корытынды
Бағалау
Топ басшысы бағалайды
Сабақ барысы
Уақыты
Мұғалімнің іс-әрекеті
3 минут
Психологиялы
қ дайындық
3 минут
3 минут
2 минут
30 минут
Сыныппен сәлемдесу. Сыныпты ұйымдастыру (оқушыларды тексеру, аудиторияны қалыпқа
келтіру)
Оқушыларды сызықтық, тармақталған, циклдік деп кеспе қағаздарға жазып таңдау арқылы 
топқа бөлу.
Оқушыларды бүгінгі сабақтың тақырыбымен және мақсатымен таныстыру.
 «Білу» Миға шабуыл.
Үй тапсырмасын орындау алгоритмін жазайық.
алг
Үй тапсырмасын орындау
басы
күнделікті алу
тиісті бетін ашу, үй тапсырмасын анықтау
үй тапсырмасын орындау
күнделікті орнына қою
соңы
ІІІ. Жаңа сабақ.
«Түсіну»
Сыйымдылығы 3 және 8 литр екі құмыра бар. Орындау барысында өзеннен 7л су алуға 
мүмкіндік беретін алгоритм жазыңыз.
алг
Өзеннен 7 л су алу
басы
3л құмыраны үш рет толтырып, 8л құмыраға құю, сонда
3л құмырада 1л су сыймай қалады
8л құмырадағы суды төгіп тастау
құмырадағы 1 л суды 8 л құмыраға құю
3л құмыраны екі рет толтырып, 8л құмыраға құю
соңы
Сергіту сәті
. Жаңылпаш айтқызу.
 «Қолдану»
15


----- «БІЛІМ ЖОЛЫ НҰРЛЫ ЖОЛ» Республикалық журнал – Қараша айы 2020 жыл | № 11 (14) -----
№1
Есеп № 1 
programstudent; 
var 
a1: string [7]; a2: string [3]; 
a3: string [10]; a4: char; 
b1,b6:integer; b2: string [10]; 
b3: string [3]; b4: string [4]; 
b5: string [11]; 
begin 
writeln; 
a1:=’студент’; a2:=’пін’; 
a3:=’Мен’; a4:=’е’; 
b1:=length(a1); {ұзындығын анықтау b1=7} 
b2:=concat(a1,a2); { a1 және a2 –ні қосу} 
b3:=copy(a1,4,3); {а1 тіркесінің 4-ші позицисынан 3 символды бөліп алу} 
b4:=copy(a1,5,3); { а1 тіркесінің 5-ші позицисынан 3 символды бөліп алу } 
b5:=concat(a3,a1); { a3 және a1 –діі қосу } 
b6:=pos(a4,a1); {5} 
write(‘сөз ұзындығы:’,b1,’’:2,b2,’’:2,b3,’’:2,b4); 
writeln(b5,’’:2, b6); 
end. 
Есеп № 2 
Кіші латын әріпімен енгізілген жолды, үлкен латын әріптеріне ауыстыру программасын 
құрыңыз. 
Program austir: 
Var s:string: 
k:byte: 
begin 
readln(s): 
for k:=l to length (s) do 
s[K]: =Upcase (s[k]); 
writeln(s): 
end. 
№3. Бір өлшемді массивтің элементтерінің қосындысын табатын программа құру;
Program m8;
uses crt;
var i,n:integer; sum:real;
a: array [1..100] of integer;
begin
Randomize;
Writeln(‘массив элементин енгиз’);
readln(n);
for i:=1 to n do
a[i]:=-25+random(100);
for i:=1 to n do
write(a[i]:5);
sum:=0;
for i:=1 to n do
sum:=sum+a[i];
writeln(”);
writeln(‘сандардын косындысы=’,sum:6:2);
readln
end.
16


----- «БІЛІМ ЖОЛЫ НҰРЛЫ ЖОЛ» Республикалық журнал – Қараша айы 2020 жыл | № 11 (14) -----
1 минут
1 минут
№4Кез келген екі өлшемді массивтің ең үлкен элементін табу программасын кұр.
Program m9;
Var A:array [1..100,1..100] of integer;
n,m,i,j,max:integer;
Begin
Writeln(‘массив элементiн енгiз’);
readln(n,m);
randomize;
For i:=1 to n do
for j:=1 to m do
A [i,j]:=-25+random(100);
For i:=1 to n do Begin
writeln;
For j:=1 to m do
write (A[i,j]:4); end;
max:=A[1,1];
For i:=1 to n do
For j:=1 to n do
if A[i,j]>max then max:=A[i,j];
writeln;
writeln (‘max=’,max:5);
readln
end.
№5 Кез келген екі өлшемді массивтің ең кіші элементінің жол номері мен баған номерін 
табу программасын құру.
Program m3;
Var A:array [1..100,1..100] of integer;
n,m,i,j,min,k,l:integer;
Begin
Writeln(‘massiv olshemderin engiz’);
Writeln(‘jol olshemin engiz’);
readln(n);
Writeln(‘bagan olshemin engiz’);
readln(m);
randomize;
For i:=1 to n do
for j:=1 to m do
A [i,j]:=-25+random(100);
For i:=1 to n do Begin
writeln;
For j:=1 to m do
write (A[i,j]:4); end;
min:=A[1,1];
For i:=1 to n do begin
For j:=1 to n do
if A[i,j]writeln;
writeln (‘min=’,min:5, ‘ jol=’,k,’ bagan=’,l);
readln
end.
№6 Кез келген екі өлшемді массивтің ең үлкен элементінің жол номері мен баған номерін 
табу программасын құру.
Program m11;
17


----- «БІЛІМ ЖОЛЫ НҰРЛЫ ЖОЛ» Республикалық журнал – Қараша айы 2020 жыл | № 11 (14) -----
Var A:array [1..100,1..100] of integer;
n,m,i,j,max,k,l:integer;
Begin
Writeln(‘massiv olshemderin engiz’);
Writeln(‘jol olshemin engiz’);
readln(n);
Writeln(‘bagan olshemin engiz’);
readln(m);
randomize;
For i:=1 to n do
for j:=1 to m do
A [i,j]:=-25+random(100);
For i:=1 to n do Begin
writeln;
For j:=1 to m do
write (A[i,j]:4); end;
max:=A[1,1];
For i:=1 to n do begin
For j:=1 to n do
if A[i,j]>max then begin max:=A[i,j]; k:=i;l:=j; end;end;
writeln;
writeln (‘max=’,max:5, ‘ jol=’,k,’ bagan=’,l);
readln
end.
№12. Кез – келген бір өлшемді массивтің ең үлкен элементінің индексін табу программасын
құру;
program m8;
uses crt;
var k,i,n,max:integer;
a: array [1..100] of integer;
begin
Randomize;
Writeln(‘массив элементин енгиз’);
readln(n);
for i:=1 to n do
a[i]:=-20+random(100);
for i:=1 to n do
write(a[i]:5);
max:=a[1];
for i:=1 to n do
if a[i]>max then begin max:=a[i];k:=i; end;
writeln(”);
writeln(‘ индекси ‘,k);
readln
end.


Достарыңызбен бөлісу:
1   ...   12   13   14   15   16   17   18   19   ...   157




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет