Лекция 25 Тема №6

наибольшее из них.
Идея решения: надо вывести на экран первое число,

Алгоритмы, в которых последовательность шагов зависит от выполнения некоторых условий, называются разветвляющимися.

qq;
var a, b, max: integer;
begin
writeln('Введите два целых числа');

верно}
end
else begin
{что делать,

Особенности:
перед else НЕ ставится точка с запятой
вторая часть (else …) может отсутствовать (неполная форма)
если в блоке один оператор, можно убрать слова begin и end

два целых числа');
read ( a, b );

неполная форма условного оператора

два целых числа');
read ( a, b );

max := a;

a > b

включительно. Ввести возраст человека и определить, подходит ли он фирме

read ( x );
if x >= 25 then

read ( x );
if (x >= 25)

условий (отношений), связанных с помощью логических операций:
not – НЕ (отрицание,

равно

не равно

>, >=, =,
Особенность – каждое из простых условий обязательно

4 1 6 2 5 3

if not (a > b) or (c <> d) and (b <> a)
then begin
...
end

*, /, div, mod, and;
5) операции +, —, or, xor;
6) операции отношения

insructionN;
else instruction
end;
где S – выражение порядкового типа, значение которого вычисляется;
с1,

она или нет, а если число, то определить попадает ли

(операторов).
Формат:
case of
: ;
...

списка значений должен быть один оператор. Если в какой –

значений константных выражений; а также диапазоны значений;
константы и константные выражения

N: integer;
…
Randomize; N:=Random(1000);
case N of
0..9: writeln('однозначное');
10..99: writeln('двузначное');
100..999: writeln('трехзначное')
end;

цифра');
’a’..’z’: writeln('стр.буква');
’A’..’Z’: writeln('прописная буква')
else writeln(‘Это др. символ’)
end;

записи в десятичной');
writeln('системе счисления, которые');
writeln('были сделаны в Индии')
end;
1642 : writeln('Сум.машина Б.Паскаля')
else writeln(‘И

метка.
Оператор должен использоваться в том блоке, где была описана метка.

числом шагов
цикл с неизвестным числом шагов (цикл с условием)
Задача. Вывести

1;
i2 := i * i;
i3 := i2 * i;
задать начальное

проверить, все ли сделали

вычисляем квадрат и куб

вывод результата

перейти к следующему i

:= i2 * i;
i := 1,8
блок «цикл»
тело цикла

8 do begin
i2 := i*i;
i3 :=

переменная
цикла

начальное значение

конечное значение

целых чисел от 8 до 1 (в обратном порядке).
Особенность: переменная

for i:=8 1 do begin
i2 := i*i;
i3 := i2*i;
writeln(i, ’ ’, i2, ’ ’, i3);
end;

downto

do begin
{тело цикла}

Увеличение переменной на 1:

for <переменная> := <начальное значение> downto
<конечное значение> do begin
{тело цикла}
end;

Уменьшение переменной на 1:

переменной цикла всегда равен 1 (to) или -1 (downto)
если в

for i:=1 to 8 do
writeln('Привет');

изменении начального и конечного значения внутри цикла количество шагов не

n := 8;
for i:=1 to n do begin
writeln('Привет');
n := n + 1;
end;

нет зацикливания

значение переменной цикла, при котором нарушено условие:
for i:=1 to 8

for i:=8 downto 1 do
writeln('Привет');
writeln('i=', i);

i=9

i=0

then begin
i2 := i*i;

Как изменить шаг?

Задача. Вывести на экран квадраты и кубы нечётных целых чисел от 1 до 9.
Особенность: переменная цикла должна увеличиваться на 2.
Проблема: в Паскале шаг может быть 1 или -1.
Решение:

i mod 2 = 1

i2 := i*i;
i3 := i2*i;
writeln(i,’ ’,i2,’ ’,i3);

выполняется только для нечетных i

переменная k изменяется от 1 до 5. Начальное значение i

???
for k:=1 to 5 do begin
i2 := i*i;
i3 := i2*i;
writeln(i, ’ ’, i2, ’ ’, i3);
???
end;

i := i + 2;

i := 1;

переменная k изменяется от 1 до 5. Зная k, надо

i = 2k-1

for k:=1 to 5 do begin
???
i2 := i*i;
i3 := i2*i;
writeln(i, ’ ’, i2, ’ ’, i3);
end;

i := 2*k – 1;

раз надо сделать движения пилой?
Задача: Ввести целое число (

n := n div 10;
обнулить счетчик цифр
ввод n
выполнять «пока n

end;
Особенности:
можно использовать сложные условия:
если в теле цикла только

while (a {тело цикла}
end;

while a < b do
a := a + 1;

условие на входе в цикл ложно, цикл не выполняется ни

a := 4; b := 6;
while a > b do
a := a – b;

a := 4; b := 6;
while a < b do
d := a + b;

:= 0;
while n 0 do begin
count

while n <> 0 do begin
count := count + 1;
n := n div 10;
end;

, n1: integer;

n1 := n;

n1,

выполнять «пока n <> 0»

begin
{тело цикла}
end;
i := 1;
while i

for i:=a downto b do
begin
{тело цикла}
end;

i := a;
while i >= b do begin
{тело цикла}
i := i - 1;
end;

Замена while на for возможна только тогда, когда можно заранее рассчитать число шагов цикла.

Замена цикла for на while возможна всегда.

число цифр в нем.
Проблема: Как не дать ввести отрицательное

Цикл с постусловием – это цикл, в котором проверка условия выполняется в конце цикла.

процесс»
ввод n
основной алгоритм

число');
read(n);
until n > 0;

repeat
writeln('Введите положительное число');
read(n);
until n > 0;

until n > 0;

условие ВЫХОДА

Особенности:
тело цикла всегда выполняется хотя бы один раз
после слова until ("до тех пор, пока не…") ставится условие ВЫХОДА из цикла

меток>
const ;
type ;
var ;

применяются константы, переменные, процедуру или функции, типы данных, определяемые в