Цикл со счетчиком (параметр)

1.

2.

Блок-схема
Счетчик
цикла
Серия
команд

3.

К 1 сентября в школу
привезли 15 новых
мониторов для
компьютерного класса.
Составить алгоритм для
робота, который будет
переносить эти мониторы
из машины в класс.
Робот может взять только 1
монитор.
Начало
Счетчик=15 раз
Подойти к машине
Взять 1 монитор
Отнести его в класс
Поставить на стол
Идти отдыхать
Конец

4. Правила оформления

For i:=a to b do
Для i от a до b делать
где i – переменная цикла перечисляемого
типа – integer
a – начальное значение переменной цикла
b – конечное значение переменной цикла

5. Задания

1. Сто раз написать свое имя на экране в
строчку
Program Z_1;
Var i: integer;
Begin
For i: = 1 to 100 do
Write (‘Имя ’);
End.

6. 2. Добавить ряд чисел от 50 до 60

Program n2;
Var i: integer;
begin
writeln('Ряд чисел');
for i:=1 to 10 do
write(i:3);
for i:=50 to 60 do
write(i:3);
end.
Ряд чисел
1 2 3 4 5 6 7 8 9 10
50 51 52 53 54 55 56 57 58 59 60

7. 3. Вывести на экран таблицу умножения на 2

2*1=2
Program n4;
Var i, p: integer;
begin
writeln('Таблица умножения');
for i:=1 to 10 do
begin
p:=i*2;
writeln('2*',i,'=',p );
end;
end.
2*2=4
2*3=6
2*4=8
2*10=20

8. Домашнее задание

1. Вывести на экран свою фамилию столько
раз, сколько в ней букв.
2. Вывести на экран два ряда чисел со своего
порядкового номера и обратно.
3. Вывести таблицу деления чисел (свой
порядковый номер делим на 1,2, 3, …, 10 )
с двумя знаками после запятой.

9. СПИСОК

1 Андреев Алексей (для второй задачи взять порядковый номер 31)
2 Андреев Артём
(для второй задачи взять порядковый номер 32)
3 Артюшевский Максим (для второй задачи взять порядковый номер 33)
4 Асадова Екатерина
5 Кайшев Семён
6 Русакова Юлия
7 Тюрин Роман
8 Уфимцев Филипп
9 Филиппова Екатерина
10 Хазиева Ксения