Заставка

Программирование на старых и современных языках, а так-же дизайн

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Циклы

Страница: 1

Сообщений 1 страница 3 из 3

1

  • Автор: lexx821
  • Модератор
  • lexx821
  • Приглашений: 0
  • Сообщений: 802
  • Уважение: [+1/-0]
  • Позитив: [+8/-11]
  • Пол: Мужской
  • Последний визит:
    Вс, 1 Дек 2024 09:41:42

Циклы for:

Код:
for переменная:=от to до do
begin
  ...
end;

Пример:

Код:
program ForLoop;
uses crt, SysUtils;

var i:Integer;
begin
  for i:=1 to 10 do
  begin
    writeln('Цикл ' + IntToStr(i))
  end;
end.

Результат:

Код:
Цикл 1
Цикл 2
Цикл 3
Цикл 4
Цикл 5
Цикл 6
Цикл 7
Цикл 8
Цикл 9
Цикл 10

0

2

  • Автор: lexx821
  • Модератор
  • lexx821
  • Приглашений: 0
  • Сообщений: 802
  • Уважение: [+1/-0]
  • Позитив: [+8/-11]
  • Пол: Мужской
  • Последний визит:
    Вс, 1 Дек 2024 09:41:42

Цикл for обратный отщёт спомощью downto:

Код:
for переменная:=до downto от do
begin
  ...
end;

Пример:

Код:
program ForLoop;
uses crt, SysUtils;

var i:Integer;
begin
  for i:=10 downto 1 do
  begin
    writeln('Цикл ' + IntToStr(i))
  end;
end.

Результат:

Код:
Цикл 10
Цикл 9
Цикл 8
Цикл 7
Цикл 6
Цикл 5
Цикл 4
Цикл 3
Цикл 2
Цикл 1

0

3

  • Автор: lexx821
  • Модератор
  • lexx821
  • Приглашений: 0
  • Сообщений: 802
  • Уважение: [+1/-0]
  • Позитив: [+8/-11]
  • Пол: Мужской
  • Последний визит:
    Вс, 1 Дек 2024 09:41:42

Ещё пример цикла for:

Код:
program ForLoop;
uses crt, SysUtils;

var c:char;
begin
  for c:='a' to 'z' do
  begin
    writeln('Цикл ' + c)
  end;
end.

Результат:

Код:
Цикл a
Цикл b
Цикл c
Цикл d
Цикл e
Цикл f
Цикл g
Цикл h
Цикл i
Цикл j
Цикл k
Цикл l
Цикл m
Цикл n
Цикл o
Цикл p
Цикл q
Цикл r
Цикл s
Цикл t
Цикл u
Цикл v
Цикл w
Цикл x
Цикл y

0

Страница: 1