Презентация на тему: Циклы

ЦИКЛЫ Преподаватель информатики КГБОУ СПО «Барнаульский государственный педагогический колледж» Жиляева Ирина Петровна

Прямой циклFor :=А to В do ;где А - , В - ; A≤B.Обратный цикл For := А downto В do ; A≥B.

Найти количество четных чисел в диапазоне от 20 до 100?Program zadacha1;Var I, k: Integer;BeginCls;For I:=20 To 100 Do If I mod 2=0 then k:=k+1;Writeln(‘Количество четных чисел в диапазоне от 20 до 100 = ‘,k);End.

Найти количество цифр в веденном n-значном натуральном числе. Пусть дано семизначное число:Отсекаем последовательно последнюю цифру числа.Увеличиваем при этом каждый раз счетчик на 1.

Найти количество цифр в веденном n-значном натуральном числе. Если число n-значное, то неизвестно: сколько шагов нужно сделать.Когда число (после очередного отсекания цифры) станет равным нулю.

Пока есть желание, возможность и здоровье делай:   посещай занятия спортом.

Спортсмен стоит на старте. На финише – тренер. Спортсмен добегает до финиша, тренер у него спрашивает: «Устал?». Если спортсмен говорит: «Нет», то снова бежит от старта к финишу, а иначе бег заканчивается.

Синтаксис оператора: while do ; Блок – схема:

Найти количество цифр в веденном n-значном натуральном числе. program kolichestvo_zifr;var n, k: integer;begincls;write ('Введите натуральное n-значное число - ');readln(n);k := 0; while n 0 do beginn := n div 10;k := k + 1;end;writeln ('В числе ', n, ' количество цифр равно ', k);end.

Синтаксис оператора: Блок – схема:repeat until ;

Найти количество цифр в веденном n-значном натуральном числе. program kolichestvo_zifr;var n, k: integer;begincls;write ('Введите натуральное n-значное число - ');readln(n);k := 0; repeatn:=n div 10;k:=k+1;until n = 0;writeln ('В числе ', n, ' количество цифр равно ', k);end.

Цикл с предусловием While (пока условие истинно)Цикл с постусловием Repeat (до истинности условия)До начала цикла должны быть сделаны начальные установки переменных, управляющих условием цикла, для корректного входа в цикл.

Задание 1. Сколько раз выполняется цикл?

Задание 1. Сколько раз выполняется цикл?

Задание 2. Сколько раз выполняется цикл?)  a := 5; b := 7; repeat a := a + 1; until a > b;

Задание 2. Сколько раз выполняется цикл?

Индивидуальные задания для компьютерного практикумаЦикл с предусловием Задача 1. Дано натуральное n-значное число. Верно ли, что сумма его цифр больше 10.Задача 2. Дано натуральное n-значное число. Определить, сколько раз в нем встречается цифра, равная последней.Задача 3. Составить программу нахождения количества делителей числа n (значение n вводится с клавиатуры). Задача 4. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти сумму всех чисел последовательности.Задача 1. Дано натуральное число. Верно ли, что это число четырехзначное?Задача 2. Известны оценки по информатике 15 учеников класса. Выяснить, есть ли среди них двойки.Задача 3. Даны вещественные числа b1, b2, b3,,…,b9. Определить среднее арифметическое тех из них, которые больше 10.Задача 4. Известна масса каждого из 15 учеников класса. Верно ли, что масса самого тяжёлого из них превышает массу самого лёгкого более, чем в два раза?

Задача 1. Дано натуральное число. Определить, есть ли в нём цифра a.Задача 2. Составить программу планирования закупки товара в магазине на сумму, не превышающую заданную величину. Задачи решить двумя способами: 1) c использованием оператора цикла с предусловием; 2) c использованием оператора цикла с постусловием.