Добавил:
Yanus
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Давыдченко 3 вариант 7 Э-112
.pas program threeV7;
const a=-1;b=3;
var F1,F2,x,dx:real;
i,n:integer;
begin
write('введите число точек N:');
readln(N);
dx:=abs(b-a)/(n);
x:=a;
writeln ('_____________________');
writeln ('|I| X| F1| F2|');
writeln ('|--|--------|---------|---------|');
for i:=1 to n do
begin
F2:=20/(1+sqr(x));
F1:=exp(-x*ln(2))/100;
writeln('|',i:3,'|',x:8:3,'|',f1:8:4,'|',f2:8:4,'|');
x:=x+dx;
end;
end.
const a=-1;b=3;
var F1,F2,x,dx:real;
i,n:integer;
begin
write('введите число точек N:');
readln(N);
dx:=abs(b-a)/(n);
x:=a;
writeln ('_____________________');
writeln ('|I| X| F1| F2|');
writeln ('|--|--------|---------|---------|');
for i:=1 to n do
begin
F2:=20/(1+sqr(x));
F1:=exp(-x*ln(2))/100;
writeln('|',i:3,'|',x:8:3,'|',f1:8:4,'|',f2:8:4,'|');
x:=x+dx;
end;
end.
Соседние файлы в предмете Информатика