Применение инструкции цикла FOR

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

В общем виде инструкция for…to…do записывается так.

Рисунок 6.1– Синтаксис инструкции for…to…do

На этом рисунке <параметр цикла> - переменная порядкового типа; <начальное значение> - выражение, определяющее начальное значение <параметра цикла>; <конечное значение> - выражение, определяющее конечное значение <параметра цикла>.

Следует отметить, что если между словами begin и end находится только одна инструкция, то операторные скобки: begin и end можно не писать.

Инструкция цикла for…to…do выполняется следующим образом:

1) Вычисляются <начальное значение> и <конечное значение >.

2) Переменной <параметр цикла> присваивается <начальное значение>.

3) Если значение <параметра цикла> превышает <конечное значение>, то цикл заканчивается.

4) Выполняется тело цикла.

5) Переменной <параметр цикла> присваивается следующее значение.

6) Выполнение продолжается с пункта 3.

Количество повторений тела цикла можно вычислить по формуле:

Ord(<конечное значение>) – ord(<начальное значение>)+1;

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

Если <начальное значение> и <конечное значение> одинаковы, то тело цикла выполняется один раз.

Переменную <параметр цикла> можно использовать внутри цикла (но не изменять).

Если в инструкции for…to…do вместо слова toзаписать downto, то после очередного выполнения инструкций тела цикла, значение <параметра цикла> будет не увеличиваться, а уменьшаться.Начальное значение в этом случае должно быть больше чем <конечное значение>.

В рассмотренном ниже примере циклfor…to..do используется для того, чтобы добавить 10 символов ‘*’ к тексту в компоненте Label1.

for i:=1 to 10 do

Begin

label1.caption:=label1.caption + ‘*’;

end;

В следующем примере все прописные буквы текстового компонента Edit1 заменяются соответствующими строчными буквами. Для определения длины строки здесь используется функция length().

const rus=['А'..'Я']; lat=['A'..'Z'] ;

var ch: char; i:integer; s:string;

Begin

s:= Edit1.Text; // Запоминаем текст компонента в переменной типа String

for i:=1 to length(s) do //Цикл по символам строки

Begin

ch:= s[i]; // Очередной символ

if (ch in rus) or(ch in lat)then s[i]:= chr(ord(ch) +32);

Edit1.Text := s; // Вывод результата

end;

end;

6.1.2.1 Табулирование значений функций

Одной из достаточно распространенных задач, в которых используются циклы, является задача табулирования значений некоторой функции. Суть задачи заключается в том, что необходимо изменять аргумент функции от некоторого начального значения до конечного значения с некоторым шагом и для полученных значений аргумента вычислять значения функции. Эту задачу можно решать с помощью цикла while…do, в котором параметр цикла будет последовательно увеличиваться на величину шага. Однако такой подход считается не совсем правильным. Обычно аргументы функций – вещественные числа, которые в памяти машины записываются с некоторой погрешностью. При многократном суммировании таких чисел погрешность накапливается и может стать заметной при большом количестве циклов. Поэтому при табулировании функций удобнее использовать цикл for, в котором параметром является целочисленный номер строки таблицы. Строки таблицы удобно считать пронумерованным с 0, тогда приращение аргумента на каждом шаге можно определять путем умножения шага на номер строки. Ошибка при этом не накапливается.

Ниже приведен фрагмент программы табулирования функции sin(x)

// Обьявляем внутренние переменные процедуры

var x0, x, xMax : real; // Начальное (х0), текущее (х) и конечное (xMax)

// значения аргумента

y : real; // Текущее значение функции

k : integer; // Номер последней строки в таблице

i : integer; // Параметр цикла ( номер текущей строки в таблице)

s : string; // Строка таблицы

Begin

k:= round((xMax-x0)/step); // Округляем число строк до целого значения

for i:=0tok do

Begin

x := x0 + step * i; // Очередное значение х

y := sin(x);

s := ‘x=’ + floatToStr(x) + ‘ y =’ + floatToStr(y)

memo1.Lines.Append(s);

end;

end;

6.1.2.2 Форматирование результатов при выводе таблиц

При выводе таблиц на экран или на печать желательно добиться, чтобы столбцы были ровными, десятичные разделители были в одной позиции. Для этого, прежде всего таблицы целесообразно выводить шрифтом Courier new, в котором все символы имеют одинаковую ширину. Но этого мало. Строки таблицы следует формировать с помощью функции format().

В общем виде обращение к функции выглядит так:

format(<строка форматов>,<список объектов форматирования>)

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

Список объектов форматирования может состоять из констант, переменных или выражений, разделенных запятыми. Весь список заключается в квадратные скобки.

Подробное описание функции можно найти в справочной системе Delphi. Здесь мы рассмотрим только несколько примеров.

Таблица 6.3 – Примеры использования функции format()

В первом примере спецификатор имеет значение %1.3f и относится он к переменной х. Символ f указывает на то, что форматироваться будет вещественное число, но в форме с фиксированной точкой. Число 3 после точки указывает на то, что для дробной части числа выделяется три позиции. Поэтому результат был округлен до трех знаков после точки. Число 1 перед точкой указывает на то, что общее число позиций для вывода объекта равно 1. Этого явно мало, поэтому функция выделяет столько позиций, сколько требуется. В данном случае требуется 6 позиций (две на целую часть, одна на точку, и три на дробную часть). Если бы перед точкой стояло число большее чем 6, например 9, то слева было бы добавлено три пробела.

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

В третьем примере одним из объектов форматирования является строка символов, поэтому в качестве символа для определения типа используется буква s.