І. Сабаққа келмеген оқушыларды түгендеу, үй тапысырмасын пысықтау.
ІІ.Үй тапсырмасын тексеру.
Текст жұмысы
Frac(x) функциясы
х санының бөлшек бөлігін табуға
х санының бүтін бөлігін табуға
х санының квадратын табуға
жақын жатқан бүтінге дейін жуықтау мүмкіндік береді
Белгілі бір оператордың орындалу нәтижесінде айнымалылар а=3; с=9. Мәндеріне ие болады. Осы оператордың дұрыс жазбасын көрсетіңдер:
a:=sqr(c)
c:=sqr(a)
a:=sqrt(c)
c:=sqrt(a)
х=2,74 айнымалысы үшін z=Int(x) операторының орындалуы нәтижесінде z айнымалысына ... мәні меншіктеледі:
2.74
0.74
3
2
Өрнектердің Pascal тілінде дұрыс жазылуын бабыңдар: (16у+3)2-2у.
Sqr(x)-(24*y+10)-2*y
Frac (16*y+3)-2*y
Int (16*y+3)-2y
Sqr(16y+3)-2y
Өрнектердің Pascal тілінде дұрыс жазылуын бабыңдар:
Sqr(x)+(24*y+10)/15
Sqr(x)+(24*y+10/15)
Sqrt(x)+(24*y+10)/15
Sqr(x)+24*y+10/15
ІІІ. Жаңа сабақ.
Әрекеттерді бірінен соң бірі тізбектеле орындалатын алгоритмдер сызықты алгоритмдер деп аталады.
Мысал;
Ботагөздің үйден мектепке дейінгі жолы бірнеше кесінділерден тұрады. Алдымен түзу, одан кейін оңға бұрылып, жүру қажет. Осыдан кейін ол құрбысы Құралайды кездестіреді және олар мектепке қарай қалған арақашықтықты жүріп өтеді. Оның жасындағы қыздың қозғалыс жылдамдығы тұрақты және ол км\сағ-пен өлшенедію. Бірақ Ботагөз құрбысымен келе жатып жол бойы екеуі әңгіме-дүкен құрғандықтан әрі кездескен мысықтарға қарап, аландағандықтан ақырын жүреді Ботагөздің үйден мектепке дейінгі уақытын есептейтін программа құрыңдар.
Есепті шешу қадамдары
Есептің математикалық шешімі .
a+b=r1 – Ботагөздің үйден Құралайға кезіккенге дейінгі ара-қашықтығы м-мен өлшенеді.
r1: 1000=r2-Ботагөздің үйден Қүралайға кезіккенге дейінгі арақашықтығы км-мен өлшенеді.
Арақашықтық өлшемі-м-ді, км-ге айналдыру керек, себебі әрі қарай қозғалу жылдамдығы км\сағ-пен өрнектеледі.
r2:d=t1-Ботагөздің үйден Құралайға кезіккенгедейінгі жұмсаған уақыты. Дәл осылай қыздардың мектепке дейін бірге барған уақытын табамыз: с:1000:е=t2.
Енді табылған уақыт аралықтарын қосу қалды: t1+t2=t(c).
Алгоритмнің блок-сұлбасын құру.
Блок-сұлба үшін мына мәліметтерді енгізу қажет болады:
Ботагөздің бұрылысқа дейін дүрген арақашықтығы;
Ботакөздің құрбысын кездестіргенге дейінгі дүрген екінші арақашықтығы;
Құрбылрдың бірге жүріп өткен арақашықтығы;
Ботакөз бен Құралайдың бірге жүрген қозғаолыс жылдамдығы;
Ботакөз бен Құралайдың бірге жүрген қозғалыс жылдамдығы.
Блок-сұдбаны осындай түрде қалдыруға немесе формулаларды түрлендіруге болады, сол бойынша ізделініп отырған уақыт табылады:
Var a,b,c,d.e.t: real; {Айнымалылар типін real деп береміз, өйткені бұлшамалар ондық бөлшіш болуы мүмкін }
Begin
Clrscr;
{Мәліметтерді енгзу}
Write (‘a=’); readln(a);
Write (‘b=’); readln(b);
Write (‘c=’); readln(c);
Write (‘d=’); readln(d);
Write (‘d=’); readln(d);
Write (‘e=’); readln(e);
t:=(a+b)/1000/d+c/1000/e;{Уақытты табу}
Writeln(t); {Нәтижені шығару}
End
Компиляция жасап, программаны орындаймыз.
Программаның интерфейсі қосымша толықтыруды қажет етеді. Толықтырулар:
Программаныңатауын жазу. Мысалы «Мектепке дейінгі уақытты табу».
Программаның атауын бос жолмен программаның қалған бөлігінің орындалуынан бөліп қою керек. (Writeln бос операторымен)
Шамаларды енгізу операторларына түсіндрмені қосукерек. Мылалы, «бұрылысқадейнгі бірінші арақашықты метр өлшемінде енгізіңдер», ол қолданушыға біздің программада a,b,c,d.e параметрлерімен нені белгілегенімізді түсінікті болу үшін қажет.
t айнымалысы үшін нәтиженің шығару пішімін анықтау. Мысалы, үтірден кейн тек екі белгіні қалдыру.
Readln бос операторын программаның соңында орындалу нәтижесін экранда кідірту үшін қосу керек.
Өзгертулер енгізілген соң келесі программа алынады:
Program 3misal; Uses crt;
Var a,b,c,d.e.t: real;
Begin
Clrscr;
Writeln (‘Мектепке дейнгі уақытты табу’);
Writeln;
Write (‘Бұрылысқа дейінгі бірінші арақашықтықты м бойынша енгізіңдер’);
Writeln(а);
Write (‘Құрбысымен кездескенге дейінгі екінші арақашықтықты м бойынша енгізіңдер’);
Writeln(b);
Write (‘Құрбылар бірге жүріп өткен үшінші арақашықтықты енгізіңдер’);
Writeln(с);
Write (‘Ботагөздің жалғыз жүрген жылдамдығын км/ссғ енгізіңдер’);
Writeln(d);
Write (‘Құрбылар бірге жүріп өткен жылдамдықты енгізіңдер’);
Writeln(е);
t:=(a+b)/1000/d+c/1000/e;
Writeln(‘үйден мектепке дейін кеткен’, t:6:2a уақытқа тең);
Writeln(t);
End
ІV. Жаңа тақырыпты бекіту:
1-тапсырма
Бір мемлекетте тұратын халық саны мен жер көлемінің ауданыналып, осы метоекеттегі халық тығыздығын анықтаңдар.
uses crt;
var n,s,p:real;
begin
clrscr;
write('s,n=');readLn(s,n);
p=n/s;
write('p=',p:0:2);
readkey;
end.
2-тапсырма
Жай бөлшектерді қосатын программаны құрыңдар.
uses crt;
var a,b,c,d:integer;
begin
clrscr;
write('a/b=');read(a,b);
write('c/d=');read(c,d);
write(a,'/',b,'+',c,'/',d,'=');
write(a*d+b*c,'/',b*d);
write('=',(a*d+b*c)/(b*d):2:3);
readkey;
end.
Үйге тапсырма:
§13 «Cызықтық алгоритмдерді программалау» тақырыптарын оқып келу. 81-86 беттер.
V . Қорытындылау:
Программаны компиляция мен орындауға қалай жібереді?
Программаның басы мен соңындағы операторлар қалай жазылады?
Pascal тілінде программа қандай бөлімдерден тұрады