МҰҒалімге ақпарат Тақырыбы: Процедуралар мен функциялар Күтілетін нәтиже
жүктеу/скачать 379,31 Kb.
|
- Бұл бет үшін навигация:
- Program
|
Деңгейлік тапсырмалар: І деңгей тапсырмалары Процедура терминін түсіндір. Процедура – қандай да болмасын атпен аталған әрекеттердің жүйелілігі. Процедураның қолданылуын жаз. Программаның әр жерінде орналасқан бірдей әрекеттерді орындау Программаны түсіну оңай болу үшін оны бірнеше қосалқы бөліктерге бөлу. Белгілі бір есептегі процедураның орындау тәртібінің түсіндірмесін бер. Бірдей немесе ұқсас әрекеттерді ерекшелеп алу (үш фигура) Олардың ұқсас жерлері (өлшемі, пішіні, айналу бұрышы) мен айырмашылықтарын ( координаталары, түсі) табу Айырмашылықтарын белгіссіз айнымалылар түрінде өрнектеу, осы айнымалылар процедураның параметрлері болады. Процедураны программаға енгізу үшін қандай команда қолданамыз? Procedure Төмендегі мәтіннен қате тап. Дұрыс жауабын жаз. Процедураны шақыру кезінде жақша ішінде формальды параметрлер (x,y,r,t) көрсетіледі.Процедураны шақыру кезінде жақша ішінде нақтылы параметрлер (сандар немесе арифметикалық өрнектер) көрсетіледі 6. Процедурада қосымша айнымалы ретінде глобальды айнымалыларды пайдалануға болады. Процедурада қосымша айнымалы ретінде локальды айнымалыларды пайдалануға болады. Төмендегі программа бөлігінен қате тап. Дұрыс жауабын жаз. 7. Procedure (x = real, y = integer, z = float) Procedure pro(x : real; y : integer; z : float);
a,b,c,d сандары берілген. x=max(a,b), y=max(c,d), z=max(x,y) мәндерін анықтаңыз. max(k,m) (к және м екі санның үлкенін табу) мәнін есептеуді функция арқылы өрнектеңіз. Program e10_1; var a,b,c,d,x,y,z: real; function max(k,m:real): real; begin if k>m then max:=k else max:=m end; begin writeln; write(‘a,b,c,d мәнін енгізіңіз:’); readln(a,b,c,d); x:=max(a,b); y:=max(c,d); z:=max(x,y); writeln(‘x=’,x,’y=’,y,’z=’,z) end.\ a,b,c,d кесінділері берілген. Осы кесінділердің үшбұрыш құруға болатын әрбір үшеуі үшін сол үшбұрыш ауданын басып шығарыңыз. Берілген x,y,z қабырғалары бойынша үшбұрыш ауданын оның бар-жоқтығын тексеретіндей етіп есептеуді процедура түрінде өрнектеңіз. program e10_6; var a,b,c,d:real; procedure yshb(x,y,z:real); label 15,18; var s,p:real; begin if (x ІІІ деңгей тапсырмалары Үш үштік: a1,b1,c1; a2,b2,c2; a3,b3,c3 сандары берілген. Әр үштіктің ең үлкені мен ең кішісін, сонан соң табылған үлкендері мен кішілерінің ішінен олардың ең үлкені және ең кішісін жеке-жеке табыңыз. Program mys10_2; var a1,b1,c1,a2,b2,c2,a3,b3,c3:real; var max1,max2,max3,min1,min2,min3,max4,min4,max5,min5:real; procedure maxmin(x,y,z:real; var max,min:real); begin if (x>=y) and (x>=z) then max:=x; if (x<=y) and (x<=z) then min:=x; if (y>=x) and (y>=z) then max:=y; if (y<=x) and (y<=z) then min:=y; if (z>=x) and (z>=y) then max:=z; if (z<=x) and (z<=y) then min:=z; end; begin write(‘a1,b1,c1-ді енгіз:’);readln(a1,b1,c1); write(‘a2,b2,c2-ні енгіз:’);readln(a2,b2,c2); write(‘a3,b3,c3-ті енгіз:’);readln(a3,b3,c3); maxmin(a1,b1,c1,max1,min1); maxmin(a2,b2,c2,max2,min2); maxmin(a3,b3,c3,max3,min3); maxmin(max1,max2,max3,max4,min4); maxmin(min1,min2,min3,max5,min5); writeln(‘1-үштіктің ең үлкені-‘,max1,’ең кішісі-‘,min1); writeln(‘2-үштіктің ең үлкені-‘,max2,’ең кішісі-‘,min2); writeln(‘3-үштіктің ең үлкені-‘,max3,’ең кішісі-‘,min3); writeln(‘Үлкендерінің ең үлкені-‘,max4,’ең кішісі-‘,min4); writeln(‘Кішілерінің ең үлкені-‘,max5,’ең кішісі-‘,min5); end.
Топтық жұмыс. 1-топ: 
2-топ: 
Сабақтың күтілетін нәтижесіне қалай қол жеткізгендігің туралы эссе жаз. ______________________________________________________________________ ______________________________________________________________________ ________ жүктеу/скачать 379,31 Kb. Достарыңызбен бөлісу:
|