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

Цикл – это многократное выполнение одинаковой последовательности действий.цикл с известным числом шаговцикл с неизвестным числом шагов (цикл с условием) Цикл While Особенность этих циклов заключается в том, что тело цикла с предсловием выполняет многократно одни и те же действия в зависимости от условия While выражение do оператор Синтаксическая диаграмма нет(false) Условие (логическое выражение) да (true) WHILE DO Оператор, расположенный после DO выполняются многократно до тех пор, пока условие TRUE. Как только условие становится ложным, управление переходит к следующему оператору. Тело цикла Блок схема i:=0;While i<5 dobegin write (‘ИНФОРМАТИКА'); i:=i+1;end; i < 5 i < 10 i > 6 i >= 0 5 раз 10 раз Ни разу бесконечность Экран значение i ИНФОРМАТИКА i=0 ИНФОРМАТИКА i=1 ИНФОРМАТИКА i=2 ИНФОРМАТИКА i=3 ИНФОРМАТИКА i=4 Сколько раз будет напечатано на экране слово «ИНФОРМАТИКА» если: Пример: Найти Сумму Последовательности Неравных Нулю Чисел, Завершающейся Нулем. Нуль Играет Роль Признака Конца Последовательности. Программа будет использовать ввод (слагаемые – числа необходимо вводить с клавиатуры)Программа будет использовать вывод (сумма – результат работы должен быть выведен на экран монитора)Программа использует цикл (часть программы повторяется несколько раз: запрос, суммирование, проверка) 2. Вывести на экран запрос об очередном слагаемом 3. Занести ответ пользователя в память 4. Суммировать в сумматор 1. Проверить слагаемое на равенство 0 (т.е. Признак окончания суммирования) Вывести результат на экран PC Решение: Тело цикла НАЧАЛО Запрос Ввод слагаемого: A S:=S+A A< >0 Вывод результата: S КОНЕЦ Program Summa ; Var A,S:Real; Begin S:=0; a:=1; While a< > 0 do begin Write (‘Vvedite A=‘); Read (A); S:=S+A; end; Write (‘Summa=‘,S ); End. :2:2 Ln НАЧАЛО Запрос Ввод слагаемого: A S:=S+A A< >0 Вывод результата: S КОНЕЦ Program Summa ;uses CRT; Var s,a:Real;Beginclrscr;S:=0; a:=1; While a< >0 do begin write ('Введите А='); read (A); S:=S+A; end;write ('Сумма чисел =',S);end. Program Summa ;uses CRT; Var A,S:Real;Beginclrscr;S:=0; repeat write ('Введите А='); read (A); S:=S+A; until A=0;write ('Сумма чисел =',S);end. Сравнение циклов Задачи для самостоятельного решения Найти произведение последовательности чисел не равных 1. Единица играет роль конца последовательности.Вычислить факториал числа: n!=1*2*3*..*nВывести на экран определенную последовательность символов (цифр или букв), введенную с клавиатуры, несколько раз (количество определяется в процессе выполнения программы) а) в столбик; б) в строчку.Вычислить сумму ряда:1/x+1/x2+1/x3+..+1/xnЅ+1/22+1/23+..+1/2n