Составители:
Рубрика:
61
Do Oператоры1 Loop
условие
Следующий оператор программы
True (While)
False (Until)
True (Until)
False (While)
Операторы1
Следующий
оператор
программы
Условие
True (While)
False (Until)
True (Until)
False (While)
Рис. 2.9. Схема и алгоритм выполнения операторов Do Loop While и Do Loop
Until
Пример 2.22. Модернизация рассмотренной ранее программы чтения из файла с
использованием оператора с постусловием. Обратите внимание на то
обстоятельство, что в этом случае приходится с помощью оператора If делать
предварительную проверку существования записей в файле сразу после его
открытия.
Open " Зарплата.hhh" For Input As #1
If EOF(1) Then 'Проверка факта существования записей в файле
Else
j = 1 'Задание начального значения счетчика
Do
Input #1, Ведомость(j).Фамилия_И_О
Input #1, Ведомость(j).Начислено_Ведомость
Ведомость(j).Налог_Ведомость = Ведомость(j).Начислено_Ведомость * 0.12
Ведомость(j).К_выдаче_Ведомость =
Ведомость(j).Начислено_Ведомость - _
Ведомость(j).Налог_Ведомость
j = j + 1 'Модификация счетчика с целью подготовки к записи в
'следующий элемент структуры
Loop Until EOF(1) ' Проверка факта достижения конца файла
End If
Close #1
В рассмотренных примерах в состав блока операторов цикла,
обозначенного как Операторы1, приходилось включать оператор, задающий
начальное значение переменной j=1, а в тело цикла дополнительно содержало
Страницы
- « первая
- ‹ предыдущая
- …
- 59
- 60
- 61
- 62
- 63
- …
- следующая ›
- последняя »
