Решение задач на применение конструкции «цикл» в языке Pascal.

Осипова Т.Ю.

Тема урока: Решение задач на применение конструкции «цикл» в языке Pascal.

Цели урока:

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

• метапредметные — умение самостоятельно планировать пути достижения целей; умение соотносить свои действия с планируемыми результатами, осуществлять контроль своей деятельности, определять способы действий в рамках предложенных условий, корректировать свои действия в соответствии с изменяющейся ситуацией; умение оценивать правильность выполнения учебной задачи;

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

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

1) повторение основных видов циклических конструкций языка Паскаль ;

2) закрепление знаний по теме «Программирование алгоритмической конструкции «цикл»;

3) учить применять конструкцию «цикл» для программирования решения задач;

4) формировать навыки преобразования алгоритмов в программу на языке Паскаль;

5) развитие алгоритмического мышления.

Ход урока

1. Организационный момент.

2. Проверка ДЗ

3. Устное повторение

1. Когда используется циклы с предусловием и постусловием?

2. В чём отличие этих циклов?

3. Объясните принцип работы цикла с параметром, постусловием, предусловием?

1. Решение задач

Задача №1 (цикл с предусловием)

Найти количество первых натуральных чисел, сумма которых превысит 100.

Program n1;

var s, k: integer;

begin

S:=0;

K:=0;

while s

begin

K:=k+1;

S:=s+k;

end;

Writeln(‘количество слагаемых=’,k);

end.

Задача №2

Вычислить сумму всех нечетных чисел на промежутке от 11 до 30.

Program n2;

var s, k: integer;

begin

S:=0;

K:=0;

while s

begin

S:=s+k;

K:=k+2;

end;

Writeln(‘сумма нечетных чисел от11 до 30 =’, s);

end.

Задача №3 (цикл с параметром)

Найти сумму n натуральных чисел, n вводится с клавиатуры.

Program n3;

var n, i, s: integer;

begin

write(‘введите число n’);

readln(n);

S:=0;

for:=1 to n do

s:=s+i;

writeln(‘сумма =’, s);

end.

Задача №4

Найдите сумму n натуральных чисел, n вводится с клавиатуры.

(задача №3) используя цикл с предусловием.

Program n4;

Var i, n, s: integer;

Begin

Writeln (’Введите число n’);

Readln (n);

s:=0;

i:=1;

While i

begin

s:=s + i;

i:=i+ 1;

End;

Writeln (’Сумма элементов от 1 до ’, n, ’равна’, s);

end.

1. Д/З: § 3.5 РТ. №188 №194 №201(б)