Интерполяция по Ньютону

@Domovenok_ · Регистрация: 14.02.2018

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

Здравствуйте, записал интерполяцию по Ньютону, но не понимаю в чем проблема и почему не работает данная программа.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure inter1(B1,H1:Data1;B,Bconst:Real;Num1:integer);
var j:integer;
e:Real;
begin
e:=0.001;
if B>B1[Num1] then H:=(B-Bconst)/0.000001256
else
for j:=2 to Num1 do 
if (abs((B-B1[j])/B1[j]))<e then H:=H1[j]
else
if (B>B1[j-1]) and (B<B1[j]) then
H:=H1[j-1]+(B-B1[j-1])*(H1[j]-H1[j-1])/(B1[j]-B1[j-1]);
if B<=B1[1] then H:=0.0;
end;
Data1=array[1..43] of real;
end.

@JuriiMW · 08.01.2020, 06:51

А где сама программа то?
Процедура есть.
Объявления типа дынных Data1 после процедуры, которая её должна использовать…
Но объявление без обязательных служебных слов.
Закрывающая операторная скобка основной программы есть.
А где открывающая?
И где вызов процедуры?
С чего программа должна решить, что и как ей нужно использовать вашу процедуру?

@Domovenok_ · 08.01.2020, 12:28 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
type Data1=array[1..43] of real;
var B,B1,H,H1:real; 
Num1,j:integer;
a:Data1;
procedure inter1(B1,H1:Data1;B,Bconst:Real;Num1:integer);
var j:integer;
e:Real;
begin
e:=0.001;
if B>B1[Num1] then H:=(B-Bconst)/0.000001256
else
for j:=2 to Num1 do 
if (abs((B-B1[j])/B1[j]))<e then H:=H1[j]
else
if (B>B1[j-1]) and (B<B1[j]) then
H:=H1[j-1]+(B-B1[j-1])*(H1[j]-H1[j-1])/(B1[j]-B1[j-1]);
if B<=B1[1] then H:=0.0;
end;
begin
readln(H1);
readln(B1);
readln(B);
writeln('Введенный массив',a);
end.

Массив по нулям(

@Puporev · 08.01.2020, 13:18

Сообщение от Domovenok_

writeln('Введенный массив',a);

А где Вы ввели массив А?

@Domovenok_ · 08.01.2020, 14:43 **[ТС]**

Я его хочу вывести, а не вввести, ошибся

@JuriiMW · 08.01.2020, 14:51

Вам нужно ввести два массива, чтобы передать их в процедуру.

@Puporev · 08.01.2020, 17:13

Сообщение от Domovenok_

Я его хочу вывести, а не вввести

Так если Вы его не заполните (не введете) то и на выводе будут ноли.

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка 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 и т. д. Сборка примера Скачайте. . .

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	08.01.2020, 06:51
	А где сама программа то? Процедура есть. Объявления типа дынных Data1 после процедуры, которая её должна использовать… Но объявление без обязательных служебных слов. Закрывающая операторная скобка основной программы есть. А где открывающая? И где вызов процедуры? С чего программа должна решить, что и как ей нужно использовать вашу процедуру? 0

@Domovenok_ 0 / 0 / 0 Регистрация: 14.02.2018 Сообщений: 11
	08.01.2020, 14:43 [ТС]
	Я его хочу вывести, а не вввести, ошибся 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,059
	08.01.2020, 14:51
	Вам нужно ввести два массива, чтобы передать их в процедуру. 0