Pascal: Занятие №3. Часть2: Цикл While в Паскале

While в Паскале — цикл с предусловием

Блок-схема решения:

Решение примера на Паскале:

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

Блок-схема, соответствующая циклу while в Паскале:

while условие do {Пока условие истинно выполняется оператор} оператор;

while условие do {Пока условие истинно выполняется оператор} оператор;

• Здесь оператор, стоящий после служебного слова do, образует тело цикла и будет выполняться, пока значение "условия" равно true (истина).
• Если операторов должно быть несколько, тогда необходимо применять составной оператор.
• Условие пересчитывается каждый раз при входе в цикл.
• Непосредственно условием цикла while может быть переменная или логическое выражение.
• Операторы тела цикла while выполнятся только в том случае, если условие будет истинно, если условие ложно — они игнорируются, и программа продолжается с тех операторов, которые стоят уже после конструкции. Таким образом, это существенное отличие цикла с предусловием от цикла с постусловием.

Рассмотрим использование цикла while в Паскале на решенном примере:

1
2
3
4
5
6
7
8
9
10

var i,n:integer;
begin
write ('количество знаков');
readln(n);
i:=1;
while i<=n do begin {составной оператор}
  write(0);
  i:=i+1
end;
end.

1
2
3
4
5
6
7
8

begin
var n:=readInteger('количество знаков');
var i:=1;
while i<=n do begin {составной оператор}
  write(0);
  i:=i+1
end;
end.

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

Детальный разбор работы цикла While в Паскале рассмотрен в видеоуроке:
youTube

Блок-схема решения:

Задача 5: Вычислить сумму элементов следующей последовательности с точностью 0,001:

Результат: S = 1.157
  
[Название файла: L3task5.pas]

Вложенные циклы в Паскале

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

Рассмотрим пример:

1
2
3
4
5
6
7
8
9
10

const n = 9; {размер таблицы}
var i, j :integer;
begin
   for i:=1 to n do {номера строк}
   begin
     for j:=1 to n do {номера столбцов}
       write(i*j:4);
     writeln; {переход на новую строку}
   end;
end.

1
2
3
4
5
6
7
8
9

const n = 9; {размер таблицы}
begin
   for var i:=1 to n do {номера строк}
   begin
     for var j:=1 to n do {номера столбцов}
       write(i*j:4);
     writeln; {переход на новую строку}
   end;
end.

Произведение в Паскале

Точно также, как существует сумматор для сложения, для умножения в паскале тоже существует специальная конструкция:

Произведение вычисляется по рекуррентному выражению:

P=P*Y,

где P – промежуточные произведения

Y — сомножители

Рассмотрим пример вычисления факториала числа в Паскале с использованием цикла while.

1
2
3
4
5
6
7
8
9
10
11
12

var
  fact, n : integer;
begin
  fact := 1; {начальное значение факториала =0! }
  n := 1;    {начальное значение для условия }
  while n<=10 do     {условие }
   begin             {начало тела конструкции с составным оператором }
     fact := fact*n; {вычисление факториала n! }
     n := n + 1       {n должно меняться в теле конструкции}
   end;                {конец тела цикла }
  writeln(’10!= ’,fact);  {вывод результата расчета }
end.

Здесь необходимо обратить внимание на то, что присваивание n := 1 стоит до цикла, если этого не сделать, то условие будет работать некорректно, так как переменная n будет пуста.

Программа возведения в степень числа в Паскале

Для начала уточним, что есть формула вычисления степени на Паскале. Но мы не будем ее использовать, а разберем алгоритм решения задачи возведения в степень.

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

Таким образом, возведение числа n в степень d можно выразить так:
nd = n1 * n2 * n3 * … * nd, где нижние индексы просто указывают очередное по счету число n.

Еще необходимо учесть следующее:

• число в нулевой степени равняется 1
• если показатель степени отрицателен, т.е. d < 0, то задача решается по формуле:
  nd = 1 / (n1 * n2 * n3 * … * nd)

Т.е., решая программу на Паскале, учитываем:

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

Введите член последовательности
4
Введите член последовательности
-1
Введите член последовательности
5
Введите член последовательности
7
Введите член последовательности
0
Сумма положительных чисел = 16