Презентация на тему: Программирование циклов с заданным условием окончания работы

Ключевые слова while ( цикл-ПОКА) repeat (цикл-ДО) for (цикл с параметрами)

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

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.

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

program n_15; var i: integer; x: real; begin writeln ('График тренировок'); i:=1; x:=10; repeat i:=i+1; x:=x+0.1*x; until x>=25; writeln ('Начиная с ', i, '-го дня спортсмен будет пробегать 25 км') end.

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

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.

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

program n_17; var n, k1, k2: integer; begin k1:=0; k2:=0; repeat write ('Введите целое число>>'); readln (n); if n>0 then k1:=k1+1; if n

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

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

Вопросы и задания Дана последовательность операторов: a:=1; b:=2; while a+b 6 6! = 720 Пример входных данных Пример выходных данных Введите n> 5 5 x 2 = 10 5 x 3 = 15 5 x 4 = 20 5 x 5 = 25 5 x 6 = 30 5 x 7 = 35 5 x 8 = 40 5 x 9 = 45 5 x 10 = 50

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