1) Цикл с параметром . «Для»
Задача №4 Вывести на экран таблицу умножения на 2 от 1 до 10 используя цикл «ДЛЯ»
2) Цикл с предусловием. «Пока» While <условие> Do <оператор 1>;
Задача №5 Вывести на экран таблицу умножения на 3 от 1 до 10 используя цикл «ПОКА»
Задача №6 Вывести на экран таблицу умножения на 4 от 1 до 10 используя цикл «ДО ТЕХ ПОР ПОКА»
Задача №4_1 Вывести на экран таблицу умножения на 2 от 20 до 11 используя цикл «ДЛЯ» Задача №5_1 Вывести на экран таблицу
Задача №4_1_1 Вывести на экран таблицу умножения на 2 от 0.5 до 5.0 используя цикл «ДЛЯ» с шагом 0.5
Задача №4_1_2 Вывести на экран таблицу умножения на 3 от 1.5 до 15.0 используя цикл «ДЛЯ» с шагом 1.5
278.50K
Категория: ПрограммированиеПрограммирование

3 (1) (1)

1. 1) Цикл с параметром . «Для»

For <пер.цикла>:=А То В Do <оператор>;
Оператор цикла с параметром применяют
тогда, когда известно число повторений
одного и того же действия.
Начальное и конечное значения параметра
цикла могут быть представлены константами,
переменными или арифметическими
выражениями.
To
шаг цикла +1
Downto шаг цикла -1

2. Задача №4 Вывести на экран таблицу умножения на 2 от 1 до 10 используя цикл «ДЛЯ»

3.

uses crt;
Var n:Integer;
Begin
clrscr;
For n:=1 To 10 Do Writeln(n,’*2=‘,2*n);
Readln;
End.

4.

uses crt;
Var n:Integer;
Begin
clrscr;
For n:=1 To 10 Do Writeln(n:2,’*2=‘,2*n:2);
Readln;
End.

5. 2) Цикл с предусловием. «Пока» While <условие> Do <оператор 1>;

2) Цикл с предусловием. «Пока»
While <условие> Do <оператор 1>;
Цикл с предусловием используется для
программирования процессов, в которых число
повторений оператора цикла не известно, а задается
некоторое условие его окончания.
Выполнение оператора цикла с предусловием начинается
с проверки условия, записанного после слова while.
Если оно соблюдается, то выполняется <тело цикла>, а
затем вновь проверяется условие и т.д. Как только на
очередном шаге окажется, что условие не соблюдается,
то выполнение <тела цикла> прекратится.

6. Задача №5 Вывести на экран таблицу умножения на 3 от 1 до 10 используя цикл «ПОКА»

7.

uses crt;
Var n: integer;
Begin
clrscr;
n:=1;
While n<11 Do Begin
Writeln(n,‘*3=',3*n);
n:=n+1;
end;
Readln;
End.

8.

3) Цикл с пост условием. «До тех пор, пока»
Для программной реализации в Turbo Pascal 7.0
циклических процессов с неизвестным числом
повторений существует еще один оператор —
оператор цикла с постусловием, который имеет
следующий вид:
Repeat <оператор 1>;
<оператор 2>;
<оператор n>;
Until <условие>;
где Repeat (повторять), Until (до тех пор, пока …)

9. Задача №6 Вывести на экран таблицу умножения на 4 от 1 до 10 используя цикл «ДО ТЕХ ПОР ПОКА»

10.

uses crt;
var n:integer;
begin
clrscr;
n:=1;
repeat
writeln(n,’*4=‘,n*4);
n:=n+1;
until n>10;
readln;
end.

11. Задача №4_1 Вывести на экран таблицу умножения на 2 от 20 до 11 используя цикл «ДЛЯ» Задача №5_1 Вывести на экран таблицу

умножения
на 3 от 20 до 11 используя цикл
«ПОКА»
Задача №6_1
Вывести на экран таблицу умножения
на 4 от 20 до 11 используя цикл «ДО
ТЕХ ПОР ПОКА»

12. Задача №4_1_1 Вывести на экран таблицу умножения на 2 от 0.5 до 5.0 используя цикл «ДЛЯ» с шагом 0.5

13. Задача №4_1_2 Вывести на экран таблицу умножения на 3 от 1.5 до 15.0 используя цикл «ДЛЯ» с шагом 1.5

English     Русский Правила