ПРОГРАММИРОВАНИЕ ЦИКЛИЧЕСКИХ АЛГОРИТМОВ НАЧАЛА ПРОГРАММИРОВАНИЯ

Программирование циклов с заданным условием продолжения работы Общий вид оператора: whiledo while do Здесь: - логическое выражение; пока оно истинно, выполняется тело цикла; - простой или составной оператор, с помощью которого записано тело цикла. Тело цикла Условие да нет

да нет Начало Список данных x, y, r, q - цел x, y r:=x q:=0 r >=x r:= r - y q:= q +1 Конец r, q program n_14; var x, y, q, r: integer; begin writeln ('Частное и остаток'); write ('Введите делимое x >>'); readln (x); write ('Введите делитель y >>'); read (y); r:=x; q:=0; while r>=x do begin r:=r-y; q:=q+1 end; writeln ('Частное q=', q ); writeln ('Остаток r=', r ) end.

Программирование циклов с заданным числом повторений Общий вид оператора: for for := todo to do Здесь: - переменная целого типа; и - выражения того же типа, что и параметр; - простой или составной оператор - тело цикла. После каждого выполнения тела цикла происходит увеличение на единицу параметра цикла; условие выхода из цикла - превышение параметром конечного значения. Тело цикла i = i1, i2

program n_16; var i,n:integer;a,y:real; begin writeln ('Возведение в степень'); write ('Введите основание a >>'); readln (a); write ('Введите показатель n >>'); readln (n); y:=1; for i:=1 to n do y:=y*a; writeln ('y=', y) end. Конец Начало Список данных i, n – цел a, y - вещ y := 1 y := y * a y a, n i = 1, n

Различные варианты программирования циклического алгоритма Для решения одной и той же задачи могут быть созданы разные программы. Организуем ввод целых чисел и подсчёт количества введённых положительных и отрицательных чисел. Ввод должен осуществляться до тех пор, пока не будет введён ноль. В задаче в явном виде задано условие окончания работы.

Ввод осуществляется до тех пор, пока не будет введён ноль. Работа продолжается, пока n 0. while Воспользуемся оператором while : program n_18; var n, k1, k2: integer; begin k1:=0; k2:=0; n:=1; while n<>0 do begin writeln ('Введите целое число>>'); read (n); if n>0 then k1:=k1+1; if n<0 then k2:=k2+1; end; writeln ('Введено:'); writeln ('положительных – ', k1); writeln ('отрицательных – ', k2) end. да n > 0 да нет n Начало Список данных n, k1, k2 - цел n <> 0 k1, k2 Конец k1:=0 k2:=0 n:=1 k1:=k1+1 k2:=k2+1 нет

Самое главное В языке Паскаль имеются три вида операторов цикла: while цикл-ПОКА) repeat (цикл-ДО) for ( цикл с параметром). Если число повторений тела цикла известно, то лучше воспользоваться оператором for ; в остальных случаях используются операторы whil e и repeat.

Вопросы и задания Проанализируйте следующий цикл: while a<b do c:=a=b; В чём его особенность? Сколько раз будет выполнен цикл? а) for i:=0 to 15 do s:=s+1; б) for i:=10 to 15 do s:=s+1; в) for i:=-1 to 1 do s:=s+1; г) for i:=10 to 10 do s:=s+1; д) k:=5; for i:=k-1 to k+1 do s:=s+1;

Дана последовательность операторов: a:=1; b:=2; while a+b<8 do begin a:=a+1; b:=b+2; end; s:=a+b Сколько раз будет повторен цикл и какими будут значения переменных a, b, s после исполнения этой последовательности операторов?

Напишите программу, которая вычисляет сумму: а) первых n натуральных чисел; б) квадратов первых n натуральных чисел; в) всех чётных чисел в диапазоне от 1 до n; г) всех двузначных чисел.

Напишите программу, выводящую на экран изображение шахматной доски, где чёрные клетки изображаются звёздочками, а белые - пробелами. Рекомендуемый вид экрана после выполнения программы представлен ниже: * * * * * * * * * * * * * * * * * * * * * * * *

Опорный конспект while (цикл-ПОКA) for (цикл с параметром). Число повторений цикла известно Число повторений цикла известно В языке Паскаль имеются несколько операторов цикла: Число повторений цикла неизвестно Число повторений цикла неизвестно