ОТКРЫТЫЙ УРОК по Информатике для 8 класса

Конспект открытого урока учителя информатики и ИКТ

ГБОУ «Брянская областная школа-интернат имени Героя России

А. А. Титова»

Афонина Сергея Михайловича

8 класс

Тема урока: «Программирование циклов с заданным условием продолжения работы».

Тип урока: изучение нового материала.

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

предметные – представления об алгоритмической конструкции «цикл», о цикле с заданным условием продолжения работы; умение исполнять циклический алгоритм для формального исполнителя с заданной системой команд; умение составлять простые (короткие) циклические алгоритмы для формального исполнителя с заданной системой команд;

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

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

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

1)    расширить представления учащихся об алгоритмической конструкции «цикл»;

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

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

4)    получить навыки разработки циклов с заданным условием продолжения работы для различных формальных исполнителей с заданной системой команд.

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

·       алгоритм;

·       циклический алгоритм;

·       тело цикла.

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

персональный компьютер учителя, мультимедийный проектор, экран.

Электронное приложение к учебнику:

презентация «Основные алгоритмические конструкции.»

Ход урока.

1.     Организационный этап.

Здравствуйте ребята. Сегодня мы с вами узнаем много нового, и повторим уже ранее изученное.

2.     Актуализация знаний.

Давайте, пожалуйста, вспомним основные операторы Turbo Pascal 7.0.

Приведите примеры.

3.     Изучение нового материала.

Ребята, попробуем решить квадратное уравнение с помощью языка программирования высокого уровня с использованием конструкции while do. Первичное закрепление.

Чем отличается цикл в этом алгоритме от прежних операторов Паскаля? (условие стоит в начале цикла; вход в цикл осуществляется при верном условии; выход из цикла произойдет при ложном условии).

В учебнике на стр. 137 найдите информацию о том, как реализуется цикл с заданным условием продолжения работы на графическом языке и на алгоритмическом  языке. Ответьте на вопрос: как работает цикл-ПОКА. (найденную информацию прочитать вслух).

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

4.     Закрепление.

Решите задание в рабочей тетради №2, 4 стр. 141-142 (правильное решение отмечается знаком плюс).

Стр. 145 – 148 работа в группах (в парах).  Обсуждение и решение показать на  доске.

5.     Итог урока.   

С каким видом цикла вы сегодня познакомились? (Цикл –ПОКА, цикл с заданным условием продолжения работы).

Как работает цикл-ПОКА?

Дома изучить параграф 3.5 на стр. 137-141 и решить на стр. 143-144.

Задачу №17 решите с помощью изученного сегодня цикла с заданным условием продолжения работы. (творческий уровень).

Учитель сообщает итоги урока и выставляет оценки за урок.

Конспект открытого урока учителя информатики и ИКТ

ГБОУ «Брянская областная школа-интернат имени Героя России

А. А. Титова»

Афонина Сергея Михайловича

8 класс

Тема урока: «Программирование циклов с заданным условием продолжения работы».

Тип урока: изучение нового материала.

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

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

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

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

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

1)    расширить представления учащихся об алгоритмической конструкции «цикл»; (ранее изучен алгоритмический язык)

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

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

4)    получить навыки разработки циклов с заданным условием продолжения работы для различных формальных исполнителей с заданной системой команд.

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

·       алгоритм;

·       циклический алгоритм;

·       тело цикла.

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

персональный компьютер учителя, мультимедийный проектор, экран.

Электронное приложение к учебнику:

презентация «Основные алгоритмические конструкции»

Ход урока.

1.     Организационный этап.

Здравствуйте ребята. Сегодня мы с вами узнаем много нового, и повторим уже ранее изученное.

2.     Повторение пройденного материала (10 минут)

Работа по карточке(2 ученика у доски). Давайте, пожалуйста, вспомним основные операторы Turbo Pascal 7.0. Приведите примеры.

3.     Работа по карточке. Устная разминка(5 минут)

1.     Опишите полную форму  оператора ветвления.

2.     Опишите краткую форму оператора ветвления.

3.     Какими способами в программе могут быть записаны несколько операторов ветвлений?

4.     Приведите примеры записи простых и сложных условий  в операторе ветвления

4.     Формулирование  темы и целей  урока. Изучение нового материала.  (10 минут)

Цель урока: обобщения знаний о программировании циклов с заданным условием продолжения работы

Образовательные задачи урока:

Научить основным подходам к применению средств достижения поставленной цели – универсальный алгоритм.

Программирование программы «звёздное небо» с использованием конструкции  while do. Вывод чисел на экран от 1 до 100

5.     Первичное закрепление. (15 минут)

Ребята, попробуем решить квадратное уравнение с помощью языка программирования высокого уровня с использованием конструкции while do.

(осуществить проверку a<>0)

Чем отличается цикл в этом алгоритме от прежних операторов Паскаля? (условие стоит в начале цикла; вход в цикл осуществляется при верном условии; выход из цикла произойдет при ложном условии).

6.     Закрепление. (3 минуты)

Решите задание из учебника на страницах 141-144(2, 4, 11, 14)

(правильное решение отмечается знаком плюс).

Стр. 145 – 148 работа в группах (в парах).  Обсуждение и решение показать на  доске.

7.     Итог урока.    (2 минуты)

С каким видом цикла вы сегодня познакомились? (Цикл –ПОКА, цикл с заданным условием продолжения работы).

Как работает цикл-ПОКА?

Дома изучить параграф 3.5 на стр. 137-138

Учитель сообщает итоги урока и выставляет оценки за урок.

Самоанализ открытого урока по информатике и ИКТ, проведённого в 8 классе ГБОУ «Брянская областная школа-интернат имени Героя России А.А. Титова» учителем информатики Афониным С.М.

Уважаемые коллеги, я хотел бы представить вам самоанализ урока. Структура и терминология опирается на монографию Юрия Анатольевича Конаржевского «Анализ урока».

Данный урок проходил в 8 классе. Ребята в классе  имеют удовлетворительные знания, владеют самой необходимой терминологией, на уроке не все активны.

Если говорить о месте урока в курсе информатики, то это третий раздел «Начала программирования», включающий в себя 10 пунктов. Тема сообщалась через создание проблемной ситуации.

В рамках данной темы необходимо было повторить, обобщить, систематизировать полученные знания в ходе предыдущих уроков.

Следовательно тип урока комбинированный, хотя  с точки зрения Юрия Анатольевича Конаржевского,   урок можно считать синтетическим. (Изучение нового материала органически объединяется с его закреплением, повторение ранее пройденного опирается на известные учащимся знания и проводится не только изложения и объяснения учителем, но и в форме разнообразной работы учащихся. Отличается от комбинированного размытостью этапов, более сложной структурой и более сильным развивающим влиянием на личность. Понятие такого типа урока появилось на основе обобщения опыта учителей.)

Цель урока: создание условий для систематизации и обобщения знаний обучающихся о программировании циклов с заданным условием продолжения работы для результативного усвоения следующего материала и применения при решении задач.

Образовательные задачи урока:

·     Систематизировать и обобщить знания обучающихся о программировании циклов.

·     Научить основным подходам к применению средств достижения поставленной цели – универсальный алгоритм.

·     Актуализировать значимость универсального алгоритма при решении любой задачи (на уроке информатике или вне стен школы).

Развивающие задачи урока:

·        развивать учебно-интеллектуальные умения (устанавливать причинно-следственные связи, анализировать, обобщать, делать выводы) при разрешении поставленной проблемы;

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

·        развивать учебно-коммуникативные умения (задавать вопросы, объяснять и доказывать свою точку зрения, взаимодействовать в паре), формируя коммуникативные компетенции.

·        Развивать интерес к предмету.

Воспитательные задачи урока:

1)    Формировать уважительное отношение друг к другу и толерантность при ведении диалога, умение корректно отстаивать свою точку зрения.

2)    Воспитывать потребности и умения учиться информатике;

В структуре урока можно выделить несколько этапов:

Ход урока.

1.     Организационный этап.

Здравствуйте ребята. Сегодня мы с вами узнаем много нового, и повторим уже ранее изученное.

2.     Повторение пройденного материала (10 минут)

Работа по карточке(2 ученика у доски). Давайте, пожалуйста, вспомним основные операторы Turbo Pascal 7.0. Приведите примеры.

3.     Работа по карточке. Устная разминка(5 минут)

1.                   Опишите полную форму  оператора ветвления.

2.                   Опишите краткую форму оператора ветвления.

3.                   Какими способами в программе могут быть записаны несколько операторов ветвлений?

4.                   Приведите примеры записи простых и сложных условий  в операторе ветвления

4.     Формулирование  темы и целей  урока. Изучение нового материала.  (10 минут)

Цель урока: обобщения знаний о программировании циклов с заданным условием продолжения работы

Образовательные задачи урока:

Научить основным подходам к применению средств достижения поставленной цели – универсальный алгоритм.

Программирование программы «звёздное небо» с использованием конструкции  while do. Вывод чисел на экран от 1 до 100. Программа угадай число. Программа является ли число чётным.

5.     Первичное закрепление. (15 минут)

Ребята, попробуем решить квадратное уравнение с помощью языка программирования высокого уровня с использованием конструкции while do.

(осуществить проверку a<>0)

Чем отличается цикл в этом алгоритме от прежних операторов Паскаля? (условие стоит в начале цикла; вход в цикл осуществляется при верном условии; выход из цикла произойдет при ложном условии).

6.     Закрепление. (3 минуты)

Решите задание из учебника на страницах 141-144(2, 4, 11, 14)

(правильное решение отмечается знаком плюс).

Стр. 145 – 148 работа в группах (в парах).  Обсуждение и решение показать на  доске.

7.     Итог урока.    (2 минуты)

С каким видом цикла вы сегодня познакомились? (Цикл – ПОКА, цикл с заданным условием продолжения работы).

Как работает цикл - ПОКА?

Дома изучить параграф 3.5 на стр. 137-138

Учитель сообщает итоги урока и выставляет оценки за урок.

Все этапы урока были направлены на выполнение поставленных целей с учетом особенностей класса.

На уроке использовались следующие методы обучения: проблемный (когда предлагалась учебная ситуация – иллюстрация, в которой предлагалось самостоятельно найти решение), частично-поисковый или эвристический метод практически на всех этапах урока, объяснительно – иллюстративный, практический, метод обобщающего повторения, метод решения задач, метод стимулирования и мотивации (создание эмоциональных ситуаций) и т.д.

Использовались такие приемы: неожиданное открытие, организация беседы по пройденному материала, ведение карты урока, резюме учителя.

Предлагались разные формы работы: фронтальная, индивидуальная, работа в парах.

Использовались средства обучения: демонстрационное оборудование, учебно-наглядное пособие (стенд типы алгоритмов), технические средства обучения.

Активность была менее 50%, т.е. на удовлетворительном уровне. Такая активность, на мой взгляд, обусловлена тем, что тема очень обширная и затрагивает все ранее изученные разделы, содержание, методы и приемы обучения соответствовали данному типу урока и возрастной категории ребят. Все что планировалось,  было усвоено ребятами, поэтому, я считаю,  что урок поставленной цели достиг. Результаты, на мой взгляд, оптимальны.

Урок имел практическую направленность, решение задач на компьютере помогло сделать урок наиболее наглядным.

Особенно удалось воплотить на уроке составление алгоритмов программ.

Не удалось в полной мере реализовать самостоятельное исправление ошибок при программировании программ, потому что данный урок имеет повышенную сложность.

Спасибо, я готов ответить на ваши вопросы.

program kvadratnoe_uravnenie_or_calc;

uses crt;

var a, b, c, d:integer;

x1, x2:real;

ch:char;

label calc,uravn;

begin

clrscr;

textbackground(green);

clrscr;

textcolor(black);

writeln('calc or uravn (vvedite c or u)');

readln(ch);

if ch='c' then

begin

while ch='c' do

begin

writeln('vvedite a');

readln(a);

writeln('deistvie');

readln(ch);

writeln('vvedite b');

readln(b);

case ch of

'+':writeln(a,'+',b,'=',a+b);

'-':writeln(a,'-',b,'=',a-b);

'*':writeln(a,'*',b,'=',a*b);

'/':writeln(a,'/',b,'=',a/b);

end;

writeln('pause');

readln;

halt(1);

end;

end;

if ch='u' then goto uravn;

uravn:writeln('a*(x^2)+b*x+c=0');

writeln('vvedite a, b, c');

readln(a,b,c);

writeln(a,'*(x^2)+',b,'*x','+',c,'=0');

writeln('D=(b^2)-4*a*c');

writeln('D=',b,'*',b,'-',4,'*',a,'*',c,'=0');

d:=sqr(b)-4*a*c;

writeln('D=',d);

if d<0 then

begin

writeln('kornei net');

readln;

halt(1);

end;

while d>=0 do

begin

x1:=(-b-sqrt(d))/(2*a);

x2:=(-b+sqrt(d))/(2*a);

if d=0 then

begin

writeln('x=',x1:7:2);

readln;

halt(2);

end;

if d>0 then

begin

writeln('x1=',x1:7:2,';','x2=',x2:7:2);

readln;

halt(3)

end;

end;

readln;

end.

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

---------------------------------------------------------------------------------

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

---------------------------------------------------------------------------------

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

---------------------------------------------------------------------------------

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

---------------------------------------------------------------------------------

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

---------------------------------------------------------------------------------

Program name;  – название программы

Uses crt, graph; - работа с клавиатурой, графикой

Var x:integer; – описание переменных

Integer, real, string, char, Boolean – тип переменной(2;

17,5; stroke; a; true, false)

Begin end. -  начало и конец программы

X:= 15; - оператор присваивания

Write(‘ ‘); writeln(‘ ‘); – вывод на экран

{ } (* *) - комментарий

Read(x); readln(x); - ввод значений в переменную,

описанную в разделе var

If условие then оператор 1 else оператор 2

While условие do begin оператор end;

---------------------------------------------------------------------------------

1.     Определить значение переменной  С  по фрагменту программы

2.     Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке Pascal.

Алгоритмический язык	Язык Pascal

1.     Определить значение переменной  С  по фрагменту программы

2.     Преобразовать алгоритм, записанный на алгоритмическом языке в программу на языке Pascal.

Алгоритмический язык	Язык Pascal

• 1 слайд

  Программирование циклов с заданным условием окончания работы
  

• 2 слайд

  Ключевые слова
  while ( цикл-ПОКА)
  repeat (цикл-ДО)
  for (цикл с параметрами)
  

• 3 слайд

  Программирование циклов с заданным условием продолжения работы
  Общий вид оператора:
  while <условие> do <оператор>
  Здесь:
  <условие> - логическое выражение;
  пока оно истинно, выполняется тело цикла;
  <оператор> - простой или составной оператор, с помощью которого записано тело цикла.
  Тело цикла
  Условие
  да
  нет
  

• 4 слайд

  да
  нет
  Начало
  Список данных
  x, y, r, q - цел
  x, y
  r:=x
  q:=0
  r >=x
  r:= r - y
  q:= q +1
  Конец
  r, y
  program n_14;
  var x, y, q, r: integer;
  begin
  writeln ('Частное и остаток');
  write ('Введите делимое x>>');
  readln (x);
  write ('Введите делитель y>>');
  read (y);
  r:=x;
  q:=0;
  while r>=x do
  begin
  r:=r-y;
  q:=q+1
  end;
  writeln ('Частное q=', q);
  writeln ('Остаток r=', r)
  end.
  

• 5 слайд

  Программирование циклов с заданным условием окончания работы
  Общий вид оператора:
  repeat <оператор1; оператор2; …; > until <условие>
  Здесь:
  <оператор1>; <оператор2>; … - операторы, образующие тело цикла;
  <условие> - логическое выражение; если оно ложно, то выполняется тело цикла.
  Тело цикла
  Условие
  да
  нет
  

• 6 слайд

  program n_15;
  var i: integer; x: real;
  begin
  writeln ('График тренировок');
  i:=1;
  x:=10;
  repeat
  i:=i+1;
  x:=x+0.1*x;
  until x>=25;
  writeln ('Начиная с ', i, '-го дня спортсмен будет пробегать 25 км')
  end.
  Конец
  да
  нет
  Начало
  Список данных
  i – цел
  x- вещ
  i := 1
  x := 10
  x>= 25
  i := i +1
  x := x +0,1x
  i
  

• 7 слайд

  Программирование циклов с заданным числом повторений
  Общий вид оператора:
  for <параметр>:=<начальное_значение>
  to <конечное_значение> do <оператор>
  Здесь:
  <параметр> - переменная целого типа;
  <начальное_значение> и <конечное_значение> - выражения того же типа, что и параметр;
  <оператор> - простой или составной оператор - тело цикла.
  После каждого выполнения тела цикла происходит увеличение на единицу параметра цикла; условие выхода из цикла - превышение параметром конечного значения.
  Тело цикла
  i = i1, i2
  

• 8 слайд

  program n_16;
  var i,n:integer;a,y:real;
  begin
  writeln ('Возведение в степень');
  write ('Введите основание a>>');
  readln (a);
  write ('Введите показатель n>>');
  readln (n);
  y:=1;
  for i:=1 to n do y:=y*a;
  writeln ('y=', y)
  end.
  Конец
  Начало
  Список данных
  i, n – цел
  a, y- вещ
  y := 1
  y := y * a
  y
  a, n
  i = 1, n
  

• 9 слайд

  Различные варианты программирования циклического алгоритма
  Для решения одной и той же задачи могут быть созданы разные программы.
  Организуем ввод целых чисел и подсчёт количества введённых положительных и отрицательных чисел. Ввод должен осуществляться до тех пор, пока не будет введён ноль.
  В задаче в явном виде задано условие окончания работы.
  
  Воспользуемся оператором repeat.
  

• 10 слайд

  program n_17;
  var n, k1, k2: integer;
  begin
  k1:=0;
  k2:=0;
  repeat
  write ('Введите целое число>>');
  readln (n);
  if n>0 then k1:=k1+1;
  if n<0 then k2:=k2+1;
  until n=0;
  writeln ('Введено:');
  writeln ('положительных чисел – ', k1);
  writeln ('отрицательных чисел – ', k2)
  end.
  да
  нет
  n
  n > 0
  Начало
  Список данных
  n, k1, k2 - цел
  n < 0
  n = 0
  k1, k2
  Конец
  k1:=0
  k2:=0
  k1:=k1+1
  k2:=k2+1
  да
  да
  нет
  нет
  

• 11 слайд

  Ввод осуществляется до тех пор, пока не будет введён ноль.
  
  Работа продолжается, пока n 0.
  
  Воспользуемся оператором while:
  program n_18;
  var n, k1, k2: integer;
  begin
  k1:=0;
  k2:=0;
  while n<>0 do
  begin
  writeln ('Введите целое число>>');
  read (n);
  if n>0 then k1:=k1+1;
  if n<0 then k2:=k2+1;
  end;
  writeln ('Введено:');
  writeln ('положительных – ', k1);
  writeln ('отрицательных – ', k2)
  end.
  да
  n > 0
  да
  нет
  n
  Начало
  Список данных
  n, k1, k2 - цел
  n <> 0
  k1, k2
  Конец
  k1:=0
  k2:=0
  k1:=k1+1
  k2:=k2+1
  нет
  

• 12 слайд

  Самое главное
  В языке Паскаль имеются три вида операторов цикла:
  while цикл-ПОКА)
  repeat (цикл-ДО)
  for (цикл с параметром).
  Если число повторений тела цикла известно, то лучше воспользоваться оператором for; в остальных случаях используются операторы while и repeat.
  

• 13 слайд

  Вопросы и задания
  Дана последовательность операторов:
  a:=1;
  b:=2;
  while a+b<8 do
  begin
  a:=a+1;
  b:=b+2;
  end;
  s:=a+b
  Сколько раз будет повторен цикл и какими будут значения переменных a, b, s после исполнения этой последовательности операторов?
  Требовалось написать программу вычисления факториала числа n (факториал числа n есть произведение всех целых чисел от 1до n).
  Программист торопился и написал программу неправильно.
  Ниже приведён фрагмент его программы, в котором содержится пять ошибок:
  k:=1;
  f:=0;
  while k<n do
  f:=f*k;
  k:=k+1
  Найдите ошибки. Допишите необходимые операторы.
  Проанализируйте следующий цикл:
  while a<b do
  c:=a=b;
  В чём его особенность?
  Дана последовательность операторов:
  a:=1;
  b:=1;
  repeat
  a:=a+1;
  b:=b*2;
  until b>8;
  s:=a+b
  Сколько раз будет повторён цикл и какими будут значения переменных a, b, s после исполнения этой последовательности операторов?
  Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы и среднего арифметического введённых положительных чисел.
  Используйте оператор repeat.
  Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел.
  Используйте оператор repeat.
  Напишите программу вычисления наибольшего общего делителя двух целых чисел:
  а) используйте оператор repeat;
  б) используйте оператор while.
  Сколько раз будет выполнен цикл?
  а) for i:=0 to 15 do s:=s+1;
  б) for i:=10 to 15 do s:=s+1;
  в) for i:=-1 to 1 do s:=s+1;
  г) for i:=10 to 10 do s:=s+1;
  д) k:=5;
  for i:=k-1 to k+1 do s:=s+1;
  Напишите программу, которая 10 раз выводит на экран
  ваши имя и фамилию.
  Напишите программу, выводящую на экран изображение шахматной доски, где чёрные клетки изображаются звёздочками, а белые - пробелами. Рекомендуемый вид экрана после выполнения программы представлен ниже:
  * * * *
  * * * *
  * * * *
  * * * *
  * * * *
  * * * *
  * * * *
  * * * *
  Напишите программу, которая вычисляет сумму:
  а) первых n натуральных чисел;
  б) квадратов первых n натуральных чисел;
  в) всех чётных чисел в диапазоне от 1 до n;
  г) всех двузначных чисел.
  Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их среднее арифметическое.
  Напишите программу, которая выводит на экран таблицу степеней двойки (от нулевой до десятой).
  Рекомендуемый вид экрана после выполнения программы представлен ниже:
  Таблица степеней двойки:
  0 1
  1 2
  2 4
  3 8
  4 16
  5 32
  6 64
  7 128
  8 256
  9 512
  10 1024
  Напишите программу, которая выводит на экран таблицу умножения на n (n - целое число в диапазоне от 2 до 10, вводимое с клавиатуры).
  Какой из трёх рассмотренных операторов цикла является, по вашему мнению, основным, т. е. таким, что им можно заменить два других?
  Обоснуйте свою точку зрения.
  

• 14 слайд

  Опорный конспект
  while (цикл-ПОКA)
  repeat (цикл-ДО)
  for (цикл с параметром).
  Число повторений
  цикла известно
  В языке Паскаль имеются три вида операторов цикла:
  Число повторений
  цикла неизвестно