Пример использования цикла с параметром

Задача № 1. Вычислите степень y = a действительного числа a с натуральным показателем n. Воспользуемся для вычислений следующей формулой: До начала цикла (подготовка цикла) y:= 1, на каждом шаге цикла (для i = 1,2,...,n) - y:= y*a. Цикл с параметром i будет выполнен n раз.

Программа решения задачи имеет вид:

(*ОПРЕДЕЛЕНИЕ СТЕПЕНИ ВЕЩЕСТВЕННОГО ЧИСЛА*)

PROGRAM STEPEN; {Имя программы}

VAR {Раздел описания переменных}

A,Y:REAL;

I,N:INTEGER;

BEGIN (*STEPEN*)

WRITELN ('ВВЕДИТЕ ЧИСЛО И СТЕПЕНЬ ЧИСЛА'); {Вывод сообщения}

READ (A,N); {Ввод значения переменных}

Y:=1; {Ввод начального значения}

FOR I:=1 TO N DO { цикл для вычисления степени}

Y:=Y*A; {Вывод сообщения}

WRITELN (N,'СТЕПЕНЬ ЧИСЛА',A); {Вывод сообщения}

WRITELN ('РАВНА',Y) {Вывод результата}

END. (*STEPEN*). {Конец программы}

Цикл с предусловием

Цикл с предусловием используется, как правило, в тех случаях, когда заранее неизвестно число повторений цикла. Форма записи оператора цикла с предусловием:

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

Здесь WHILE (Пока) DO (выполнить) – служебные слова. До начала циклов с предусловием и постусловием необходимо указывать начальное значение управляющей переменной.

Пример использования цикла с предусловием

Задача № 2. Составить программу для вычисления значения функции y = ax2.

Переменная х изменяется от 5 до 25 с шагом 1, полученный результат вывести на экран.

Программа решения задачи имеет вид:

program pred5; {заголовок программы}

var {раздел описания переменных}

x:integer;

a,y:real;

begin

writeln ('Введи параметр a '); {Вывод комментария}

readln (a); {Ввод с клавиатуры значения a}

y:=0; {Обнуление переменной для накапливания суммы}

x:=5; {Задание начальных условий}

while x<=25 do {Начало цикла с предусловием}

begin;

y:=a*x*x; {Тело цикла с предусловием}

x:=x+1; {изменение переменной цикла на величину шага}

end; {конец цикла}

writeln ('Функция равна ',y); {вывод результата}

end. {Конец программы}

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 4

HАИМЕНОВАНИЕ:Цикл с постусловием

1.ЦЕЛЬ РАБОТЫ: Научится использовать цикл с постусловием

2.ПОДГОТОВКА К ЗАНЯТИЮ:

2.1. Изучить предложенную литературу.

2.2. Подготовить бланк отчёта.

3.ЛИТЕРАТУРА:

3.1 Белов В.В., Чистякова В.И. Программирование в Delphi: процедурное, объектно-ориентированное, визуальное. Учебное пособие. – М.: Горячая линия – Телеком, 2009

3.2 Голицына О.Л., Попов И.И. Основы алгоритмизации и программирования. – Форум, 2010

3.3Семакин И.Г., Шестаков А.П. Основы алгоритмизации и программирования. – М.: Издательский центр «Академия», 2008

3.4Семакин И.Г., Шестаков А.П. Основы программирования. – М.: Издательский центр «Академия», 2008

4. ПЕРЕЧЕНЬ ОБОРУДОВАНИЯ И ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ:
4.1. Персональный IBM PC.

5.ЗАДАНИЕ:

5.1 С помощью repeat напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.

5.2 C помощью repeat напишите программу-фильтр, которая вводит любые символы, но комментирует только буквы русского алфавита. Завершение работы программы — по нажатии буквы "Я".

5.3 С помощью repeat напишите программу, которая требует у вас пароль, например 111, и если пароль правильный, то заполняет все строки экрана сообщением "Молодец!!!". Если после пятой попытки пароль все равно неверен, выйти из программы.

5.4 Составьте и отладьте программу, определяющую максимальное из всех введенных вами чисел. (Пусть признаком конца ввода чисел является введенное число 0.)

6. ПОРЯДОК ВЫПОЛНЕНИЯ РАБОТЫ:

6.1 По предложенной литературе изучить необходимый материал;

6.2 Выполнить задания практического занятия и записать листинг программы;

6.3 Дать ответы на контрольные вопросы;

7. СОДЕРЖАНИЕ ОТЧЕТА:

7.1 Наименование и цель работы

7.2 Код программы

7.3 Записать результат (листинг) выполненых заданий.

7.4 Ответы на контрольные вопросы

7.5 Вывод о проделанной работе

8. КОНТРОЛЬНЫЕ ВОПРОСЫ:

8.1 Оператор цикла с постусловием.

8.2 Отличия цикла с параметром от других операторов цикла.

8.3 Отличия цикла с постусловием от других операторов цикла.

ПРИЛОЖЕНИЕ:

Цикл с постусловием

Цикл с постусловием используется, как правило, в тех случаях, когда заранее неизвестно число повторений цикла.