Информатика_и_ИКТ._9кл._Урок№40

Уроки 40–43. Программирование циклических алгоритмов

Планируемые образовательные результаты:

 предметные – умение записывать на языке программирования короткие алгоритмы, содержащие алгоритмическую конструкцию цикл;

 метапредметные     –    умение   самостоятельно   планировать   пути

достижения        целей;        умение        соотносить        свои        действия        с

планируемыми    результатами,    осуществлять    контроль    своей

деятельности,         определять         способы         действий          в         рамках

предложенных       условий,       корректировать        свои        действия        в

соответствии    с   изменяющейся    ситуацией;    умение    оценивать

правильность выполнения учебной задачи;

личностные      –      алгоритмическое   мышление,   необходимое   для

профессиональной       деятельности        в         современном       обществе;

представление       о       программировании       как       сфере        возможной

профессиональной деятельности.

Решаемые учебные задачи:

1)    познакомиться с правилами записи оператора while;

2)    рассмотреть пример программирования циклического алгоритма с помощью оператора while;

3)    получить опыт программирования циклов с заданным условием продолжения работы;

4)    познакомиться с правилами записи оператора repeat;

5)    рассмотреть пример программирования циклического алгоритма с помощью оператора repeat;

6)    получить опыт программирования циклов с заданным условием окончания работы;

7)    познакомиться с правилами записи оператора for;

8)    рассмотреть пример программирования циклического алгоритма с помощью оператора for;

9)    получить опыт программирования циклов с заданным числом повторений;

10)                    подвести учащихся к выводу, что для решения одной и той же задачи можно разработать разные алгоритмы;

11)                    сформировать умение записывать на языке программирования короткие алгоритмы с циклами.

Основные понятия, рассматриваемые на уроках:

оператор while;

оператор repeat;

оператор for.

Используемые на уроке средства ИКТ:

 персональный        компьютер        (ПК)        учителя,        мультимедийный

проектор, экран;

ПК учащихся.

Электронные образовательные ресурсы

 презентация «Программирование циклических алгоритмов» из электронного приложения к учебнику.

Особенности изложения содержания темы урока

Все четыре урока – уроки-практикумы. Они обеспечены большим количеством задач в учебнике и в рабочей тетради. Выбор тех или иных задач для выполнения на уроке и дома остаѐтся за учителем.

На последнем уроке можно провести небольшую проверочную работу (на 15 мин).

Ответы и решения к заданиям в РТ.

№ 189.

135

№ 196. Опечатка в условии. Подсчѐт количества отрицательных и количества положительных чисел, вводимых с клавиатуры.

136

Начало

Список данных

x,, k1, k2 - цел

k1 :=0

k2 :=0

x

да

x < 0

нет

k1 :=k1 + 1

да

x < 0

k2 :=k2 + 1

нет

нет

x = 0

да

k1, k2

Конец

№ 197. a) Лучше исправить на s:=s+i, строку i:=0 убрать!

Ответы и решения к заданиям в учебнике.

№ 1. Цикл выполнится 2 раза.

a b     s        a+b<8

Полный текст программы:

program n_2_211;

var n, f, k: integer;

begin

writeln ('Введите n');

readln (n);

k := 1;

f := 1;

while k<=n do

begin

f := f * k;

k := k + 1

end;

writeln (n,'!=', f);

end.

№    3. Если a<b, то цикл будет выполняться бесконечно. В противном случае он не выполнится ни разу.

№   4.

program n_4_25_211;

var

a, b, c: real; // Исходные данные

k:   real; // Промежуточная величина

g:   integer;  // Результат

begin

writeln ('Введите исходный запас рыбы А>>'); readln (a);

writeln ('Введите ежегодный план отлова В>>');

readln (b);

writeln ('Введите наименьший запас рыбы С>>'); readln (c);

g := 0;

k := a;

while k>=c do

begin

g := g + 1;

k   := k *1.15-b; end;

writeln ('g=', g-1);

end.

program n_4_26_211;

var

a:   integer; // Исходные данные

s:    integer; // Промежуточная величина

k:   integer;  // Результат

begin

a := 5;

s := 5;

k := 1;

while s<324 do

begin

k := k + 1;

a := a + 4;

s := s + a

end;

writeln ('k=', k-1);

end.

program n_4_27_211;

var

x:   integer; // Исходные данные

k:   integer;  // Результат

begin

writeln ('Введите x>>');

readln (x);

k := 0;

while x>0 do

begin

x := x div 10;

k := k + 1

end;

writeln ('k=', k);

end.

program n_4_28_211;

var

s:    real; // Промежуточная величина

k:   integer;  // Результат

begin

s := 10000;

while s<20000 do

begin

s := 1.05*s;

k := k + 1

end;

writeln ('k=', k);

end.

№ 5. Цикл выполнится 3 раза.

x:   integer; // Исходные данные

k:   integer; // Промежуточная величина

s:    integer; sar: real;  // Результат

begin

k := 0;

s := 0;

repeat

writeln (‘Введите целое число>>’);

readln (x);

if x>0 then

begin

k := k + 1;

s := s + x

end;

until x=0;

sar := s/k;

writeln (‘s=’, s, ‘ ‘, ‘sar=’, sar)

end.

№ 7.

program n_7_211;

var

x:   integer; // Исходные данные max: integer; // Результат

begin

max := -32768;

repeat

writeln (‘Введите целое число’);

readln (x);

if x>max then max := x;

until x=0;

writeln (‘max=’, max)

end.

№ 8.

program n_8_1_211;

var

x, y: integer; // Исходные данные

nod: integer; // Результат begin

writeln (‘x=’);

readln (x);

writeln (‘y=’);

readln (y);

repeat

if x>y then x:= x-y;

if x< y then y := y-x

until x=y;

nod := x;

writeln('НОД = ', nod)

end.

program n_8_2_211;

var

x, y: integer; // Исходные данные

nod: integer; // Результат begin

writeln (‘x=’);

readln (x);

writeln (‘y=’);

readln (y);

while x<>y do

if x>y then x:= x-y else y := y-x; nod := x;

writeln('НОД = ', nod)

end.

№   9. а) 16; б) 6; в) 3 г) 1; д) 3.

№   10.

program n_10_212;

var

i:   integer; // Счетчик цикла begin

for i := 1 to 10 do

writeln (i,' – Иванов Иван') end.

№   11.

program n_11_212;

var

i:   integer; // Счетчик цикла begin

for i := 1 to 4 do

begin

writeln ('*  *  *  *');

writeln ('  *  *  *  *')

end

end.

№ 12. а)

program n_12a_212;

var

n:   integer;  // Исходные данные

i:   integer;  //  Счѐтчик цикла

s:    integer;  //  Результат

begin

writeln ('Введите натуральное n>>');

readln (n);

s := 0;

for i := 1 to n do

s := s + i;

writeln ('s=', s)

end.

б) s := s + i*i;

в) if i mod 2 = 0 then s := s + i;

г) if (i >9) and (i<100) then s := s + i;

№ 13.

program n_13_212;

var

x:   integer;  // Исходные данные

s, i: integer;   // Промежуточные величины

sar: real;   // Результат

begin

randomize;

s := 0;

for i := 1 to 10 do

begin

x := random(20);

writeln (i,': x = ', x);

s := s + x

end;

sar := s / 10;

writeln ('sar = ', sar);

end.

№ 14.

program n_14_32_212;

var

i:   integer;  // Промежуточные величины

s:    real;  // Результат

begin

s := 40000;

for i := 1 to 3 do

s := 1.05*s;

writeln ('s = ', s);

end.

program n_14_33_212;

var

i:   integer;  // Промежуточные величины

s:    integer;  // Результат

begin

s := 1;

for i := 1 to 10 do

s := s*2;

writeln ('s = ', s);

end.

№ 15.

program n_15_212;

var

i:   integer;  // Промежуточная величина

s:    integer;  // Результат

begin

writeln('Таблица степеней двойки:');

s := 1;

for i := 0 to 10 do

begin

writeln(i:6,s:6);

s:=s*2;

end;

end.

№ 16.

program n_16_212;

var

n:   integer;  // Исходные данные

i:   integer;  // Параметр цикла

begin

writeln ('Введите n >>');

readln (n);

for i := 2 to 10 do

writeln(n, ‘*’, i, ‘=’, n*i);

end.