3.8. Содержание отчета (см. П. 1.10)

3.9. Контрольные вопросы

1. Каково назначение оператора цикла FOR?

2. Каковы правила записи оператора цикла FOR?

3. Каковы алгоритмы работы оператора цикла FOR?

4. Какие циклы называются вложенными?

5. Какие ограничения наложены на оператор FOR?

6. Как определяются данные типа "массив"? Запишите примеры определения данных типа массив с использованием разделов type и var (или только var).

7. Какие типы могут иметь индексы?

8. Как получить доступ к элементам одно-, дву-, n-мерного массива?

9. Как можно организовать ввод (вывод) элементов одно-, дву, n-мерного массива?

Лабораторная работа №4

Разработка программ с использованием циклов c неизвестным числом повторений

4.1. Цель работы

Освоение процесса разработки циклических программ с использованием условных циклов (с неизвестным числом повторений) на языке Turbo Pascal.

4.2. Задание на лабораторную работу

Требуется разработать две программы (или одну с двумя циклами) с использованием операторов повтора (циклических операторов) WHILE и REPEAT.

4.3. Требования к программе

Программа должна выводить:

– сообщения о назначении программы, разработчике и варианте задания;

сообщения – подсказки перед вводом данных;

результаты вычислений каждого выполнения цикла.

Программа должна проверять допустимые значения аргумента при вычислениях, например, чтобы не было деления на ноль.

4.4. Порядок выполнения работы

1. Получить вариант задания (п. 4.8).

2. Изучить правила использования операторов While и Repeat для разработки циклических программ (п. 4.6 и 4.7).

3. Определить область сходимости.

4. Составить и отладить программу вычисления суммы ряда с заданной точностью с использованием циклического оператора WHILE.

5. Составить и отладить программу вычисления суммы ряда с заданной точностью с использованием циклического оператора REPEAT.

6. Проследить с помощью средств отладки системы Turbo Pascal изменения значений переменных и результатов проверки условий продолжения (окончания) цикла.

7. Ответить на контрольные вопросы (п. 4.9).

8. Оформить отчет (см. п. 1.10).

4.5. Оператор цикла repeat

Оператор цикла REPEAT организует выполнение цикла, состоящего из любого числа операторов, с неизвестным заранее числом повторений. Тело цикла выполняется хотя бы один раз. Выход из цикла осуществляется при истинности некоторого логического выражения S. Структура этого оператора:

repeat

Instruction1

Instruction2

...

InstructionN

until S,

В этой структуре:

Instructionl, Instructfon2, ..., InstructionN – выполняемые операторы, составляющие тело цикла;

S – логическое выражение, истинность которого проверяется в конце каждой итерации.

Так как слова repeat и until являются своеобразными операторными скобками, точку с запятой перед словом until ставить не обязательно.

Алгоритм работы оператора REPEAT:

1 – выполняется тело цикла;

2 – проверяется условие выхода из цикла: если результат булевского выражения равен False, то выполняется переход к пункту N1, если результат – True, то происходит выход из цикла, т.е. переход на следующий оператор.

¹ Один или более операторов должны обеспечивать изменение переменных, входящих в выражение S. В противном случае программа может зациклиться.

Рисунок 4.1- Схема работы цикла Repeat ‑ Until

Пример. Программа, вычисляющая сумму двух чисел:

program EXAMPLE6;

var

X, Y, Sum: Real;

Ch: Char;

begin

repeat {начало цикла}

Write('Введите числа X и Y ');

ReadLn(X, Y);

Sum : = X + Y;

Writen ('Сумма чисел X и Y равна ',Sum);

Write ('Завершить программу?Y/N (Д/Н) ');

ReadLn (Ch)

Until (Ch=’y’ ) or (UpCase (Ch) = 'Y' ) or (Ch = 'д' ) or (Ch = 'Д' )

{ Upcase – преобразование строчной буквы в заглавную }

end.