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

Задача № 4. Вычислите степень 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*). {Конец программы}

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

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

Форма записи оператора цикла с предусловием:

В цикле с предусловием тело цикла заключается в операторные скобки

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

Здесь WHILE (Пока) DO (выполнить) – служебные слова.

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

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

Задача № 5. Составить программу для вычисления значения функции y = ax². Переменная х изменяется от 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. {Конец программы}

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

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