Delphi 3 и создание приложений баз данных

       

Оператор WHILE... DO


Оператор имеет формат

WHILE (<условие>) DO < оператор>

Алгоритм выполнения оператора- в цикле проверяется выполнение условия, если оно истинно, выполняется оператор. Цикл продолжается до тех пор, пока условие не перестанет выполняться.

Пример.

Рассмотрим процедуру SUM_0_N, которая подсчитывает сумму всех чисел от 0 до числа, определяемого входным параметром N Вычисление суммы реализовано в цикле с использованием оператора WHILE .. DO.

CREATE PROCEDURE SUM_0_N (N INTEGER)

RETURNS(S INTEGER) AS

DECLARE VARIABLE TMP INTEGER;

BEGIN

S = 0;

TMP = 1;

WHILE (TMP <= N) DO

BEGIN

S = S + TMP;

TMP = TMP + 1;

END

END



Содержание раздела