Рабочие листы
к вашим урокам
Скачать
1 слайд
Цикл REPEAT
Особенность этих циклов заключается в том, что тело цикла с постусловием всегда выполняется хотя бы один раз!
2 слайд
Синтаксическая диаграмма
repeat
оператор
until
Логическое
выражение
;
3 слайд
Блок схема
Тело цикла
нет
(false)
Условие
(логическое
выражение)
да
(true)
REPEAT
UNTIL
Операторы, расположенные между REPEAT и UNTIL выполняются многократно до тех пор, пока условие false.
Как только условие становится истинным, управление переходит к следующему оператору.
4 слайд
Сколько раз будет напечатано на экране слово «ИНФОРМАТИКА» если:
repeat
write (‘ИНФОРМАТИКА');
i:=i+1;
until i=5;
i = 5
i = 10
i < 6
i = 0
5 раз
10 раз
1 раз
бесконечность
Экран
значение i
ИНФОРМАТИКА
i=1
ИНФОРМАТИКА
i=2
ИНФОРМАТИКА
i=3
ИНФОРМАТИКА
i=4
ИНФОРМАТИКА
i=5
5 слайд
Этапы решения задачи на компьютере
Анализ условия
Составление блок-схемы
Перевод решения на PASCAL
Тестирование и доводка алгоритма
6 слайд
Пример: Найти Сумму Последовательности Неравных Нулю Чисел, Завершающейся Нулем. Нуль Играет Роль Признака Конца Последовательности.
Программа будет использовать ввод (слагаемые – числа необходимо вводить с клавиатуры)
Программа будет использовать вывод (сумма – результат работы должен быть выведен на экран монитора)
Программа использует цикл (часть программы повторяется несколько раз: запрос, суммирование, проверка)
7 слайд
НАЧАЛО
Запрос
Ввод слагаемого: A
S:=S+A
A=0
Вывод результата: S
КОНЕЦ
Вывести на экран запрос об очередном слагаемом
Занести ответ пользователя в память
Суммировать в сумматор
Проверить слагаемое на равенство 0 (т.е. Признак окончания суммирования)
Вывести результат на экран PC
Решение:
Тело цикла
Пока не 0
8 слайд
НАЧАЛО
Запрос
Ввод слагаемого: A
S:=S+A
A=0
Вывод результата: S
КОНЕЦ
S:=0
Program Summa ;
Var A,S:Real;
Begin
S:=0;
Repeat
Write (‘Vvedite A=‘);
Read (A);
S:=S+A;
Until A=0;
Write (‘Summa=‘,S );
End.
:2:2
Ln
9 слайд
Тестирование работы программы
S=0
На запрос вводим А=1.2
S=S+A=0+1.2=1.2
Проверяем А=1.2<>0
На запрос вводим А=3.7
S=S+A=1.2+3.7=4.9
Проверяем А=3.7<>0
На запрос вводим А=0
S=S+A=4.9+0=4.9
Проверяем А=0=0
Выводим на экран S=4.9
10 слайд
Экран компьютера
1.2
0
3.7
Vvedite A=
Vvedite A=1.2
Vvedite A=
Vvedite A=1.2
Vvedite A=3.7
Vvedite A=
Vvedite A=1.2
Vvedite A=3.7
Vvedite A=0
Summa= 4.90
11 слайд
Соответствия блоков и команд
Шапка программы или конец (Program, Var, Const и т.д.)
Оператор (чаще всего :=)
Оператор ввода или вывода (Write; WriteLn; Read: ReadLn)
Начало цикла (Repeat)
Условие (IF), конец цикла «До» (Until) или начало цикла «Пока» (While)
12 слайд
Требования к оформлению
Все решения должны состоять из:
Условия задачи
Блок-схемы
Алгоритма на языке Pascal
Таблицы тестов
13 слайд
Задачи для самостоятельного решения
Найти произведение последовательности чисел не равных 1. Единица играет роль конца последовательности.
Вычислить факториал числа: n!=1*2*3*..*n
Вывести на экран определенную последовательность символов (цифр или букв), введенную с клавиатуры, несколько раз (количество определяется в процессе выполнения программы) а) в столбик; б) в строчку.
Вычислить сумму ряда:
1/x+1/x2+1/x3+..+1/xn
½+1/22+1/23+..+1/2n
Рабочие листы
к вашим урокам
Скачать
6 662 251 материал в базе
Настоящий материал опубликован пользователем Кулебякин Виктор Владимирович. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс повышения квалификации
36 ч. — 180 ч.
Курс повышения квалификации
72 ч. — 180 ч.
Курс повышения квалификации
36/72 ч.
Мини-курс
3 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.