Программирование на языке Паскаль

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

downto

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

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

a := a+1;
a = 4
a := 1;
for i:=3 to 1

a = 1

a := 1;
for i:=1 downto 3 do a := a+1;

a = 1

a := 1;
for i:=3 downto 1 do a := a+1;

a = 4

??? then begin
i2 :=

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

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

i mod 2 = 1

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

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

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

???
for k:=1 to 5 do begin
i2 := i*i;
i3 := i2*i;
writeln(i:4, i2:4, i3:4);
???
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:4, i2:4, i3:4);
end;

i := 2*k – 1;

чисел от a до b.
Пример:
Введите границы интервала:
4 6

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

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

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

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

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

:= 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"

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

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

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

< b do a := a + 1;
2 раза
a =

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

1 раз
a = 10

a := 4; b := 6;
while a > b do a := a + 1;

0 раз
a = 4

a := 4; b := 6;
while a < b do b := a - b;

1 раз
b = -2

a := 4; b := 6;
while a < b do a := a - 1;

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

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 возможна всегда.

Пример:
Введите целое число:
1234
Сумма цифр числа 1234 равна 10.
"5": Ввести целое

= 1.157
"5": Найти сумму элементов последовательности с точностью 0,001:
Ответ:
S =

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

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

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

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

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

until n > 0;

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

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

:= a + 1; until a > b;
3 раза
a =

a := 4; b := 6;
repeat a := a + b; until a > b;

1 раз
a = 10

a := 4; b := 6;
repeat a := a + b; until a < b;

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

a := 4; b := 6;
repeat b := a - b; until a < b;

2 раза
b = 6

a := 4; b := 6;
repeat a := a + 2; until a < b;

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

расположенных в памяти рядом.
Особенности:
все элементы имеют один тип
весь массив имеет

массива: 10

место в памяти
Массив целых чисел:


Размер через константу:
имя
начальный индекс
конечный

тип
элементов

var A: array[1.. ] of integer;

const N=5;

N

var A : array[ 1 .. 5 ] of integer ;

X, Y: array [1..10] of real;
C: array [1..20]

var Q: array [0..9] of real;
C: array [-5..13] of char;

var A: array ['A'..'Z'] of real;
B: array [False..True] of integer;
...
A['C'] := 3.14259*A['B'];
B[False] := B[False] + 1;

array ['z'..'a'] of integer;
...
A['B'] := 15;
A['b']
['a'..'z']
var a: array [0..9]

a: array[1..N] of integer;
i: integer;
for i:=1 to N

a[1] =
a[2] =
a[3] =
a[4] =
a[5] =

5
12
34
56
13

for i:=1 to N do a[i]:=a[i]*2;

writeln('Массив A:');
for i:=1 to N do write(a[i]:4);

Массив A:
10 24 68 112 26

арифметическое всех элементов массива.
Пример:
Введите пять чисел:
4