
Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Лабы Паскаль / лабы 5 / L7_Z3_V7
.PAS 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.
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