Решение 50 типовых задач по программированию на языке Pascal Дата размещения сборника в сети

expf 
и увеличить n для следующего шага: 
while abs(p) >= eps do begin 
p := p * x / n; 
expf := expf + p; 
inc(n) 
end; 
После выхода из цикла нужно осуществить форматированный вывод результата expf на экран 
с некоторым количеством цифр после точки, например, пятью. Отметим, что если при этом введен-
ное eps содержало меньше 5 цифр после точки, то сформированное значение expf будет, соответ-
ственно, неточным. 

---

Данил Душистов: «Решение 50 типовых задач по программированию на языке Pascal» 
67 
Код: 
1.
program ExpFunc; 
2.
3.
var 
4.
x, eps, expf, p: real; 
5.
n: word; 
6.
7.
begin 
8.
readln(x, eps); 
9.
expf := 1; 
10.
n := 1; 
11.
p := 1; 
12.
while abs(p) >= eps do begin 
13.
p := p * x / n; 
14.
expf := expf + p; 
15.
inc(n) 
16.
end; 
17.
writeln(expf:0:5) 
18.
end. 
Содержание 
Предисловие от автора ............................................................................................................................. 1 
Глава 1. Линейные алгоритмы ............................................................................................................... 2 
Задача № 1. Вывести на экран сообщение «Hello World!» .................................................................. 2 
Задача № 2. Вывести на экран три числа в порядке, обратном вводу ................................................ 2 
Задача № 3. Вывести на экран квадрат введенного числа ................................................................... 3 
Задача № 4. Получить реверсную запись трехзначного числа ........................................................... 4 
Задача № 5. Посчитать количество единичных битов числа .............................................................. 5