Урок информатики на тему "Циклы с постусловием в Турбо Паскале"
план-конспект урока информатики и икт (10 класс) по теме

Урок по информатике на тему "Циклы с постусловием в Турбо Паскале"

Цель:

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

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

Этап проверки домашнего задания.

А) Найдите ошибки в программе

Programm Sum.

Var: a,b p , integer

a:=1; b:=1

While a+b<8 do

begin a:=a+1,b=b+2 end;

S:=a+b

end

б) Найдите значение у после выполнения фрагмента программы:

Begin

S:=0; i:=2;

While i<=20 do begin

S:=s+I; I:=i+2;

end;

Writeln(‘сумма элементов=‘,s);

End.

в)на листе  написать конструкцию цикла с предусловием, рассказать как работает цикл с предусловием, привести пример.

Циклы с постусловием в Турбо Паскале

Repeat

<оператор 1>;

……………..

<оператор n>;

Until <условие>;

Новые слова

Repeat(ри’пит) – повторяй;

Until(ан’тил) – до тех пор пока;

Конструкция:

Repeat у:= а+1 until а+2>10

Читается так:

Повторяй у присваивать а+1 до тех пор, пока а+2 не станет больше 10.

Работа оператора repeat

1.Выполняется тело цикла;

2.Проверяется условие выхода из цикла; (Поэтому цикл выполняется хотя бы один раз)

3.Если условие ложно, то переход к п. 1;

4.Если условие истинное, то происходит выход из цикла.

Работа оператора while ;

1.Проверяется условие, стоящее после while;

2.Если условие истинно, то выполняется оператор(тело цикла), стоящий после do;

3.Переход к п. 1

4.Если условие ложно, то происходит выход из цикла.

Сравнить работу операторов циклов и найти отличия.

Сравнить блок-схемы циклов и найти отличия (рисунок 1 и рисунок 2)

Для того чтобы точно определить работу оператора repeat приведём программы решения задачи параллельно с вариантом программы через оператор while:

Var f:integer;

Begin

       F:=3;

          While f<=9 do

                Begin

                      Write(f,’ ‘);

                        F:=f+2;

                 End;

          Readln

End.

Var f:integer;

Begin

F:=3;

repeat

Write(f,’ ‘);

F:=f+2;

Until  f>9;

Readln

End.

1.Какое значение будет принимать переменная у после выполнения программы:

Заполнить таблицу до конца.

Вычислить сумму последовательности 1+1/2+1/3+1/4+…+1/100.

Решение:

Var s:real; i:integer;

Begin

I:=1; s:=0;

Repeat

S:=s+1/I;

I:=i+1

Until i>100;

Writeln(‘сумма=’,s:5:3);

End.

Ввести текст программы. Откомпилировать программу на компьютере

Вопросы  для повторения .

1.Какова конструкция цикла с постусловием?

2.Как работает цикл с постусловием?

3. Назовите отличия цикла с предусловием и с постусловием.

Выполнить по карточкам домашнюю самостоятельную работу в трёх вариантах :

Вариант 1

Составить программу, используя цикл с постусловием:

Подсчитать сумму всех нечётных чисел от 230 до 430

Вариант2

Составить программу, используя цикл с постусловием:

Вычислить квадратные корни из чисел 900, 893, 886,879… до тех пор пока это можно делать.

Вариант3

Напишите программу через цикл с постусловием для задачи:

Найти сумму цифр четырёхзначного числа.