Практическое задание n 1. 16

1. Рассчитать значение функции y=f(x) при некотором значении "х" с использованием представления функции в виде ряда:

34

N Вид ряда Общий член " N" "Y" "X"

1 1 - x²/2! + x⁴/4! - ... (-1)^N *x^(2*N) / (2*N)! 0, 1, . . . cos(x) любое

2 1 + x¹/1! + x²/2! + ... x^N / N! 0, 1, . . . e^x любое

4 x - x³/3 + x⁵/5 - ... (-1)^N *x^(2*N+1) 0, 1, . . . arctg(x) |X|<1

(2*N+1)

5 ( x-1 ) ₊ ( x-1 )² +... (x-1)^N 1, 2, . . . ln(x) X>0. 5

x 2*x² N * x^N

6 x - x²/2 + x³/3 - ... (-1)^N *x^N / N 1, 2, . . . ln(1+x) -1<X<=1

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

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

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

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

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

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

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

Операторы 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 { прерывание программы }

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

35