КРОСС+КРОСС=СПОРТ
Вложенные циклы
Цикл называется вложенным, если он находится в теле другого цикла.
for i:=0 to n do
begin
for j:=0 to m do
begin
for k:=0 to p do
begin
…
end;
end;
end;
Внутренний цикл должен полностью находиться в теле внешнего цикла.
Пример 2: Составить программу вывода на экран таблицы Пифагора.
Открыть шаблон Pifagor.pas, доработать программу
var I, j : integer;
begin
for I:=1 to 10 do
begin
for j:=1 to 10 do
write ( I*j:5);
writeln;writeln;
end;
end.
2. Для предотвращения несанкционированного доступа к данным, хранящимся на компьютере, используются …
3. Специально созданная небольшая программа, предназначенная для нарушений работы компьютера .
5. END- перевод
4. Дорогу осилит идущий, а информатику…
1. Устройство для обработки информации
2
П
А
Р
О
Л
Ь
П
Р
О
Ц
Е
С
С
О
Р
1
м
ы
с
Л
я
Щ
И
й
4
В
3
И
Р
У
С
К
О
Н
Е
Ц
5
Ц И К Л Ы
В Л О Ж Е Н Н Ы Е
ТАБЛИЦА ПИФАГОРА
1
2
2
4
3
3
4
6
4
6
8
8
5
5
9
10
12
12
6
10
6
12
12
16
7
15
7
15
14
14
18
20
18
20
8
8
24
16
16
24
9
25
21
21
9
24
28
18
30
30
18
10
28
10
24
32
36
20
32
20
27
27
35
35
42
48
30
36
30
40
36
42
40
48
48
40
45
49
45
56
50
54
56
54
50
60
60
64
63
63
72
70
72
70
80
80
81
90
90
100
Цикл называется вложенным , если он находится в теле другого цикла.
for i :=0 to n do
begin
for j :=0 to m d o
begin
for k :=0 to p do
begin
…
end;
end;
end;
Внутренний цикл должен полностью находиться в теле внешнего цикла.
Цикл j
Цикл k
Цикл i
program primer1;
uses crt;
var i,j,y:integer;
begin
clrscr;
writeln;
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
y:=i + j;
write(y:4);
end;
writeln;
writeln;
end;
readkey;
end.
Запомни!
Прежде наступит следующий шаг внешнего цикла по I , должен полностью «прокрутиться» (выполниться) внутренний цикл по J
i=1,j=1
Пример 2: Составить программу вывода на экран таблицы Пифагора.
Открыть шаблон Pifagor . pas , доработать программу
var I, j : integer;
begin
for I:=1 to 10 do
begin
for j:=1 to 10 do
write ( I*j:5);
writeln;writeln;
end;
end.
1
2
2
4
3
3
4
6
6
4
8
8
5
9
5
10
12
12
6
6
10
12
12
16
15
15
7
7
8
18
8
20
14
18
20
14
24
16
24
16
21
21
9
25
9
30
18
24
10
24
10
30
28
28
18
32
20
20
36
32
35
27
35
27
30
36
40
30
48
36
42
42
48
40
48
40
49
45
45
56
50
50
54
54
56
60
60
64
63
63
72
72
70
70
80
80
81
90
90
100
Р Е Б У С Ы
КТО, КОТ и ТОК – трехзначные числа.
Определить цифры К, Т и О и вывести их на экран
КТО =К*100+Т*10+О
Program Summa ;
Uses Crt;
Var k , t, o, k to, t o k , k ot : integer;
b egin c lrscr;
Writeln (' КTO + КOT = TOК');
Writeln;
for k :=1 to 9 do
for t:=1 to 9 do
for o:=0 to 9 do
begin
k to:= k *100+t*10+o;
k ot:= k *100+o*10+t;
t o k :=t*100+o*10+ k ;
if k to+ k ot= t o k then
writeln( k to:4, k ot:4, t o k :4)
e nd;
readln;
end.
Р Е Б У С Ы
1. Составить программу для решения след. ребуса:
KROSS , SPORT – 5- значные числа. Одинаковым буквам соответствуют одинаковые цифры
Определить цифры K,R,O,S,P,T и вывести их на экран
Дополнительное задание
на дом
2. Найти все трехзначные цифры, сумма цифр которых делится на 9.
Пример: 378 – (3+7+8):9
3. Найти все трехзначные числа, равные сумме кубов своих цифр.
3 3 +2 3 +5 3 =27+8+125=160 Трехзначное число 160 325
Спасибо за урок!
-80%
0
1943
216
Нравится
0
Получите свидетельство
Вход
Вложенные циклы (0.27 MB)
