- •1.5. Технология создания программы в интегрированной среде
- •1.5.1. Порядок создания программы на языке Turbo Pascal
- •1.5.2. Использование помощи в среде Turbo Pascal
- •1.6. Справки по структуре и операторам Pascal-программы
- •1.7. Пример подготовки и выполнения программы
- •1.8. Ошибки компиляции
- •1.9. Варианты заданий
- •1.10. Содержание отчета
- •1.11. Контрольные вопросы
- •1. Получить вариант задания (п. 2.8).
- •2.5. Технология отладки программы в интегрированной среде программирования Turbo Pascal
- •2.6. Справки по операторам
- •2.6.1. Оператор if
- •2.6.2. Оператор выбора case
- •2.6.3. Оператор goto
- •2.7. Пример программы с разветвленной структурой
- •2.8. Варианты заданий
- •2.9. Содержание отчета (см. Пункт 1.10)
- •2.10. Контрольные вопросы
- •1. Получить вариант задания (п. 3.7).
- •3.5. Оператор повтора (цикла) for
- •3.6. Определение и использование данных типа "массив"
- •3.7. Варианты заданий
- •3.8. Содержание отчета (см. П. 1.10)
- •3.9. Контрольные вопросы
- •1. Получить вариант задания (п. 4.8).
- •4.5. Оператор цикла repeat
- •4.6. Оператор цикла while
- •4.7. Варианты заданий
- •4.8. Содержание отчета (см. П. 1.10)
- •4.9. Контрольные вопросы
4.6. Оператор цикла while
Оператор цикла WHILE организует выполнение одного оператора неизвестное заранее число раз, если истинно логическое выражение S. Выход из цикла осуществляется, если логическое выражение S окажется ложным. Так как истинность логического выражения проверяется в начале каждой итерации, тело цикла может не выполниться ни разу.
Структура оператора цикла WHILE имеет вид:
while s do Instruction;
В этой структуре:
S – логическое выражение, истинность которого проверяется в начале каждой итерации;
Instruction – выполняемый оператор цикла, который может быть составным.
Алгоритм работы оператора WHILE:
1 – вычисляется значение условия S;
2 – проверяется условие, если результат равен True, тело цикла выполняется и происходит переход к п. 1; если результат равен False, происходят выход из цикла и переход к первому после while оператору.
Рисунок 4.2 Схема работы цикла While ‑ do
Пример. Найти все делители целого положительного числа (кроме 1 и самого числа).
program EXAMPLE;
var
Х: Integer;
Half: Integer;
Divider: Integer;
i: Integer;
begin
repeat
Write('Введите число больше нуля: ');
ReadLn(X);
if X<=0 then
WriteLn( 'Неправильный ввод')
until X > 0;
Half := X div 2;
Divider := 2;
i : = 0;
While Divider <= Half do
begin
if X mod Divider = 0
then
begin
inc(i); {увеличение счетчика на единицу}
WriteLn(i, '-й делитель равен:' Divider)
end;
inc(Divider) {увеличение делителя на единицу}
end;
if i=0
then
WriteLn( 'Делителей нет');
WriteLn('Конец решения')
end .
4.7. Варианты заданий
Таблица 4.1
Номер варианта |
Общий член ряда |
Точность |
1 |
|
=0,01 |
2 |
|
=0,001 |
3 |
|
=0,01 |
4 |
|
=0,1 |
5 |
|
=0,01 |
6 |
|
=0,001 |
7 |
|
=0,0001 |
8 |
|
=0,1 |
9 |
|
=0,01 |
10 |
|
=0,001 |
11 |
|
=0,01 |
12 |
|
=0,1 |
13 |
|
=0,0001 |
14 |
|
=0,001 |
15 |
|
=0,001 |
16 |
|
=0,001 |
17 |
|
=0,001 |
18 |
|
=0,001 |
19 |
|
=0,01 |
20 |
|
=0,01 |
4.8. Содержание отчета (см. П. 1.10)
4.9. Контрольные вопросы
1. Каково назначение условных операторов повтора (циклов)?
2. Какие требования предъявляются к выражениям, управляющим повторениями?
3. В чем отличия операторов повтора while и repeat?
4. В каких случаях предпочтительнее использовать для организации циклов оператор повтора for? Что записывается в заголовке этого оператора?
5. Какие правила пунктуации необходимо соблюдать при записи операторов?
6. Что такое вложенные циклы? Какие дополнительные условия необходимо соблюдать при организации вложенных циклов?