Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
3
Добавлен:
15.06.2014
Размер:
518 б
Скачать
program Project1;

const
a = -1;
b = 3;
n = 20;
var
i : integer;
dx, x, f1, f2: real;
f1ar, f2ar, xar: array[1..n] of real;
ar: array[1..3, 1..n] of real;
begin

dx := abs(b - a) / (n - 1);
x := a;
for i := 1 to n do begin
ar[1, i] := x;
ar[2, i] := exp(-x*LN(2)) / 100;
ar[3, i] := 20 / (1 + x*x);
x := x + dx;
end;



for i := 1 to n do begin
writeln('|', i:3, '|', ar[1,i]:8:3, '|', ar[2,i]:8:4, '|', ar[3,i]:8:4, '|');
end;
readln;
end.
Соседние файлы в папке лабы 5