Вложенные циклы

1. Вложенные циклы

Презентация 9-20

2.

Используя различные комбинации циклов с
параметром можно организовывать весьма
сложные циклические программы.
Если в программе содержится две структуры
цикла, то эти структуры должны либо следовать
одна за другой и не иметь общих частей, либо
одна из структур должна быть вложена в другую.
Внутренний цикл полностью содержится во
внешнем.

3.

Существует возможность использования
вложенных циклов в Паскале, когда в теле
одного цикла вместо оператора стоит другой
цикл.
Важно: Главным обстоятельством во вложенных
циклах является использование разных
переменных для счетчиков внутреннего и
внешнего циклов.

4. Пример 1

Вывести таблицу умножения, используя
вложенные циклы.
program table;
var i, j: integer;
begin
for i:=1 to 9 do
begin
for j:=1 to 9 do
write(i*j:4);
writeln;
end;
end.

5. Пример 2

Напечатать в возрастающем порядке все
трехзначные числа, в десятичной записи которых
нет одинаковых цифр. Операции деления,
целочисленного деления и определения остатка
не использовать.
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if (i<>j) and (j<>k) and (i<>k) then
write(i*100+j*10+k, ' ');

6. Задание

1. Исходное данное – натуральное число S,
выражающее площадь. Написать программу для
нахождения всех таких прямоугольников,
площадь которых равна S и стороны выражены
натуральными числами.
2. Найдите все двузначные числа, сумма
квадратов цифр которых равна их удвоенному
произведению.

7. Задание

3. Определить тройку пифагоровых чисел, не
превосходящих 10. (Квадрат одного числа равен
сумме квадратов двух других чисел).
4. Найти все трехзначные числа, сумма двух
первых цифр которых равна третьей цифре в
записи этого числа.