Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Презентации / Презентация по информатике на тему "Программирование на языке Паскаль-Циклы с условием"

Презентация по информатике на тему "Программирование на языке Паскаль-Циклы с условием"


До 7 декабря продлён приём заявок на
Международный конкурс "Мириады открытий"
(конкурс сразу по 24 предметам за один оргвзнос)

  • Информатика

Название документа Программирование на языке Паскаль-Циклы с условием.ppt

Программирование на языке Паскаль Циклы с условием
Цикл с неизвестным числом шагов Пример: Отпилить полено от бревна. Сколько ра...
Алгоритм начало count конец нет да n  0? count := 0; count := count + 1; n :=...
Программа program qq; var n, count: integer; begin writeln('Введите целое чис...
Цикл с условием 	while  do begin {тело цикла} end; Особенности: можно использ...
Цикл с условием Особенности: условие пересчитывается каждый раз при входе в ц...
Сколько раз выполняется цикл? a := 4; b := 6; while a < b do a := a + 1; 2 ра...
Замена for на while и наоборот for i:=1 to 10 do begin {тело цикла} end; i :=...
Задания "4": Ввести целое число и найти сумму его цифр. Пример: 		Введите цел...
Последовательности Примеры: 1, 2, 3, 4, 5, … 1, 2, 4, 7, 11, 16, … 1, 2, 4, 8...
Последовательности Задача: найти сумму всех элементов последовательности, кот...
Алгоритм начало S конец нет да |a| > 0.001? S := S + a; S := 0; b := 1; c :=...
Программа program qq; var b, c, z: integer; S, a: real; begin S := 0; z := -1...
Задания "4": Найти сумму элементов последовательности с точностью 0,001: Отве...
Цикл с постусловием Задача: Ввести целое положительное число ( проверку услов...
Цикл с постусловием: алгоритм начало конец да нет n > 0? тело цикла условие В...
Программа program qq; var n: integer; begin repeat writeln('Введите положител...
Сколько раз выполняется цикл? a := 4; b := 6; repeat a := a + 1; until a > b;...
Задания (с защитой от неверного ввода) "4": Ввести натуральное число и опреде...
1 из 19

Описание презентации по отдельным слайдам:

№ слайда 1 Программирование на языке Паскаль Циклы с условием
Описание слайда:

Программирование на языке Паскаль Циклы с условием

№ слайда 2 Цикл с неизвестным числом шагов Пример: Отпилить полено от бревна. Сколько ра
Описание слайда:

Цикл с неизвестным числом шагов Пример: Отпилить полено от бревна. Сколько раз надо сделать движения пилой? Задача: Ввести целое число (<2000000) и определить число цифр в нем. Идея решения: Отсекаем последовательно последнюю цифру, увеличиваем счетчик. Проблема: Неизвестно, сколько шагов надо сделать. Решение: Надо остановиться, когда n = 0, т.е. надо делать "пока n <> 0". n count 123 0 12 1 1 2 0 3

№ слайда 3 Алгоритм начало count конец нет да n  0? count := 0; count := count + 1; n :=
Описание слайда:

Алгоритм начало count конец нет да n <> 0? count := 0; count := count + 1; n := n div 10; обнулить счетчик цифр ввод n выполнять "пока n <> 0"

№ слайда 4 Программа program qq; var n, count: integer; begin writeln(&#039;Введите целое чис
Описание слайда:

Программа program qq; var n, count: integer; begin writeln('Введите целое число'); read(n); count := 0; while n <> 0 do begin count := count + 1; n := n div 10; end; writeln('В числе ', n, ' нашли ', count, ' цифр'); end. while n <> 0 do begin count := count + 1; n := n div 10; end; , n1: integer; n1 := n; n1, выполнять "пока n <> 0"

№ слайда 5 Цикл с условием 	while  do begin {тело цикла} end; Особенности: можно использ
Описание слайда:

Цикл с условием while <условие> do begin {тело цикла} end; Особенности: можно использовать сложные условия: если в теле цикла только один оператор, слова begin и end можно не писать: while (a<b) and (b<c) do begin {тело цикла} end; while a < b do a := a + 1;

№ слайда 6 Цикл с условием Особенности: условие пересчитывается каждый раз при входе в ц
Описание слайда:

Цикл с условием Особенности: условие пересчитывается каждый раз при входе в цикл если условие на входе в цикл ложно, цикл не выполняется ни разу если условие никогда не станет ложным, программа зацикливается a := 4; b := 6; while a > b do a := a – b; a := 4; b := 6; while a < b do d := a + b;

№ слайда 7 Сколько раз выполняется цикл? a := 4; b := 6; while a &lt; b do a := a + 1; 2 ра
Описание слайда:

Сколько раз выполняется цикл? a := 4; b := 6; while a < b do a := a + 1; 2 раза a = 6 a := 4; b := 6; while a < b do a := a + b; 1 раз a = 10 a := 4; b := 6; while a > b do a := a + 1; 0 раз a = 4 a := 4; b := 6; while a < b do b := a - b; 1 раз b = -2 a := 4; b := 6; while a < b do a := a - 1; зацикливание

№ слайда 8 Замена for на while и наоборот for i:=1 to 10 do begin {тело цикла} end; i :=
Описание слайда:

Замена for на while и наоборот for i:=1 to 10 do begin {тело цикла} end; i := 1; while i <= 10 do begin {тело цикла} i := i + 1; end; for i:=a downto b do begin {тело цикла} end; i := a; while i >= b do begin {тело цикла} i := i - 1; end; Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла. Замена цикла for на while возможна всегда.

№ слайда 9 Задания &quot;4&quot;: Ввести целое число и найти сумму его цифр. Пример: 		Введите цел
Описание слайда:

Задания "4": Ввести целое число и найти сумму его цифр. Пример: Введите целое число: 1234 Сумма цифр числа 1234 равна 10. "5": Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Пример: Введите целое число: Введите целое число: 1234 1224 Нет. Да.

№ слайда 10 Последовательности Примеры: 1, 2, 3, 4, 5, … 1, 2, 4, 7, 11, 16, … 1, 2, 4, 8
Описание слайда:

Последовательности Примеры: 1, 2, 3, 4, 5, … 1, 2, 4, 7, 11, 16, … 1, 2, 4, 8, 16, 32, … an = n a1 = 1, an+1 = an+1 a1 = 1, an+1 = an + n an = 2n-1 a1 = 1, an+1 = 2an b1 = 1, bn+1 = bn+1 c1 = 2, cn+1 = 2cn

№ слайда 11 Последовательности Задача: найти сумму всех элементов последовательности, кот
Описание слайда:

Последовательности Задача: найти сумму всех элементов последовательности, которые по модулю больше 0,001: Элемент последовательности (начиная с №2): b := b+1; c := 2*c; z := -z; n 1 2 3 4 5 ... b 1 2 3 4 5 ... c 2 4 8 16 32 ... z -1 1 -1 1 -1 ...

№ слайда 12 Алгоритм начало S конец нет да |a| &gt; 0.001? S := S + a; S := 0; b := 1; c :=
Описание слайда:

Алгоритм начало S конец нет да |a| > 0.001? S := S + a; S := 0; b := 1; c := 2; z := -1; a := 1; начальные значения a := z*b/c; b := b + 1; c := 2*c; z := -z; первый элемент a := 1; S := 0; новый элемент изменение

№ слайда 13 Программа program qq; var b, c, z: integer; S, a: real; begin S := 0; z := -1
Описание слайда:

Программа program qq; var b, c, z: integer; S, a: real; begin S := 0; z := -1; b := 1; c := 2; a := 1; while abs(a) > 0.001 do begin S := S + a; a := z * b / c; z := - z; b := b + 1; c := c * 2; end; writeln('S =', S:10:3); end. z := - z; b := b + 1; c := c * 2; переход к следующему слагаемому S := 0; z := -1; b := 1; c := 2; a := 1; начальные значения увеличение суммы расчет элемента последовательности

№ слайда 14 Задания &quot;4&quot;: Найти сумму элементов последовательности с точностью 0,001: Отве
Описание слайда:

Задания "4": Найти сумму элементов последовательности с точностью 0,001: Ответ: S = 1.157 "5": Найти сумму элементов последовательности с точностью 0,001: Ответ: S = 1.220

№ слайда 15 Цикл с постусловием Задача: Ввести целое положительное число ( проверку услов
Описание слайда:

Цикл с постусловием Задача: Ввести целое положительное число (<2000000) и определить число цифр в нем. Проблема: Как не дать ввести отрицательное число или ноль? Решение: Если вводится неверное число, вернуться назад к вводу данных (цикл!). Особенность: Один раз тело цикла надо сделать в любом случае => проверку условия цикла надо делать в конце цикла (цикл с постусловием). Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

№ слайда 16 Цикл с постусловием: алгоритм начало конец да нет n &gt; 0? тело цикла условие В
Описание слайда:

Цикл с постусловием: алгоритм начало конец да нет n > 0? тело цикла условие ВЫХОДА блок "типовой процесс" ввод n основной алгоритм

№ слайда 17 Программа program qq; var n: integer; begin repeat writeln(&#039;Введите положител
Описание слайда:

Программа program qq; var n: integer; begin repeat writeln('Введите положительное число'); read(n); until n > 0; ... { основной алгоритм } end. repeat writeln('Введите положительное число'); read(n); until n > 0; until n > 0; условие ВЫХОДА Особенности: тело цикла всегда выполняется хотя бы один раз после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

№ слайда 18 Сколько раз выполняется цикл? a := 4; b := 6; repeat a := a + 1; until a &gt; b;
Описание слайда:

Сколько раз выполняется цикл? a := 4; b := 6; repeat a := a + 1; until a > b; 3 раза a = 7 a := 4; b := 6; repeat a := a + b; until a > b; 1 раз a = 10 a := 4; b := 6; repeat a := a + b; until a < b; зацикливание a := 4; b := 6; repeat b := a - b; until a < b; 2 раза b = 6 a := 4; b := 6; repeat a := a + 2; until a < b; зацикливание

№ слайда 19 Задания (с защитой от неверного ввода) &quot;4&quot;: Ввести натуральное число и опреде
Описание слайда:

Задания (с защитой от неверного ввода) "4": Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10. Пример: Введите число >= 0: Введите число >= 0: -234 1233 Нужно положительное число. Нет Введите число >= 0: 1234 Да "5": Ввести натуральное число и определить, какие цифры встречаются несколько раз. Пример: Введите число >= 0: Введите число >= 0: 2323 1234 Повторяются: 2, 3 Нет повторов.


57 вебинаров для учителей на разные темы
ПЕРЕЙТИ к бесплатному просмотру
(заказ свидетельства о просмотре - только до 11 декабря)

Автор
Дата добавления 12.12.2015
Раздел Информатика
Подраздел Презентации
Просмотров302
Номер материала ДВ-252140
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх