Интерполяция

01.06.2009, 14:25. **Показов** 3151. **Ответов** 3

Студворк — интернет-сервис помощи студентам

писал прогу (если точно - интерполяционный метод вычисления собственных значений матрицы на паскале)), не компилит. Может у кого есть??? надо очень!!!!!!!

02.06.2009, 12:07

Добавлено через 17 минут 2 секунды
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.

Добавлено через 1 минуту 32 секунды
плиз помогите исправить ошибку а то через пару часов уже зачет!!!!

@Messenger of G. · 02.06.2009, 13:50

Сообщение от 4esterr

писал прогу (если точно - интерполяционный метод вычисления собственных значений матрицы на паскале)), не компилит. Может у кого есть??? надо очень!!!!!!!

Можно сказать, почему не компилирует. Первая ошибка (TP 7.0) в строке var: имя перененной "Х0" хером написано, в то время как «Идентификаторы могут иметь любую длину, но только первые 63 символа являются значимыми для компилятора.Первый символ идентификатора должен быть буквой.Последующие символы, должны быть латинскими буквами, цифрами или знаком подчеркивания (не пробелом!).»
Исправив на "X0" иксом, возникает ошибка в строке после EXTERNAL. Справка говорит, что неплохо было бы добавить $L <имя подгружаемого файла>, дабы знать, откуда грузить метод.

03.06.2009, 21:05

ПАСИП!!!!!!!!!

НО, ЕСЛИ МОЖНО, ТЕКСТ ПРОГИ ПРАВИЛЬНЫЙ!!!!!НЕЗАБУДУ!)
А ОШИБКУ ВЫДАЕТ В ЭТОЙ СТРОКЕ
PROCEDURE SECANT(VAR X0,X,E,E1:REAL; FUNCTION F:REAL); EXTERNAL;
ПИШЕТ НА ФУНКЦИЮ ЧТО ТО....=(

Добавлено через 21 час 0 минут 32 секунды

Сообщение от Messenger of G.

Можно сказать, почему не компилирует. Первая ошибка (TP 7.0) в строке var: имя перененной "Х0" хером написано, в то время как «Идентификаторы могут иметь любую длину, но только первые 63 символа являются значимыми для компилятора.Первый символ идентификатора должен быть буквой.Последующие символы, должны быть латинскими буквами, цифрами или знаком подчеркивания (не пробелом!).»
Исправив на "X0" иксом, возникает ошибка в строке после EXTERNAL. Справка говорит, что неплохо было бы добавить $L <имя подгружаемого файла>, дабы знать, откуда грузить метод.

ПАСИП!!!!!!!!!

НО, ЕСЛИ МОЖНО, ТЕКСТ ПРОГИ ПРАВИЛЬНЫЙ!!!!!НЕЗАБУДУ!)
А ОШИБКУ ВЫДАЕТ В ЭТОЙ СТРОКЕ
PROCEDURE SECANT(VAR X0,X,E,E1:REAL; FUNCTION F:REAL); EXTERNAL;
ПИШЕТ НА ФУНКЦИЮ ЧТО ТО....
завтра сдавать .....((((

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

Sanchess
	02.06.2009, 12:07
	Добавлено через 17 минут 2 секунды 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. Добавлено через 1 минуту 32 секунды плиз помогите исправить ошибку а то через пару часов уже зачет!!!!