Программа запрашивает ввод величин "х", "eps" и выводит на экран приближенное значение "yl" для каждого "N" и "контрольное" значение "у".

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

3.Определить число месяцев, через которое начальная сумма валютного вклада в банк увеличится в рублях более чем в три раза. Процентная ставка равна 0. 3% в месяц, а курс валюты растет по отношению к рублю l% в месяц. Программа выводит на экран ежемесячное значение конечной суммы в рублях.

1. 7. 6. Операторы ограничения и прерывания цикла

Данные операторы применяются внутри операторов цикла Операторы имеют вид:

Continue;

с параметром или условием.

ограничение цикла,

прерывание цикла.

Операторы Continue; и Break; позволяют производить действия не для всех операторов внутри цикла. Действие оператора Continue; заключается в передаче управления на начало цикла, при этом контролируется условие выхода из цикла. Действие оператора Break; заключается в передаче управления оператору, следующему за последним оператором цикла, при этом не контролируется условие выхода из цикла. Во вложенных циклах операторы Continue; и Break; действуют только на цикл в котором они записаны. Приведем пример использования операторов для блокировки несанкционированного доступа в программу.

For i:= 1 to 3 do begin

Write( Введите ПАРОЛЬ: ); Readln(S); {S и Parol

If S = Parol Then Break

else If i <> 3 Then Continue; Writeln( Доступ к программе ЗАПРЕЩЕН ); Writeln( Нажмите Enter ); Readln; Halt

переменные одного типа} { прерывание цикла } { ограничение цикла }

{ прерывание программы } { продолжение программы }

1. 7. 7. Оператор перехода к метке

Оператор перехода служит для передачи управления помеченному оператору и имеет

Goto "метка";

Меткой может быть целое положительное число или идентификатор. Меткой помечается оператор, которому передается управление, например:

M1: Write( Введите x>=0); Readln(x);

Метки описываются в разделе описания, например:

Метка не может стоять перед оператором Begin. . . end; Следует избегать переходов внутрь операторов цикла.

Оператор перехода часто применяется для "досрочного" выхода из операторов цикла. Приведем пример операторов для расчета конечной суммы вклада через 10 месяцев (pr -процентная ставка), при условии досрочного снятия вклада, если начальная сумма "S1" воз-расла более чем в два раза:

S:= S1; For i:= 1 to 10 do begin

S:= S*(1 + pr/100); If S > 2*S1 Then Goto M1 end; M1: Writeln(S);

Приведем пример программы расчета наибольшего общего делителя двух натуральных чисел по алгоритму Евклида: наибольший обший делитель натуральных чисел "а" и "в" равен наибольшему общему делителю меньшего из чисел ("a" или "b") и остатка от деления большего числа на меньшее.

PROGRAM del;

label M1, M2, M3;

var b, a: longint; Begin

M3: Writeln( Введите два натуральных числа); readln(a, b); Writeln; if (a <= 0) or (b <= 0) then goto M3;

{------------------------------------------------ алгоритм - 1 ------------------------------------------------- }

M1: if a = b then Writeln(наибольший делитель =, a) else begin if a > b then a:= a-b else b:= b-a; goto M1 end; Writeln;

{----------------------------------------------алгоритм -2 ------------------------------------------------}

M2: if a > b then a:= a mod b else b:= b mod a;

if (a= 0) or (b= 0) then Writeln( наибольший делитель =,a+b) else goto M2; Writeln( Нажмите Enter); readln; end.

1. 8. Блок - схемы алгоритмов

При обучении программированию используется графическое описание алгоритма решения задачи в виде блок - схемы. Такое представление алгоритма достаточно удобно и наглядно показывает последовательность выполнения операторов прогаммы. Приведем основные обозначения, применяемые в блок - схемах.

If x<0 Then Goto M1; Label M1;

Ввод, Вывод данных

Выполнить

оператор

Проверить условие

Начало, конец программы

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

Оператор выбора:

Условный оператор:

Оператор цикла с параметром:

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