Презентации "Изучаем Pascal"

Решение задач на циклы Применение циклов и условий

Основные задачи Циклы позволяют оптимизировать процессы •поиска чисел, •подсчета количества чисел, •подсчета суммы чисел, •подсчета произведения чисел, цикла заголовке удовлетворяющих заданным в задаче В обычно условиям. прописывается диапазон, по которому проводится решение (начальное и конечное значение являются границами этого диапазона).

Поиск чисел В задачах поиска чисел задание может иметь слова: Найдите все числа… или Выведите на экран числа,… В разделе объявлений достаточно одной переменной, которая и будет пробегать все значения диапазона (i). Задача: найти все двухзначные числа, кратные 14. program z; var i:integer; begin вывод чисел for i:=10 to 99 do if i mod 14=0 then write(i,' '); end. диапазон условие поиска Задача: найти все двухзначные числа, кратные 14.диапазонусловие поискавывод чисел

Подсчет количества чисел В задачах такого рода помимо переменной цикла нам потребуется ещё одна переменная, в которой и будет храниться искомое количество (традиционно: k). Найти количество двухзначных чисел, кратных 14. var i,k:integer; begin k:=0; for i:=10 to 99 do if i mod 14=0 then k:=k+1; writeln('Найдено чисел: ',k); end. прибавление 1 к переменной при обязательное обнуление (пока выполнении условия переменная результата количество равно 0) вывод результата Найти количество двухзначных чисел, кратных 14.переменная результатаобязательное обнуление (пока количество равно 0)прибавление 1 к переменной при выполнении условиявывод результата

Подсчет суммы чисел Здесь тоже требуется переменная для хранения суммы удовлетворяющих условию чисел на каждом шаге цикла (традиционно: s). Найти сумму двухзначных чисел, кратных 14. var i,s:integer; begin s:=0; for i:=10 to 99 do if i mod 14=0 then s:=s+i; writeln('Сумма чисел: ',s); end. переменная результата изначальное обнуление вывод результата суммирования прибавление к значению суммы самого числа, т.е. i Найти сумму двухзначных чисел, кратных 14.переменная результата суммированияизначальное обнулениеприбавление к значению суммы самого числа, т.е. iвывод результата

Подсчет произведения чисел Отличие от суммирования: умножение произведения на число, начальном присваивании (иначе будет 0), объявлении переменной (традиционно: p).Найти произведение двухзначных чисел, кратных 14. var i:integer; p:real; begin начальное значение p:=1; for i:=10 to 99 do if i mod 14=0 then p:=p*i; writeln('Произведение чисел: ',p); end. умножение на произведения равно 1! переменная результата значение произведения самого числа вывод результата Найти произведение двухзначных чисел, кратных 14.переменная результата произведенияначальное значение равно 1!умножение на значение произведения самого числавывод результата

Задание 1. Найдите сумму чисел из промежутка от –20 до 50, кратных семи. 2. Найдите количество трехзначных чисел, кратных 3 и оканчивающихся на 4. 3. Найдите произведение двухзначных чисел с одинаковыми цифрами. 4. Найти четырехзначное число, равное квадрату числа, Задание