Понравилась тема? Поделитесь с друзьями!
|
|
|
program laba3;
uses crt;
var eps, x, xN, xK, dx, S, R, VN, VN1: real;
n: integer;
Begin
writeln('xN, xK, dx, eps');
readln(xN, xK, dx, eps);
x:=xN;
while x<=xK do
begin
R:=exp(-x);
VN1:=1;
n:=0;
S:=1+VN;
repeat
VN:=VN1;
VN1:=VN*(-x)/(n+1);
S:=S+VN1;
n:=n+1;
until abs(VN1)<eps;
writeln(x:5:1,' ',S:9:4,' ',R:9:4,' ',n+1:5,' ');
x:=x+dx;
end;
readln;
End.
вот то, что с прошлого года осталось. может быть поможет 
__________________ Allah Akbar!
Сообщение отредактировано 1 раз(а), редактировал Ужах Аль-Кудс , 03.10.2004 в 14:28.
|
|
03.10.2004 14:27 |
|
|
Понравилась тема? Поделитесь с друзьями!
|
Все вопросы, связанные с деятельностью сайта и форума решаются с руководителем проекта.
powered by [censored] forum 7bit.team © 2001-2021
|