Программирование. Pascal ABC. Задачи на циклы


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

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



Подсчет количества чиселВ задачах такого рода помимо переменной цикла нам потребуется ещё одна переменная, в которой и будет храниться искомое количество (традиционно: 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.переменная результатаобязательное обнуление (пока количество равно 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вывод результата




Подсчет произведения чиселОтличие от суммирования: умножение произведения на число, начальном присваивании (иначе будет 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!умножение на значение произведения самого числавывод результата




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

Приложенные файлы

  • pptx 9ZadachiZikly
    Размер файла: 63 kB Загрузок: 57