Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

 
Рис. 5.2 
Пример 3. Составьте блок-схему (рис. 5.3) и напишите програм-
му подсчета количества чисел палиндромов, лежащих в промежутке 
от 100 до 1000 (число M называется палиндромом, если оно равно 
своему обращенному (то есть число читается слева направо и спра-
ва налево одинаково, например, 383).

---

72 
 
Рис. 5.3 
начало
d:=0 
x:=1
конец
Нет
x<=9 
Да
y:=0 
Нет
y<=9
Да
z:=0
Нет 
z<=9 
Да
n:=100*x+10*y+z
m:=100*z+10*y+x 
Нет
n=
Да 
d:=d+1
n 
z:=z+1
y:=y+1
x:=x+1
d

---

73 
PROGRAM Primer_3; 
var d :Integer; { Счетчик палиндромических чисел } 
x,y,z: Integer; { Параметры циклов: это цифры трехзначного 
числа } 
n :Integer; { Трехзначное число образованное цифрами x, y, z } 
m :Integer; { Число, образованное теми же цифрами в обрат-
ном порядке } 
BEGIN 
d:=0;
For x:=1 to 9 do 
For y:=0 to 9 do 
For z:=0 to 9 do 
begin
n:=100*x+10*y+z; {Трехзначное число, образованное цифрами 
x,y,z} 
m:=100*z+10*y+x; {Число, образованное теми же цифрами 
в обратном порядке} 
if n=m then begin d:=d+1; Write (n,' ') end; 
end; 
WriteLn; WriteLn ('Результат: ',d) 
END. 
 
Контрольные вопросы 
 
1. Какие циклы называются вложенными? 
2. Какой цикл является внешним? 
3. Какой цикл является внутренним? 
4. Какой цикл повторится большее количество раз: внешний или 
внутренний? 
5. Перечислите правила организации вложенных циклов. 
6. Какие циклы можно использовать при составлении программ 
с вложенными циклами? 
7. Какая глубина вложенности циклов доступна для Пас-
кальАВС?