АЛГОРИТМИЧЕСКАЯ СТРУКТУРА ЦИКЛ АЛГОРИТМИЧЕСКАЯ СТРУКТУРА ЦИКЛ В TURBO PASCAL Условие Оператор ДаНет Учитель информатики: Коваленко Татьяна Викторовна МОУ гимназия 23 г. Краснодар

i := a1, a2, s тело цикла Условие Условие Привести в соответствие схемы и их обозначения. В языке программирования Turbo Pascal они выполняются с помощью разных операторов.

For i:= a1 to a2 do begin begin тело цикла тело цикла end; end; i - параметр цикла, выполняет роль счетчика; a1 - начальное значение счетчика; a2 - конечное значение счетчика. i := a1, a2, s тело цикла нет да Цикл со счетчиком (с известным числом повторений) повторений) Назад

ПОСЛЕДОВАТЕЛЬНОСТЬ ВЫПОЛНЕНИЯ КОМАНД ОПЕРАТОРА FOR...TO...DO... 1.Определяются значения переменных a1 и a2 ; 2.Переменной i присваивается значение переменной a1 ; 3.Проверяется условие выполнения тела цикла i a2; 4.Если это условие истинно, то выполняется тело цикла; 5.Увеличивается значение переменной i на 1; 6.Переход к пункту 3. Тело цикла будет выполнено a2 – a1 + 1 раз.

В операторе For... значение счетчика может не только увеличиваться, но и уменьшаться. В этом случае оператор выглядит так: Условие выполнения тела цикла: i a1. Тело цикла будет выполнено a2 – a1 + 1 раз.

Задача 1. Написать программу, которая вычисляет сумму положительных из n введенных с клавиатуры целых чисел. Program summa; Var i, n, x: integer; Begin Writeln (ввести количество чисел); Writeln (ввести количество чисел); Readln(n); Readln(n); s :=0; s :=0; For i := 1 to n do For i := 1 to n do Begin Begin Writeln(ввести число); Writeln(ввести число); Readln(x); Readln(x); If x > 0 then s := s + x; If x > 0 then s := s + x; End; End; Writeln (сумма >0 =, s); Writeln (сумма >0 =, s);Readln;End. Program summa; Var i, n, x: integer; Begin Writeln (ввести количество чисел); Writeln (ввести количество чисел); Readln(n); Readln(n); s :=0; s :=0; For i := 1 to n do For i := 1 to n do Begin Begin Writeln(ввести число); Writeln(ввести число); Readln(x); Readln(x); If x > 0 then s := s + x; If x > 0 then s := s + x; End; End; Writeln (сумма >0 =, s); Writeln (сумма >0 =, s);Readln;End.

Задача 2. Написать программу, выводящую на экран степени числа 2 (от 0 до 10) в виде таблицы. Program stepen2; Var i, x: integer; Begin Writeln (Tabliza); Writeln (Tabliza); Writeln ( ); Writeln ( ); x :=1; For i := 0 to 10 do Begin Begin Writeln (2^, i:2, =, x:5); Writeln (2^, i:2, =, x:5); x := x*2; x := x*2; Writeln; Writeln; End; End;Readln;End. Program stepen2; Var i, x: integer; Begin Writeln (Tabliza); Writeln (Tabliza); Writeln ( ); Writeln ( ); x :=1; For i := 0 to 10 do Begin Begin Writeln (2^, i:2, =, x:5); Writeln (2^, i:2, =, x:5); x := x*2; x := x*2; Writeln; Writeln; End; End;Readln;End.

1.Сколько раз будет выполнено тело цикла? 1. for i:= –5 to 5 do тело цикла; 2. for i:= 6 to 2 do тело цикла; 3. for i:= 3 to 3 do тело цикла; 4. for i:= 3 downto 4 do тело цикла; 5. for i:= 3 downto 1 do тело цикла; Верно: 1.11 раз 2. 0 раз 3.1 раз 4.0 раз 5.3 раза

Цикл с предусловием тело цикла нет да Условие Тело цикла выполняется, пока условие пока условие Чтобы не было зацикливания, переменные, зацикливания, переменные, входящие в условие, должны входящие в условие, должны изменяться в теле цикла. изменяться в теле цикла. Назад

Задача 3. Найти количество цифр в введенном с клавиатуры числе (n > 0).... Write(n=); Readln(n ); m := n; k :=0; m := n; k :=0; While m o do While m o do Begin Begin m := m div 10; m := m div 10; k := k +1; k := k +1; End; End; Writeln (количество цифр в числе, n, =, k); Writeln (количество цифр в числе, n, =, k);Readln;End.... Write(n=); Readln(n ); m := n; k :=0; m := n; k :=0; While m o do While m o do Begin Begin m := m div 10; m := m div 10; k := k +1; k := k +1; End; End; Writeln (количество цифр в числе, n, =, k); Writeln (количество цифр в числе, n, =, k);Readln;End.

Цикл с постусловием Тело цикла Условие ДаНет Назад

Задача 4. Найти количество цифр в введенном с клавиатуры числе (n > 0). Решим эту задачу с оператором Repeat... Решим эту задачу с оператором Repeat... Задача 4. Найти количество цифр в введенном с клавиатуры числе (n > 0). Решим эту задачу с оператором Repeat... Решим эту задачу с оператором Repeat Write(n=);Readln(n); m := n; k :=0; m := n; k :=0; Repeat Repeat m := m div 10; m := m div 10; k := k +1; k := k +1; Until m = 0; Until m = 0; Writeln (количество цифр в числе, n, =, k); Writeln (количество цифр в числе, n, =, k);Readln;End.... Write(n=);Readln(n); m := n; k :=0; m := n; k :=0; Repeat Repeat m := m div 10; m := m div 10; k := k +1; k := k +1; Until m = 0; Until m = 0; Writeln (количество цифр в числе, n, =, k); Writeln (количество цифр в числе, n, =, k);Readln;End. 1.Операторные скобки (begin... end) здесь не нужны; здесь не нужны; 1.Операторные скобки (begin... end) здесь не нужны; здесь не нужны; 2. Тело цикла выполнится хотя бы раз независимо от условия.

Пусть x и y одновременно не равные нулю целые неотрицательные числа и пусть x y. Если y = 0, то НОД (x, y) = x, а если y 0, то для чисел x, y, и r, где r – остаток от деления x на y, выполняется равенство НОД (x, y)= НОД(y, r). Например, пусть x = 48, а y = 18. НОД(48, 18) = НОД(18, 12) = НОД(12, 6) = НОД(6, 0) = 6.

конец Начало x, y x + y x > y x=0 or y=0 y := y mod xx := x mod y да нет Program NOD; Var x, y : integer; Begin Write(vvod x, y); Readln (x, y); Repeat if x > y then x := x mod y else y := y mod x Until (x = 0) or (y = 0); Writeln (NOD=, x + y); Readln; End.