Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
2
Добавлен:
15.06.2014
Размер:
345 б
Скачать
program lab3_2;
const
a = -1;
b = 3;
n = 20;
var
i : integer;
dx, x, f1, f2: real;
begin
dx := abs(b - a) / (n - 1);
x := a;
for i := 0 to n do begin
f1 := exp(2*LN(-x)) / 100;
f2 := 20 / (1 + x*x);
writeln('|', i:3, '|', x:8:3, '|', f1:8:4, '|', f2:8:4, '|');
x := x + dx;
end;
readln;
end.
Соседние файлы в папке лабы 5