VPF::интерполяция!! исправте прогу плз!

4ester

Дата 3.6.2009, 00:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 3.6.2009

Репутация: нет
Всего: нет

Код


TYPE MAT=ARRAY [1..20,1..20] OF REAL;
VEC=ARRAY [0..20] OF REAL;
VAR J,N :INTEGER; L0,L9,E,E1,Х0,X1: REAL; A,B :MAT; X,F,L :VEC;
PROCEDURE MATR(N:INTEGER; VAR A:MAT); EXTERNAL;
FROCEDURE DET(N:INTEGER; VAR A:MAT; VAR S:REAL); EXTERNAL;
PROCEDURE TAB (N:INTEGER; VAR X,F:VEC);
VAR I,J,M:INTEGER; H,R,S:REAL;
BEGIN H:=(L9-L0)/N; R:=L0;
FOR M:=0 TO N DO BEGIN
FOR I:=1 TO N DO
FOR J:=1 TO N DO IF I=J THEN A[I,I]:=B[I,I]-R
ELSE A[I,J]:=B[I,J];
DET(N,A,S); X[M]:=R; F[M]:=S; R:=R+H
END
END;
PROCEDURE CPN(N:INTEGER; VAR X,F:VEC); EXTERNAL;
FUNCTION PN(X1:REAL) :REAL;
VAR I: INTEGER; P: REAL;
BEGIN P:=F[N];
FOR I:=N-1 DOWNTO 0 DO P:=F[i]+ (X1-X[i])*P;
FOR I:=0 TO J-1 DO P:=P/(L[i]-X1);
PN:=P
END?
PROCEDURE SECANT(VAR X0,X,E,E1:REAL; FUNCTION F:REAL); EXTERNAL;
BEGIN
REPEAT WRITE('N,L0,L9,E,E1?'); READLN(N,L0,L9,E,E1);
MATR(N,B); TAB(N,X,F); CPN(N,X,F); X0:=L0;
FOR J:=0 TO N-1 DO BEGIN X1:=L9;
SECANT(X0,X1,E,E1,PN); L[J]:=X1; WRITELN('L',J:2,'=',X1)
END
UNTIL FALSE
END.

Это сообщение отредактировал(а) volvo877 - 3.6.2009, 11:31

Ozzя

Дата 3.6.2009, 07:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 86
Регистрация: 19.7.2004

Репутация: нет
Всего: 1

Код


VAR J,N :INTEGER; L0,L9,E,E1,Х0,X1: REAL; A,B :MAT; X,F,L :VEC; // англ. X поставь
FROCEDURE DET(N:INTEGER; VAR A:MAT; VAR S:REAL); EXTERNAL; // P
END? // ; вместо ?

PROCEDURE SECANT(VAR X0,X,E,E1:REAL; FUNCTION F:REAL); EXTERNAL; // почитай, как оформлять процедурный тип

Это сообщение отредактировал(а) Ozzя - 3.6.2009, 07:32

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »