Презентация по информатике и ИКТ в 9 классе на тему: Цикл с предусловием и цикл с постусловием в среде программирования Turbo Pascal.
Цикл с предусловием и цикл с постусловием В среде программирования Turbo Pascal Повторение. Структура программы на Turbo Pascal Program pr1;{………………………….пояснения}Var ………………….. Begin ………………………….Begin………………………….End;ReadlnEnd. Вычисление факториала натурального числа n! (n! = 1 * 2 * 3 * … * n) Какая задача выполняется с помощью этой программы? Повторение. Program f; uses crt;var n,f,i :integer; BEGIN clrscr;writeln(‘Задайте n’); readln(n); for i:=1 to n do f:=f*i; writeln(‘F = ’,f); readln; END. Новое на уроке Некоторые новые операторы, которые встретятся на уроке:Label k - описание в разделе Var «метка в программе»…..K:Writeln( ‘Введите число’); - метка в программе……goto k - обращение к метке в программеA div B - частное от деления А на В с остатком A mod B - остаток от деления А на В с остатком Write (i:5); - вывод чисел в строчку с интервалом 5 позиций. И, конечно, операторы циклов Цикл с предусловием (While) Цикл с постусловием (repeat… until) Является итерационным циклом, т.к. количество повторений заранее неизвестно. Тело цикла выполняется до проверки условия выхода из цикла, в том случае, если условие ложно, иначе цикл заканчивает свою работу. Хотя бы один раз выполниться. Является итерационным циклом, т.к. количество повторений заранее неизвестно. Тело цикла выполняется после проверки условия выхода из цикла и только в том случае, когда условие истинно, иначе цикл заканчивает свою работу. Т.о., может ни разу не выполниться. Характеристика: Цикл с постусловием Repeat … Until «До» Цикл с предусловием While «Пока» Начальное значение задается вручную. Изменения параметра тоже происходят вручную на задаваемый программистом шаг. Причем действия над параметром цикла (счетчик выполнения) может совпадать с телом цикла. В отличии от цикла For параметр может быть и вещественным числом. Параметр цикла: Цикл с постусловием Repeat … Until «До» Условие выхода Обязательно должно быть ложным. Является полностью противоположным условию выхода цикла «Пока» Обязательно должно быть истинным. Является полностью противоположным условию выхода цикла «До» Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Блок - схема Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Реализация на языке Паскаль: логическая схема и запись операторов <установка нач.значений>;Repeat <тело цикла>Until <условие выхода>; <установка нач. значений>;While <условие выхода> do <тело цикла>; Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Операторные скобки Особенностью данного цикла является то, что операторные скобки для заключения действий, выполняемых в цикле не ставятся, при этом надо учесть, что перед Until «;» не ставится. Если тело цикла состоит более чем из двух операторов языка Паскаль, включая строку изменения параметра, то они заключаются в операторные скобки Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Пример: Из промежутка [a, b], где а
b then goto k;If a mod 2 = 0 then I:=a else i:=a+1;repeatWrite (i:5);I:=i+2Until i>b;ReadlnEnd. Program pr1;Uses crt;Label k;Var a,b, i: integer; Begin Clrscr;K:Writeln( ‘Введите границы промежутка’);Readln(a,b);If a>b then goto k;If a mod 2 = 0 then I:=a else i:=a+1;While i<=b do beginWrite (i:5);I:=i+2End;ReadlnEnd. Цикл с предусловием While «Пока» Задача. Вычислить сумму натурального ряда чисел от 1 до n С помощью двух циклов Program pr3;
Var n,i, s: integer;
Begin
Writeln ('Vvedite naturalnoe chislo N');
Readln(n);
i:=0;
repeat
i:=i+1;
s:=s+i
Until i>=n;
Write (s:5);
Readln;
End. Program pr4;
Var n,s, i: integer;
Begin
Writeln('Vvedite naturalnoe
chislo N');
Readln(n);
i:=0;
While i