Ц ИКЛ Цикл с параметром
Ф ОРМАТ ЦИКЛА С ПАРАМЕТРОМ for k:=a to b do begin {Операторы} end; Когда аb: for k:=a downto b do begin {Операторы} end; Когда оператор один : for k:=a to b do
З АДАЧА 1. С ОСТАВИТЬ ПРОГРАММУ, КОТОРАЯ ВЫЧИСЛЯЕТ СУММУ ВСЕХ ЦЕЛЫХ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ ОТ 1 ДО 100. program f1; var k,s:integer; begin for k:=1 to 100 do begin s:=s+k; end ; writeln('s=',s) end. Окно вывода s=5050
З АДАЧА 2. С ОСТАВИТЬ ПРОГРАММУ, КОТОРАЯ ВЫЧИСЛЯЕТ СУММУ ВСЕХ ЦЕЛЫХ ЧЕТНЫХ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ ОТ 1 ДО 100. program f2; var k,s:integer; begin for k:=1 to 100 do if k mod 2=0 then begin s:=s+k; end ; writeln('s=',s) end. Окно вывода s=2550
З АДАЧА 3. С ОСТАВИТЬ ПРОГРАММУ, КОТОРАЯ ВЫЧИСЛЯЕТ СУММУ ПЕРВЫХ N ЦЕЛЫХ ПОЛОЖИТЕЛЬНЫХ ЧИСЕЛ.. program f3; var k,s,n:integer; begin readln(n); for k:=1 to n do begin s:=s+k; end ; writeln('s=',s) end. Окно вывода 40 s=820
ПРИМЕР 1. В ЫВЕСТИ НА ЭКРАН ПЕРВЫЕ ДЕСЯТЬ КВАДРАТОВ НАТУРАЛЬНЫХ ЧИСЕЛ В ПОРЯДКЕ ВОЗРАСТАНИЯ. program quadro; var k:integer; begin for k:=1 to 10 do writeln(k,'^2=',sqr(k)); end. 1^2=1 2^2=4 3^2=9 4^2=16 5^2=25 6^2=36 7^2=49 8^2=64 9^2=81 10^2=100 ПрограммаОкно вывода Проверка!
ПРИМЕР 2. В ЫВЕСТИ НА ЭКРАН ПЕРВЫЕ ДЕСЯТЬ КВАДРАТОВ НАТУРАЛЬНЫХ ЧИСЕЛ В ПОРЯДКЕ УБЫВАНИЯ. program quadro; var k:integer; begin for k:=10 downto 1 do writeln(k,'^2=',sqr(k)); end. 10^2=100 9^2=81 8^2=64 7^2=49 6^2=36 5^2=25 4^2=16 3^2=9 2^2=4 1^2=1 ПрограммаОкно вывода Проверка!
З АДАНИЯ ДЛЯ ПРАКТИКИ : Найти сумму всех двухзначных чисел. Найти произведение 10 натуральных чисел. Найти сумму первых 100 нечетных натуральных чисел Составить программу, реализующую сложение чисел натурального ряда от 5 до 150 кратных 5. Найти значение функции у=2х при х = -5 до n.