Презентация по информатике и ИКТ в 9 классе на тему: Цикл с предусловием и цикл с постусловием в среде программирования Turbo Pascal.

Цикл с предусловием и цикл с постусловием В среде программирования Turbo Pascal

Структура программы на Turbo Pascal Program pr1, {………………………….пояснения} Var ………………….. Begin …………………………. Begin …………………………. End, Readln End. Повторение.

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

Повторение. 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. Вычисление факториала натурального числа n! (n! = 1 * 2 * 3 * … * n) Какая задача выполняется с помощью этой программы?

Новое на уроке Некоторые новые операторы, которые встретятся на уроке: Label k - описание в разделе Var «метка в программе» ….. K:Writeln( ‘Введите число’), - метка в программе …… goto k - обращение к метке в программе A div B - частное от деления А на В с остатком A mod B - остаток от деления А на В с остатком Write (i:5), - вывод чисел в строчку с интервалом 5 позиций.

И, конечно, операторы циклов Цикл с предусловием (While) Цикл с постусловием (repeat… until)

Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Характеристика: Является итерационным циклом, т.к. количество повторений заранее неизвестно. Тело цикла выполняется после проверки условия выхода из цикла и только в том случае, когда условие истинно, иначе цикл заканчивает свою работу. Т.о., может ни разу не выполниться. Является итерационным циклом, т.к. количество повторений заранее неизвестно. Тело цикла выполняется до проверки условия выхода из цикла, в том случае, если условие ложно, иначе цикл заканчивает свою работу. Хотя бы один раз выполниться.

Параметр цикла: Начальное значение задается вручную. Изменения параметра тоже происходят вручную на задаваемый программистом шаг. Причем действия над параметром цикла (счетчик выполнения) может совпадать с телом цикла. В отличии от цикла For параметр может быть и вещественным числом.

Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Условие выхода Обязательно должно быть истинным. Является полностью противоположным условию выхода цикла «До» Обязательно должно быть ложным. Является полностью противоположным условию выхода цикла «Пока»

Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Блок - схема

Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Реализация на языке Паскаль: логическая схема и запись операторов <,установка нач. значений>,, While <,условие выхода>, do <,тело цикла>,, <,установка нач.значений>,, Repeat <,тело цикла>, Until <,условие выхода>,,

Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Операторные скобки Если тело цикла состоит более чем из двух операторов языка Паскаль, включая строку изменения параметра, то они заключаются в операторные скобки Особенностью данного цикла является то, что операторные скобки для заключения действий, выполняемых в цикле не ставятся, при этом надо учесть, что перед Until «,» не ставится.

Цикл с предусловием While «Пока» Цикл с постусловием Repeat … Until «До» Пример: Из промежутка [a, b], где а<,b, вывести на экран только четные числа. 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 begin Write (i:5), I:=i+2 End, Readln End. Program pr2, 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, repeat Write (i:5), I:=i+2 Until i>,b, Readln End.

Задача. Вычислить сумму натурального ряда чисел от 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<,n do begin i:=i+1, s:=s+i, End, Write (s:5), Readln, End.

Итоги урока While repeat…….Until

Домашнее задание: учить конспект, составить программу для решения задачи: Вычислить сумму всех нечетных чисел в интервале (1,2k-1)