Презентация по информатике на тему Операторы цикла с условием

ОПЕРАТОРЫ ЦИКЛА С УСЛОВИЕМ ОПЕРАТОР ЦИКЛА С ПОСТУСЛОВИЕМ (ЦИКЛ ДО) Оператор цикла с постусловием используется, если число повторений заранее неизвестно, а определяется по ходу цикла. Repeat оператор 1;оператор 2;…………оператор nUntil условие; Цикл завершается тогда, когда после выполнения заданной последовательности операторов условие станет истинно. Услов. н е т д а Пример 1. Распечатать числа Фибоначчи от 1 до N.1, 1, 2, 3, 5, 8, 13, 21… Program fib;Var a, b, c, n, i: integer;Beginwriteln ('введите число n');readln (n);a:=1; b:=1; writeln (a, b);i:=3;repeat c:=a + b; writeln (c); a:=b; b:=c; i:=i+1until i>n;End. начало Ввод n a=1; b=1 Вывод a, b i=3 c=a + b Вывод c a=b, b=c i=i+1 i>n нет да конец ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ(ЦИКЛ ПОКА) While условие do оператор; Оператор цикла с предусловием выполняется до тех пор, пока условие имеет значение «истина».Прекращает выполняться, если условие принимает значение «ложь». н е т услов. да Пример 2. Подсчитать сумму всех нечетных чисел от 101 до 301. Program sum;Var s, i: integer;Begin s:=0; i:=101; while i<=301 do begin s:=s+i; i:=i+2 end; writeln (‘сумма нечетных чисел =', s);End. начало s=0 i=101 Вывод s конец s=s+i i=i+2 i<=301 нет да Пример 3. Вычислить наибольший общий делитель двух натуральных чисел A и B. program nod;var a, b: integer;begin write (' введите два натуральных числа'); readln (a, b); while a<>b do if a>b then a: = a - b else b: = b - a; writeln (‘НОД =', a);end. Применим алгоритм Евклида: будем уменьшать каждый раз большее из чисел на величину меньшего до тех пор, пока оба числа не станут равны. Исходные данные Первый шаг Второй шаг Третий шаг НОД(А,В)=5 А = 25 А = 10 А = 10 А = 5 В = 15 В = 15 В = 5 В = 5 ДОМАШНЕЕ ЗАДАНИЕ Найти наибольший общий делитель двух натуральных чисел А и В с использованием цикла До.Осёл может перенести груз, равный половине своего веса. Вес осла – m кг. В первый день на осла нагрузили a кг, а каждый следующий день увеличивали вес груза на 1 кг. Сколько дней сможет работать осёл, и какой суммарный груз он перевезёт за это время?