Как написать цикл на паскале

Здравствуйте, дорогие читатели! Вот мы с вами и подошли к изучению циклов. Циклы в Паскаль. Что это такое? Как этим пользоваться? Для чего они нужны? Именно на эти вопросы я сегодня и отвечу.
Если вы читали этот урок, то знаете, что существует три вида алгоритмов: линейный, разветвляющийся и циклический. Мы с вами уже знаем, как реализовывать линейные и разветвляющиеся алгоритмы на Паскале. Приступим к изучению последнего типа алгоритмов.
В языке Pascal, как и в большинстве языков программирования, существует три типа циклических конструкций.

Любой цикл состоит из тела и заголовка. Тело цикла — это набор повторяющихся операторов, а условие — это логическое выражение, в зависимости от результата которого и происходит повторное выполнение цикла.

Возьмем одну задачу, которую будем решать, используя различные виды циклов.

Задача 1. Вывести все числа от 1 до числа, введенного с клавиатуры.

Как вы, наверное, уже поняли из названия, while — это цикл, в котором условие стоит перед телом. Причем тело цикла выполняется тогда и только тогда, когда условие true; как только условие становится false, выполнение цикла прекращается.

While имеет формат:

while < условие> do <оператор 1>;  {Пока … делай ….}

Данный цикл подходит только для одного оператора, если же вы хотите использовать несколько операторов в своем коде, вам следует заключить их в операторные скобки — begin и end;.

Решение задачи.

program example_while; 

var
  i, N: integer; { объявляем переменные }

begin
  i := 1; { Присваиваем i значение 1 }
  readln(N); { Считываем последнее число }
  while i <= N do {Как только i станет больше N, цикл прекратится (можно было бы написать просто <, но пришлось бы добавлять 1 к N) }
  begin {Открываем операторные скобки}
    write(i, ' '); {Выводим i}
    Inc(i);  {увеличиваем i на один.}
  end; { закрываем скобки }
end.

Repeat, или цикл с постусловием

Repeat  — полная противоположность while. Repeat — это цикл, в котором условие стоит после тела. Причем оно выполняется тогда и только тогда, когда результат условия false; как только логическое выражение становится true, выполнение цикла прекращается.

Repeat имеет формат:

repeat { повторяй … }
<оператор 1>;
< оператор 2>;
…
until {до…} <условие>

Begin и end не требуются.

Решение задачи.

program example_repeat;

var
  i, N: integer;{ объявляем переменные }

begin
  i := 1; { Присваиваем i значение 1 }
  readln(N); { Считываем последнее число }
  repeat {после repeat не требуется begin и end }
    write(i, ' '); {Выводим i}
    Inc(i);  {увеличиваем i на один.}
  until i = N + 1; {Например, i = 11, а N = 10. Цикл прекратится, так условие стало true.}
end.

For, или цикл с параметром

For — это  цикл, в котором тело выполняется заданное количество раз.

Существует две формы записи этого цикла:

Первая форма

for <счетчик1> := <значение1> to <конечное_значение> do <оператор1>;

После каждой итерации значение <счетчик1> будет увеличиваться на 1.

<значение1> — это начальное значение счетчика. Это может быть переменная или число.
<конечное_значение> : как только значение <счетчик1> станет больше <конечное_значение>, выполнение цикла прекратится.

Если требуется написать несколько операторов в теле цикла, используем begin и end.

И <счетчик1>, и <конечное_значение>, и <значение1> —  переменные целого типа.

Чаще всего в качестве счетчика используется переменная i.

Вторая форма

for <счетчик2> := <значение2> downto <конечное_значение> do <оператор1>;

После каждой итерации значение <счетчик2> будет уменьшатся на 1.

<значение2> — это начальное значение счетчика.
<конечное_значение> : как только значение <счетчик2> станет меньше <конечное_значение>, выполнение цикла прекратится.

Два важных примечания:

1. Цикл повторяется, пока значение значение счетчика лежит в отрезке [значение ; конечное_значение].
2. Изменять значение счетчика внутри тела нельзя!  Вот что выводит компилятор:

Решение задачи:

 
program example_for;

var
  i, N: integer;

begin
  read(N); {предположим, что мы ввели 10}
  for i := 1 to N do write(i, ' '); {количество итераций - 10 - 1 + 1 = 10}
end.

Согласитесь,  данный код проще и лаконичнее, чем все предыдущие. И цикл for — не совсем обычный цикл, в нем нет логического условия. Поэтому цикл с параметром в программировании называют синтаксическим сахаром. Синтаксический сахар — это дополнения синтаксиса языка программирования, которые не добавляют новых возможностей, а делают использование языка более удобным для человека.

Давайте решим пару задач.

For1. Даны целые числа K и N  (N > 0). Вывести N раз число K.

Организовываем простой цикл от 1 до требуемого числа.

program for1;

var
  K, N, i: integer;

begin
  read(K, N);
  for i := 1 to N do write(K, ' '); {Пишем К через пробел }
end.

For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел.

Так как A < B, то цикл должен будет выводить все числа от А до B. Чтобы сосчитать количество чисел, используем формулу: <конечное_значение> — <начальное_значение> + 1.

program for2;

var
  A, B, i, count: integer;

begin
  read(A, B);
  for i := A to B do write(i, ' '); {выписываем числа от меньшего к большему}
  count := B - A + 1; {считаем количество чисел}
  writeln;
  write( 'Количество чисел - ', count);
end.

For9. Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.

Организовываем такой же цикл, как и в предыдущей задаче, но одновременно суммируем квадраты всех чисел. Чтобы высчитать квадрат, используем функцию Sqr.

program for9;

var
  A, B, i, S: integer;

begin
  read(A, B);
  S := 0; {PascalABC делает это автоматически, но если у вас другой компилятор советуем обнулять переменные вручную}
  for i := A to B do S := S + Sqr(i);  {складываем все квадраты}
  writeln;
  write( 'Сумма квадратов - ', S);
end.

For13°. Дано целое число N (> 0). Найти значение выражения 1.1 – 1.2 + 1.3 – … (N слагаемых, знаки чередуются). Условный оператор не использовать.

Для того, чтобы поменять знак, каждую итерацию цикла меняем значение специальной переменной на противоположное.

program for13;

var
  N, A, i: integer;
  S: real;

begin
  Write('N = ');
  readln(N); 
  S := 1.1; 
  A := 1; {Сначала положительное}
  for i := 2 to N do {первую итерацию цикла мы уже произвели, поэтому начинаем отсчет с 2}
  begin 
   A := -A; {Теперь отрицательное}
   S := S + A * (1 + i / 10);  {Складываем}
  end;
  Writeln(S:5:1); {Отдадим под дробную часть одно знакоместо}
end.

While1°. Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A.

Каждый раз вычитаем B из А, пока А — В  >= 0.

program while1;

var
  A, B: integer;

begin
  readln(A, B);
  while (A - B) >=  0 do A := A - B; {Пока разница положительная, вычитаем. Необходимо предусмотреть вариант с кратностью А и B, поэтому >=}
  write(A);
end.

While4°. Дано целое число N (> 0). Если оно является степенью числа 3, то вывести True, если не является — вывести False.

Действуем следующим образом: пока N делится нацело на три, делим N нацело. Затем, если N = 1 — число является степенью тройки; если N <> 1, тогда число — не степень тройки. Для того чтобы решить эту задачу, требуется знать, что такое div и   mod,  и как работают логические выражения.

program while4;

var
  N: integer;

begin
  readln(N);
  while N mod 3 = 0 do N := N div 3; {Пока остаток от деления на три равен нулю, делим N нацело } 
  writeln(N = 1); {логическое выражение}
end.

На сегодня все! Не забывайте почаще заходить на наш сайт и кликать по кнопочкам, которые расположены перед комментариями.

Когда в алгоритме некоторое действие нужно выполнить несколько раз, используются циклы. В программирование цикл — это многократное повторение определенных инструкций. Циклы состоят из заголовка и тела. Заголовок содержит в себе условия, которые определяют работу цикла, а тело – повторяющиеся действия. В этом уроке рассмотрим:

• цикл со счетчиком (с параметром);
• цикл с предусловием;
• цикл с постусловием.
• вложенные циклы/a>.

Их алгоритмы выполнения различны, но есть и общее: после выполнения тела цикла, проверяется условие, и в зависимости от него работа цикла заканчивается, либо снова выполняется тело.

1 For — цикл с параметром

Цикл с параметром, известный также как цикл со счетчиком, используется при известном количестве повторений. Он имеет две формы записи. В любом случае он выполняет следующий после него оператор (как правило, это составной оператор заключенный в «операторные скобки» Begin..End), каждый раз изменяя переменную цикла с шагом 1

For <счетчик>:=< начальное значение> To <конечное значение> Do <тело цикла>;

For <счетчик>:=<начальное значение> Downto <конечное значение> Do <тело цикла>;

Счетчик – это переменная порядкового типа. Начальное и конечное значение должны быть того же типа, что и счетчик. Тело выполняется до тех пор пока условие истинно.

Условия выполнения цикла проверяются перед выполнением блока операторов. Если переменная цикла больше максимального значения (при to) или меньше минимального (downto), то цикл FOR не выполняется.

Формы записи, представленные выше, отличаются словами To и Downto. Если Вы используете цикл с To, то значение счетчика с каждым шагом будет увеличиваться на единицу, а если с Downto, то уменьшаться. Из этого следует, что в первом варианте начальное значение не должно превышать конечное, во втором — верно противоположное. В программе ниже, указанное пользователем количество раз, будут выводиться символы.

program for_primer;
uses crt;
var i, x: integer;
begin
  write('X=');
  readln(x);
  for i:=1 to x do
    write('a');
readkey;
end.

Здесь тело цикла не заключено в Begin-End, так как оператор всего один. Но если их будет больше, то операторные скобки обязательны. Стоит также отметить, что счетчик по выходу из цикла не будет иметь определенного значения, но если цикл закончиться раньше положенного, то счетчик сохранит последнее, записанное в него значение.

Другой пример — вычисление суммы чисел от A до B:

Program Summa;
Var a, b, S: Integer;
Begin
  ClrScr;
  Write('a = ');
  Readln(a);
  Write('b = ');
  Readln(b);
  S:=0;
  For I:=a To b Do
    S:=S + I;
  Writeln ('Cумма = ', S);
  ReadLn
End. 

2 While – цикл с предусловием

Оператор While – начинает описание цикла с предусловием. Такой вид цикла нужен, в тех алгоритмах, где число повторений неизвестно заранее. В общем виде он выглядит так:

While <выражение> Do <тело цикла>;

Если выражение истинно, то тело выполняется, иначе цикл завершается. Поэтому нужно составить такой код, чтобы на какой-то из итераций выражение стало ложным, и цикл не выполнялся бесконечно.

Пример программы написанный с использованием цикла While:

program while_primer;
uses crt;
var i, x, limit: integer;
begin
  write('Предел=');
  readln(limit);
  write(' Числа Фибоначчи: ');
  i:=1; x:=1;
  while i<=limit do
  begin
    write(i,' ');
    i:=i+x;
    x:=i-x;
  end;
  readkey;
end.

В данном коде использовался составной оператор Begin-End, так как операторов в теле цикла несколько.

3 Repeat – цикл с постусловием

Главной особенностью цикла с постусловием (часто встречается название: цикл-ДО) является выполнение его тела минимум один раз. Это связано с тем, что условие записывается в конце и соответственно вначале выполнится тело, а затем провериться условие. Формально он выглядит так:

Repeat
  <тело цикла>
Until <условие>

В противоположность двум рассмотренным прежде циклам, этот прекращает свое выполнение тогда, когда условие становиться истинным, т. е. чтобы итерации продолжались условие должно быть ложно. Рассмотрим работу цикла с постусловием на примере:

program repeat_primer;
uses crt;
var i, otvet: integer;
begin
  i:=1;
  repeat
    i:=i+1;
    write(i,'+',i,'*2=');
    read(otvet);
  until otvet<>i+i*2;
  readkey;
end.

Программа продолжает работать до тех пор, пока пользователь не допустит ошибку в ответе. Думаю, Вы заметили, что в примере (непосредственно в цикле) составной оператор Begin-End, несмотря на количество операторов не поставлен. Просто его роль выполняют слова repeat и until.

Для переходных манипуляций с циклом обычно используются три оператора:

• Goto – переходит в отмеченную область;
• Break – производит безусловный выход из цикла;
• Continue – осуществляет переход к новой итерации.

4 Вложенные циклы

Циклы в паскаль могут вкладываться друг в друга. Житейский пример: например, у нас есть список студентов, у каждого из которых есть оценки — если мы захотим перебрать все оценки для каждого студента то один цикл (внешний) будет перебираться студентов, а второй (вложенный) — оценки конкретного студента. Обрабатывать списки (массивы) мы научимся дальше.

Рассмотрим вложенные циклы на примере цикла с параметром:

For <счетчик 1>:=<начальное знач.> To <конечное знач.> Do <тело цикла 1>;
For <счетчик 2>:=<начальное знач.> To <конечное знач.> Do <тело цикла 2>;
…
For <счетчик n>:=<начальное знач.> To <конечное знач.> Do <тело цикла n>;

Вернувшись к терминологии, отметим, что в таких структурах одни циклы называются внешними, а другие внутренними. Так цикл 2 относительно цикла 1 является внутренним, а для цикла n он внешний.

Принцип работы вложенных циклов заключается в следующем. Сначала один раз выполняется цикл, идущий первым в программе, затем управление передается следующему циклу (№2), и если после него нет никаких других циклов, то он прокручивается до конца и снова единожды выполняется внешний цикл, иначе, если после цикла №2 стоит еще один вложенный цикл, то №2 выполняется один раз, передавая управление циклу идущему после него. Такой алгоритм продолжается до тех пор, пока самый внешний цикл не выполниться необходимое количество раз.

Предположим у нас есть вложенные циклы for:

for i:=1 to m1 do
for j:=1 to m2 do
…
for k:=1 to mn do

Количество проходов по первому циклу = m1, второму = m2*m1, n-ому = mn*mn-1*mn-2*..*m2*m1. В качестве доказательства предлагаю разобраться в следующей программе.

program counter_performance;
uses crt;
var i, j, k, g, h: integer;
s_i, s_j, s_k, s_g, s_h: integer;
begin
  s_i:=0; s_j:=0; s_k:=0; s_g:=0; s_h:=0;
  for i:=1 to 5 do
  begin
    s_i:=s_i+1;
    for j:=1 to 3 do
    begin
      s_j:=s_j+1;
      for k:=1 to 19 do
      begin
        s_k:=s_k+1;
        for g:=1 to 10 do
        begin
          s_g:=s_g+1;
          for h:=1 to 6 do
            s_h:=s_h+1;
        end;
      end;
    end;
  end;
  write('i=',s_i,' j=',s_j,' k=',s_k,' g=',s_g,' h=',s_h);
  readkey;
end.

Имеются 5 циклов со счётчиками от i до h. В каждом из них при помощи переменных подсчитывается, сколько раз выполняется каждый цикл. Запустив программу на своем компьютере, Вы должны увидеть такой результат:

Результат работы вложенных циклов

Посчитав способом, изложенным выше, получите результат соответствующий величинам, отображенным на скриншоте. Вложенные конструкции аналогично работают в циклах с предусловием и постусловием. В следующей программе с помощью оператора while фигурка выводиться на экран.

program nested_loops;
uses crt;
var i, j: integer;
begin
  i:=1; j:=1;
  while i<20 do begin
    while j<i+1 do begin
      write('');
      j:=j+1;
    end;
    j:=1;
    i:=i+1;
    writeln;
  end;
  readkey;
end.

При работе с массивами очень часто применяются вложенные циклы, а когда дело доходит до матриц (двумерных массивов), то даже их заполнение, как правило, делается через рассмотренные нами в этой статье конструкции.

Циклы
применяются для повторения какой-либо последовательности операторов несколько
раз. В Паскале существуют три вида циклов:

— Цикл For (со
счетчиком);

— Цикл While (с
предусловием);

— Цикл Repeat (с
постусловием).

Оператор цикла
For

Цикл for
позволяет выполнить серию действий заданное число раз.

Общая форма
цикла for такова:

for i:=start to
limit do

тело цикла

или

for i:=start
downto limit do

тело цикла

где start и
limit – переменные программы

В данной
конструкции «i» играет роль управляющей переменной цикла или счетчика и должна
быть только целого типа.

Слово start –
обозначает здесь начальное значение переменной a, limit – ее конечное значение.
Тело цикла должно состоять из одного оператора, но можно поместить в тело цикла
несколько операторов, для этого их нужно взять в логические скобки begin –
end.

Цикл for
выполняется следующим образом. Сначала производится инициализация (присваивание
начального значения) i– его начальным значением становится start.

Если i меньше
или равно limit , тело цикла выполняется (при значении i равном start).
Всякий раз, когда тело цикла завершается, значение i автоматически
увеличивается на 1, и тело цикла выполняется вновь, но уже с новым (следующим
по порядку) значением i.

Циклические
повторения тела будут продолжаться до тех пор, пока не будет превзойдено
конечное значение. Когда это случится, цикл завершится, и будет выполняться
строка программы, непосредственно следующая за конструкцией For.

Если в теле
цикла находится несколько операторов, обрамленные парой слов-ограничителей
begin и end, то общая форма цикла выглядит следующим образом:

for i := start
to limit do

begin

предложение 1;

предложение 2;

………….

предложение n

end;

В этой структуре
при каждом входе в тело цикла будут выполняться предложение 1, предложение 2,
…, предложение n.

В варианте цикла
For со словом downto (вместо to) переменная пробегает
последовательность значений от начального к конечному в обратном порядке,
уменьшая каждый раз на 1. Внешне это выглядит так:

for i:= limit
downto start do

тело цикла

Наберите следующую программу. Компьютер выведет на экран в
столбик 15 случайных чисел от 8 до 39.

program sly;

uses crt;

var c, s :
integer;

begin

writeln(’15 случайных
чисел от 8 до 40′);

for c:=1 to 15
do

begin

s:= random(32) +
8; {Генерируется случайное число в диапазоне от 0 до 31, затем

к нему
прибавляется 8, получаем случайное число от 8 до 39}

writeln (s);

end;

end.

Самостоятельно
измените программу так, чтобы на экране были напечатаны в строчку 8 случайных
дробных чисел от 5 до 25.

Напечатать таблицу стоимости порций сыра стоимостью 280 рублей
от 100 г
до 1 кг с
шагом 100 г.

program sir;

uses crt;

var s,k:real;

c:integer;

begin

clrscr;

writeln(‘таблицa
стоимости порций сыра’);

for c:=1 to 10
do

begin

k:=280*c/10;

writeln (c*100,’
г стоит ‘,k,’ рублей’);

end;

end.

Задачи для
самостоятельного решения

1. Вычислить сумму первых 10 натуральных чисел. Использовать
   счетчик типа S=S+A, т.е. счетчик суммы. Использовать управляющую переменную
   цикла.
2. Напечатать таблицу перевода расстояний в дюймах в сантиметры (1
   дюйм=2.54 см) для значений от 1 до 10 дюймов с шагом 1.
3. Вычислить сумму квадратов первых 7 натуральных чисел.
4. Вычислить все числа Фибоначчи от 3-го до N-го. Числа Фибоначчи образуют последовательность, у которой каждый очередной член равен сумме двух предыдущих:

0 → 1 → 1 → 2 → 3 → 5 → 8 → 13 → 21 → 34 …
2+3=5 13+21=34

Упражнения

Выполните
задания с For1 по For25 по электронному задачнику (стр.25).
Открыть его можно в режиме Помощь – Электронный задачник РТ.

В программировании не всегда все операции выполняются по одному разу. Иногда для решения поставленной задачи требуется многократное их повторение. Это касается как языка Pascal, так и других.

На помощь в таких случаях приходят специальные конструкции. Они носят название циклов. В данной статье будет рассказано о том, как работают такие компоненты. А еще – какие параметры они имеют.

Цикл – это…

Цикл – блок кода, который требуется выполнять много раз в процессе работы созданного приложения. Иногда называется петлей.

Цикл – последовательность инструкций, которые будут повторять один и тот же процесс снова и снова. Осуществляется это до тех пор, пока программа не получит команду на остановку или не будет достигнуто заранее выставленное условие.

Есть еще и бесконечный цикл. Характеризуется непрерывным повторением фрагмента утилиты, которое будет вечным. Обычно вызывается ситуация условными операторами и функциями, перенаправляющими код обратно в «первоначальный блок». И так до бесконечности.

Составляющие

При записи рассматриваемого компонента можно выделить:

1. Тело цикла. Оно содержит выражения, операторы и иные инструкции, которые нужно будет выполнять. Можно назвать тело описанием. Реализовывается тогда, когда значение прописанного изначально условия имеет параметр true.
2. Заголовок. Он определяет, до каких пор или сколько раз тело выполняется.

Далее будут изучены операторы циклов с параметрами. Они применяются разработчиками для того, чтобы сделать исходное приложение грамотно функционирующим. Но каждый вариант требует определенных навыков, умений и знаний.

Типы операторов цикла

В Pascal существуют разнообразные виды рассматриваемого компонента:

• For;
• While;
• Repeat.

Схема каждого варианта указана ниже. Наглядное изображение поможет быстрее понять, что предусматривает каждый циклический блок кода.

Блок с For

Название цикла For – «со счетчиком». Он применяется тогда, когда количество повторений напрямую связано с тем, что происходит непосредственно в теле. Именно такое определение дают поисковики и специализированная литература.

Оператор For приходит на помощь, когда количество повторений заранее известно.В заголовке указываются два значения:

1. Значение, которое получает переменная счетчик. От него начинается отсчет итераций. Он происходит шаг за шагом. Данный параметр равняется +1 на каждом новом «этапе».
2. Значение, которое будет отвечать за значение счетчика для остановки. Отражает количество итераций цикла.

Ниже – примеры того, в каких формах представления можно выразить в Pascal рассматриваемый «оператор».

Стоит обратить внимание на то, что если между начальным и конечным значением переменных счетчика стоит to – на каждом шаге значение увеличивается на +1. При downto происходит уменьшение на аналогичный параметр.

Счетчик – переменная любого из перечисляемых типов. Начальные и конечные значения тут бывают не только значениями, но и целыми выражениями, отвечающими за возврат совместимых с типов счетчика типов данных.

Изучая параметры и выполнение цикла в Pascal, стоит более детально рассмотреть каждую существующую схему «повторяющихся блоков». Эта информация поможет не запутаться в процессе создания уникальных крупных проектов.

Количество итераций в for определено еще до выполнения «петли». Ниже – примеры того, как клиент будет отвечать за соответствующий параметр. Значение тут присваивается переменной, после чего оно используется в заголовке. К этому моменту понятно, сколько «петля» повторится:

var
    i, n: integer;

begin
    write('Сколько символов: ');
    readln(n);

    for i := 1 to n do
        write('*');

    writeln;
end.

Работа с While

While – это цикл с параметром, схема которого представлена выше. А именно – оператор с предусловием. В заголовке будет находиться логическое выражение. Когда оно возвращает «истину», тело выполняется. В противном случае – нет. Программа просто перейдет к следующему фрагменту в коде.

Здесь стоит обратить внимание на следующие моменты:

1. При выполнении тела ход программы снова возвращается к заголовку.
2. Описание условия выполнения тела снова проходит стадию проверки.
3. Выполнение осуществляется в «операторе» столько раз, сколько выражение логического характера возвращает себе «истину».
4. В теле важно предусматривать все корректировки переменных, используемых в заголовках. Сделать это так, чтобы когда-нибудь наступала ситуация логической лжи. Если пренебречь этим моментом, произойдет зацикливание.

Так, While повторит код число n раз, которое заранее неизвестно. Определение происходит непосредственно по мере работы контента. Ниже – примеры выполнения соответствующего оператора.

С repeat

Рассматривая параметры циклов, стоит обратить внимание на так называемый оператор с repeat. While может не выполняться, если логическое выражение в заголовке сразу получило false. Но это не всегда удобно и применимо на практике.

Иногда происходит так, что тело должно выполняться хотя бы один раз, независимо от значения, который вернул оператор. Тогда на помощь приходит repeat. Его официальное определение – петля с постусловием.

Работает так:

1. Оператор repeat предусматривает логическое условие после тела петли.
2. Если параметр – false, приложение выполнит требование. В противном случае – нет.

Второй описанный момент – это ключевая разница, которую имеет пара while-repeat. Вот – пример использования цикла с параметром в случае с repeat:

Выход

Для того, чтобы выходить из петли в Pascal, есть несколько процедур:

1. Break. Он отвечает за досрочное прекращение выполнения петли в написанной программе.
2. Continue. Параметр в цикле, который позволяет выйти из текущей итерации. Сама петля не завершится. Она всего лишь перейдет к последующей стадии.

Вот – пример того, как происходит настройка отображения степени двойки в Pascal. Это – всего лишь фрагмент, который обычно рассматривается новичками.

Выше – результат работы с операторами и петлями.

Как быстро разобраться в теме

Операторы, а также параметр цикла, ключевые слова и другие особенности Паскаля достаточно трудно освоить тем, кто не имеет понятия о разработке. Но добиться желаемого результата быстро и без проблем удастся при помощи специализированных дистанционных компьютерных курсов.

Там обязательно расскажут обо всех операторах выбранного языка, его особенностях и принципах работы. Курсы – это быстрый способ получения современной профессии в мире информационных технологий. Рассчитаны на срок от нескольких месяцев до года. Гарантируют ученику удобный образовательный процесс в любое время. Достаточно просто иметь выход в интернет и подходящее устройство.

Компьютерные курсы по Pascal научат программировать с нуля. Для более опытных разработчиков тоже есть свои интересные предложения. Процесс сопровождается кураторством, а также постоянной практикой.

Тем, кто смог завершить обучение, будут вручены электронные сертификаты. Они помогут доказать полученные знания документально. Можно закончить одно или сразу несколько направлений.

Хотите освоить современную IT-специальность? Огромный выбор курсов по востребованным IT-направлениям есть в Otus!

Циклы. Операторы цикла for, while-do, repeat-until. Операторы завершения цикла break, continue

• 1. Какие преимущества дает использование операторов цикла в программе?
• 2. Какие есть виды операторов цикла в языке Паскаль?
• 3. Какой общий вид оператора цикла с параметром for?
• 4. Какой вид имеет оператор цикла с предусловием while-do?
• 5. Какой вид имеет оператор цикла с постусловием repeat-until?
• 6. Пример вычисления суммы с помощью различных операторов цикла.
• 7. Какие есть операторы завершения цикла?
• 8. Пример использования оператора break.
• 9. Пример использования оператора continue.

1. Какие преимущества дает использование операторов цикла в программе?

Иногда алгоритм решения задачи может быть реализован таким образом, что нужно выполнять одни и те же операции несколько раз. Алгоритм, в котором определенная последовательность команд повторяется несколько раз называется циклическим.

Операторы цикла используются для удобной организации циклического процесса в программе.

⇑

2. Какие есть виды операторов цикла в языке Паскаль?

В языке Паскаль предусмотрено три разновидности операторов цикла:

• цикл с параметром (for-to-do);
• цикл с предусловием (while-do);
• цикл с послеусловием (repeat-until).

⇑

3. Какой общий вид оператора цикла с параметром for?

Цикл с параметром имеет два варианта реализации.

Вариант 1. Общий вид цикла с параметром:

for Счетчик := НачальноеЗначение to КонечноеЗначение do
begin
  // Инструкции, операторы

end;

где Счетчик – переменная перечислительного типа, которая в цикле имеет шаг прироста равный 1; НачальноеЗначение – начальное значение параметра Счетчик; КонечноеЗначение – конечное значение параметра Счетчик.

Если НачальноеЗначение больше за КонечноеЗначение, то инструкции между begin и end не выполняются. Если между begin и end есть лишь одна инструкция (оператор), то ключевые слова begin и end можно опустить.

Вариант 2. Общий вид цикла с параметром:

for Счетчик := НачальноеЗначение downto КонечноеЗначение do
begin
  // Инструкции, операторы

end;

В этом случае значение параметра Счетчик не возрастает на 1, а уменьшается на 1 (шаг изменения равен -1).

Пример применения оператора цикла с параметром.

Составить программу для вычисления факториала. Факториал вычисляется по следующей формуле:

n! = 1 * 2 * 3 * … * n.

...

var 
  i,n:integer;
  f:real;

...

begin

  // n - задается

  f:=1;
  for i:=1 to n do
   f:=f*i;

  // f - результат факториала

end.

⇑

4. Какой вид имеет оператор цикла с предусловием while-do?

Общий вид оператора цикла с предусловием:

while условие do
begin
  // некоторые инструкции

end;

Пример применения оператора цикла с предусловием. Фрагмент кода, в котором осуществляется вычисление суммы:

S = 2 + 4 + 6 + … + 200

s := 0;
i := 0;
while i<200 do
begin
  i:=i+2;
  s:=s+i;
end;

⇑

5. Какой вид имеет оператор цикла с постусловием repeat-until?

Общий вид оператора цикла с постусловием:

repeat
  // некоторые инструкции

until условие;

Операторы, размещенные между ключевыми словами repeat и until будут выполняться до тех пор, пока логическое выражение, указанное после until, не примет значение true.

⇑

6. Пример вычисления суммы с помощью различных операторов цикла.

Задача.

С помощью оператора цикла вычислить сумму:

S = 1 + 2 + … + 100

Решение 1. Использование оператора цикла с параметром for.

// описание переменных
var
  s, i : integer;
begin

...

s:=0;
for i := 1 to 100 do
  s := s + i;

...

end.

Решение 2. Использование оператора цикла с предусловием while.

// описание переменных
var
  s, i : integer;
begin

  ...

  s := 0;
  i := 0;
  while i<100 do
  begin
    i := i + 1;
    s := s + i;
  end;

  ...

end.

Решение 3. С помощью оператора цикла с постусловием repeat.

// описание переменных
var
  s, i : integer;
begin

  ...

  s := 0;
  i := 0;

  repeat
    i := i + 1;
    s := s + i;
  until i>=100;

  ...
end.

⇑

7. Какие есть операторы завершения цикла?

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

В стандартном Паскале определены стандартные операторы Break и Continue.

Оператор Break выполняет безусловный выход из цикла. Оператор Continue обеспечивает переход к началу новой итерации цикла.

⇑

8. Пример использования оператора break.

Иногда бывает удобно выйти из цикла не по результату проверки, которая осуществляется в начале или в конце цикла, а каким-то другим способом. Такую возможность представляет инструкция break.

Фрагмент программного кода, который определяет наличие заданного элемента в массиве m1. Значение элемента описывается в переменной x. Если элемент есть, то нецелесообразно осуществлять поиск в массиве дальше. В этом случае используется есть операция break.

...

f_is := false; // переменная, определяющая есть ли элемент x в массиве m1
for i := 1 to 100 do
begin
  if m1[i]=x then
  begin
    f_is := true; // элемент x есть в массиве чисел
    break; // выход из цикла, нецелесообразно проводить поиск дальше,
           // поскольку элемент уже найден
  end;
end;

...

⇑

9. Пример использования оператора continue.

Инструкция continue используется, если нужно остановить текущую итерацию и перейти к следующей итерации.

Пример фрагмента кода, который множит на 2 все положительные элементы массива m1 из 100 целых чисел. Если встречается отрицательный элемент, то он пропускается.

...

for i := 1 to 100 do
begin
  if m1[i]<0 then // пропустить отрицательный элемент
   continue;     // и перейти к следующей итерации
  m1[i] := m1[i]*2;
end;

...

⇑