Проблеманы анықтау тақырыбындағы 8-сынып ашық сабақ

Проблеманы анықтау

Мақсаты:

Проблеманы анықтау жүйесін құрастыру;

Программаны ықшам , сапалы жазу дағдысын қалыптастыру;

Программаның математикалық моделі туралы түсінік қалыптастыру;

Информатика

8 сынып

Программалау ортасында берілген есептер негізінен белгілі бір оқиға немесе құбылысты компьютерде модельдеуден тұрады ( 1-сұлба ). Оқулық-138 беті

Практикалық жұмыс « Ағашты тең бөліктерге ажырату » жобасы Ұзындығы N (2≤ N ≤ 100) метрге тең ағашты М (2≤ M < 20) бірдей бөлікке кесуге бола ма , болмай ма ? Осыны анықта . Егер тең бөліктерге кесу мүмкін болмаса , бөліктерінің айырмашылығы бірден артық болмайтын бөліктерге бөл . (Оқулық-138 беті )

Оқулық 139 бет

3. Алгоритмін құрастыру . Есептегі негізгі заңдылықты тауып , математикалық моделін жасап алдық . Бұл есептің программасын жасау үшін оны жүйелеп , қадамдарға бөлуіміз қажет . Әрбір қадамда орындалатын командалар тізімін жоспарлаймыз .

Есептің алгоритмі : Енгізу және нәтижені шығару компоненттерін таңдау . Біздің жағдайда Edit компонентін пайдаланамыз . Есептегі басты шартты N mod М = 0 тексеру үшін тармақталу операторын қолданамыз . Сандар тізбегін шығару үшін параметрлі цикл операторын пайдаланамыз .

4. Жоба пішінін құрастыру . Жобаның пішінін құрастыруда Edit , Image , Label , Button компоненттерін таңдадық . Image компонентін таңдауда мақсат есепке иллюстрация кірістіру арқылы көрнекілігін арттыруды жоспарладық

Оқулық 140 бет

1 сурет

5 . Алгоритмді программа тіліне аудару . Жоспарланған алгоритм бойынша есептің программасын құрастырдық . Программаны құрастыру барысында қолданылған барлық компоненттердің бір-бірімен үйлесімді жұмыс жасауын үнемі қадағалап отыру қажет .

procedure TForm1.Button1Click(Sender: TObject ); ​ var t,i,j,n,z,k,m:longint ; ​s:string; ​begin ​n:=strtoint(edit1.text); ​m:=strtoint(edit2.text); ​t:=n div m; ​if n mod m=0 then label1.caption:=’ Ағаш тең бөлікке бөлінеді ’ ​ else label1.caption:=’ Ағаш тең бөлікке бөлінбейді ’; ​ for i:=1 to m-(n mod m)do ​s:=s+inttostr(t)+’ ‘; ​for i:= 1 to n mod m do ​s:=s+inttostr(t+1)+’ ‘; ​edit3.text:=s; ​end;

Оқулық 140 бет