Оператор цикла
с параметром
Циклические операторы на Паскале
for <переменная> := <начальное значение>
to (downto) <конечное значение> do
begin
{тело цикла}
end;
Циклические операторы на Паскале
while <условие> do begin
{тело цикла}
end;
Циклические операторы на Паскале
repeat {тело цикла}
until <условие>
Замена цикла с параметром на цикл с условием
Определите сколько раз будет выполняться цикл и чему будет равно конечное значение
4 раза,
а = 35; b = 1
a:= 5; b:=16; i := 3;
while i <= 6 do begin
a := a + b;
b:= b/2;
i := i + 1;
end;
a:= 5; b:=16; i := 3;
repeat
a := a + b;
b:= b/2;
i := i + 1;
until i > 6
имя
начальный индекс
конечный индекс
тип
элементов
var A: array[1.. ] of integer;
const N=5;
N
var A : array[ 1 .. 5 ] of integer ;
for i:=1 to N do begin
write('a[', i, ']=');
readln ( a[i] );
end;
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
вывод ” T [ i ] = ”
ввод T [ i ]
var имя массива : array [ нижняя граница индекса . . верхняя граница индекса ] of тип массива ;
PROGRAM
VAR
READLN
:
INTEGER
T
(
)
FOR
TO
Temperature
;
T [ i ]
;
END
.
:=
i
1
12
DO
BEGIN
WRITE
(
)
’ T [ ’ , i : 2, ’ ] = ’
:
ARRAY
[ 1 . . 12 ]
OF
REAL
i
;
BEGIN
END
;
;
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть