Высокоуровневые методы информатики и программирования. Степанов А.Г. - 43 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

Do [While Условие]
[Операторы]
[Exit Do]
[Операторы]
Do
условие
Операторы1 Loop Следующий оператор программы
While
Until
True (Until)
False (While)
True (While)
False (Until)
Операторы1
Следующий
оператор
программы
Условие
True (While)
False (Until) True (Until)
False (While)
Рис. 6. Схема и алгоритм выполнения операторов Do While Loop и Do Until Loop с
предусловием
Пример 14. Иллюстрация возможности сокращения числа операторов ли-
нейной программы из примера 10 за счет использования оператора цикла с
предусловием. Очевидно, что для обработки списка, например, из 100 сотрудников
в этой программе необходимо только поменять диапазоны массивов и условие в
операторе Do While Loop. В то же время линейная программа в этом случае займет
несколько страниц текста.
Sub Расчет_заработной_платы3()
Dim Начислено(1 To 4) As Currency, Налог(1 To 4) As Currency, _
К_Выдаче(1 To 4) As Currency, i As Integer
i = 1 'Задание начального номера массива
Do While (i <= 4)
Начислено(i) = Cells(i + 1, 2) 'В первую ячейку массива Начислено записывается
'содержимое второй строки и второй колонки исходной таблицы Excel
Налог(i) = Начислено(i) * 0.12 'Рассчитывается значение налога и запоминается
'в соответствующей ячейке
Cells(i + 1, 3) = Налог(i) 'Значение налога возвращается в таблицу Excel
К_Выдаче(i) = Начислено(i) - Налог(i) 'Рассчитывается значение к выдаче
43
'и запоминается в соответствующей ячейке
Loop
или
Do [Until Условие]
[Операторы]
[Exit Do]
[Операторы]
Loop

Страницы