Календарне планування. ІНФОРМАТИКА 8 КЛАС 2 семестр

ІНФОРМАТИКА    8  КЛАС  2 семестр

 (35 години на рік)

(1 ГОД НА ТИЖДЕНЬ  - 1 СЕМЕСТР (16 тижнів, 16 годин),

1 ГОД НА ТИЖДЕНЬ - 2 СЕМЕСТР(19 тижнів, 18 годин))

Підручник І.О. Завадський  «Інформатика 8  клас»

№	ТЕМА УРОКУ, ВИДИ ПРАКТИЧНИХ РОБІТ	ДЗ	ГОДИН	ДАТА
				8-М	8-Л	8-Е	8ЮК
	Нелінійні програми
1	Інструктаж з техніки безпеки. Розгалужені алгоритми.	п.16	1	22.01	23.01	23.01	23.01
2	Побудова та кодування розгалужених алгоритмів.	п.17	1	29.01	30.01	30.01	30.01
3	Інструктаж БЖД. Практична робота № 7. Алгоритм пошуку простих чисел.	п.18	1	31.01	06.02	06.02	06.02
4	Циклічні алгоритми. Алгоритми знаходження НСК натуральних чисел.	п.19	1	05.02	13.02	13.02	13.02
5	Одномірні масиви. Заповнення даними одномірних масивів.	п.20	1	12.02	14.02	14.02	14.02
6	Сортування елементів одновимірного масиву. Інструктаж БЖД. Практична робота № 8. Алгоритм сортування.	п.21	1	19.02	20.02	20.02	20.02
7	Способи сортування за різними ознаками.	п.22	1	26.02	27.02	27.02	27.02
8	Двовимірні масиви. Кодування двовимірних масивів.	п.23	1	05.03	06.03	06.03	06.03
9	Алгоритми на двовимірних масивах.	п.24	1	12.03	13.03	13.03	13.03
10	Алгоритми кодування магічних квадратів. Інструктаж БЖД. Практична робота № 10. Алгоритми перевірки умови магічності в числових квадратах.	п.25	1	19.03	20.03	20.03	20.03
11	Алгоритми для розв’язування комбінаторних задач.	п.26	1	02.04	03.04	03.04	03.04
12	Алгоритми для розв’язування геометричних задач.	п.27	1	09.04	10.04	10.04	10.04
13	Алгоритми для розв’язування числових задач.	п.28	1	16.04	17.04	17.04	17.04
14	Алгоритми для розв’язування систем лінійних рівнянь. Інструктаж БЖД. Практична робота № 11. Алгоритм Крамера.	п.29	1	23.04	24.04	24.04	24.04
15	Рекурсивні алгоритми.	п.30	1	30.04	08.05	08.05	08.05
16	Рекурсивні алгоритми для розв’язування числових задач	п.31	1	07.05	15.05	15.05	15.05
17	Розв’язування задач з використанням рекурсивних алгоритмів. Інструктаж БЖД. Практична робота № 12. Створення растрових  зображень.	п.32	1	14.05	22.05	22.05	22.05
18	Створення алгоритмів з використанням  підпрограм процедур.	п.32	1	21.05	29.05	29.05	29.05
19	Повторення. Узагальнення та систематизація знань.	п.32	1	28.05

Використання процедур мовою Pascal

 Процедури  на мові Pascal

Задача1 . Дано два набори дійсних чисел: (а₁; b₁; c₁) та  (а₂; b₂; c₂).

Знайти  найменше число та найбільше число у  кожному із наборів. чисел. Знайти суму двох найменших чисел та суму двох найбільших чисел.  Написати програму на мові Pascal для розв’язання цієї задачі.

Розв’язання.

program MINMAX;

var

a1,a2,c1,b1,b2,c2,Min1,Min2,Max1,Max2,s1,s2:real;

procedure MinMax(a,b,c:real;var Min,Max:real);

begin

Max:=a;

if Max<b then Max:=b;

if Max<b then Max:=c;

Min:=a;

if Min>b then min:=B;

if Min>c  then min:=c;

end;

begin

writeln(' a1= ');

readln(a1);

writeln(' b1= ');

readln(b1);

writeln(' c1= ');

readln(c1);

writeln(' a2= ');

readln(a2);

writeln(' b2= ');

readln(b2);

writeln(' c2= ');

readln(c2);

MinMax(a1,b1,c1,Min1,Max1);

MinMax(a2,b2,c2,Min2,Max2);

s1:=Min1+Min2;

s2:=Max1+Max2;

writeln('s1=',s1);

writeln('s2=',s2);

END.

Задача 2. Дано набір  цілих чисел: (а₁; b₁; c₁) . Знайти  НСК цих чисел. Написати програму на мові Pascal для розв’язання цієї задачі.

Розв’язання.

Program  NSK;

var a,b,c,y,nsk:integer;

procedure nsk1(m,n:integer; var pnsk:integer);

begin

pnsk:=m*n;

while m<>n do

if m>n then m:=m-n

else n:=n-m;

pnsk:=pnsk div m;

end;

begin

writeln('Vvedite znachenny 3 chisel a,b,c: ');

write('a= ');

readln(a);

write('b= ');

readln(b);

write('c= ');

readln(c);

nsk1(a,b,y);

nsk1(c,y,nsk);

writeln('HCK=',nsk);

end.