Иллюстрированный самоучитель по Turbo Pascal для начинающих

Repeat. While.

Приступая к решению задач этого раздела, следует вспомнить, что:

  • число повторений инструкций цикла repeat определяется ходом выполнения программы;
  • инструкции цикла repeat выполняются до тех пор, пока условие, стоящее после слова until, ложно;
  • после слова until надо записывать условие завершения цикла;
  • для завершения цикла repeat в теле цикла обязательно должны быть инструкции, выполнение которых влияет на условие завершения цикла;
  • цикл repeat – это цикл с постусловием, т. е. инструкции тела цикла будут выполнены хотя бы один раз;
  • цикл repeat, как правило, используется для организации приближенных вычислений, задач поиска и обработки данных, вводимых с клавиатуры или из файла.

130. Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. Ниже представлен рекомендуемый вид экрана во время работы программы.

Вычисление среднего арифметического последовательности положительных чисел.
Вводите после стрелки числа. Для завершения ввода введите ноль.
 › 45
 › 23
 › 15
Введено чисел: 3
Сумма чисел: 83
Среднее арифметическое: 27.67.

131. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена). Ниже представлен рекомендуемый вид экрана во время работы программы.

Определение максимального числа последовательности положительных чисел.
Вводите после стрелки числа. Для завершения ввода введите ноль.
 › 56
 › 75
 › 43
 › 0
Максимальное число: 75.

132. Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым. Рекомендуемый вид экрана во время работы программы приведен ниже.

Введите целое число и нажмите Enter
 › 45
45 – не простое число.

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

134. Написать программу, которая "задумывает" число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).

Игра "Угадай число".
Компьютер "задумал" число от 1 до 10.
Угадайте его за 5 попыток.
Введите число и нажмите Enter
 › 5
Нет.
 › 3
Вы выиграли! Поздравляю!

Факультатив

135. Написать программу-таймер, которая по истечении заданного промежутка времени выдает звуковой сигнал. Величина временного интервала вводится с клавиатуры во время работы программы.

While

Приступая к решению задач этого раздела, следует вспомнить, что:

  • число повторений инструкций цикла while определяется ходом выполнения программы;
  • инструкции цикла while выполняются до тех пор, пока условие, записанное после слова while, истинно;
  • после слова while надо записывать условие выполнения инструкций цикла;
  • для завершения цикла while в теле цикла обязательно должны присутствовать инструкции, влияющие на условие выполнения инструкций цикла;
  • цикл while – это цикл с предусловием, т. е. инструкции тела цикла вообще могут быть не выполнены;
  • цикл while, как правило, используется для организации приближенных вычислений, задач поиска и обработки данных, вводимых с клавиатуры или из файла.

136. Напишите программу, которая вычисляет п с заданной пользователем точностью. Для этого воспользуйтесь тем, что значение частичной суммы ряда 1-1/3+1/5-1/7+1/9– … при суммировании достаточно большого количества членов приближается к n/4. Рекомендуемый вид экрана во время работы программы приведен ниже.

Задайте точность вычисления ПИ
 › 0.001
Значение числа ПИ с точностью 0.001000 равно 3.143589
Просуммировано 502 члена ряда.

137. Написать программу, которая вычисляет наибольший общий делитель двух целых чисел.

Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.