Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
1

Интерполяция функции полиномом Ньютона - Запись результата в txt файл

23.12.2011, 10:33. Показов 1527. Ответов 4
Метки нет (Все метки)

нужно чтобы результат был в txt
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program inerp;
 uses crt;
 var XI,YI:array [1..4] of real;
 fx: array [1..3] of real;
 fxx:array [1..2] of real;
 i: integer;
 fxxx,rez,x: real;
 Begin
 clrscr;
 Writeln ('************************************************ *****');
 Writeln (' Интерполяция функции полиномом Ньютона ');
 Writeln ('************************************************ *****');
 writeln ('Заданные значения узлов:');
 Writeln ('№ | x | y');
 writeln ('------------');
 XI[1]:=3; YI[1]:=4.4;
 XI[2]:=4; YI[2]:=2.9;
 XI[3]:=5; YI[3]:=3.1;
 XI[4]:=6; YI[4]:=2.2;
 for i:=1 to 4 do
 writeln (i-1,' | ', XI[i],' | ', YI[i]);
 writeln ('Разделенная разность первого порядка');
 writeln ('------------------------------------');
 for i:=1 to 3 do begin
 fx[i]:=(YI[i+1]-YI[i])/(Xi[i+1]-xi[i]);
 writeln (fx[i]:4:2); end;
 writeln ('Разделенная разность второго порядка');
 writeln ('------------------------------------');
 for i:=1 to 2 do begin
 fxx[i]:=(fx[i+1]-fx[i])/(XI[i+2]-XI[i]);
 writeln (fxx[i]:4:2); end;
 fxxx:=(fxx[2]-fxx[1])/(xi[4]-xi[1]);
 Writeln ('Разделенная разность третьего порядка');
 writeln ('-------------------------------------');
 writeln (fxxx:4:2);
 writeln ('Введите значение интерполируемой переменной Х:');
 writeln ('-------------------');
 readln (x);
 rez:=yi[1]+fx[1]*(x-xi[1])+fxx[1]*(x-xi[1])*(x-xi[2])+ fxxx*(x-xi[1])*(x-xi[2])*(x-xi[3]);
 writeln ('Значение интерполируемой переменной = ', rez:4:2);
 writeln ('------------------------------------------------');
 End.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.12.2011, 10:33
Ответы с готовыми решениями:

Интерполяция функции полиномом Ньютона
program inerp; uses crt; var XI,YI:array of real; fx: array of real; fxx:array of real; i:...

Интерполяция функции y(x) полиномом Ньютона 3-го порядка N3(x)
N3(x)=a0 + a1*(x-x0) + a2*(x-x0)(x-x1) + a3*(x-x0)(x-x1)(x-x2) Ребят с математикой не дружу как...

Интерполяция полиномом Ньютона
Написал программу для интерполяции полиномом Ньютона, но она хорошо работает только для степенных...

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

4
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
23.12.2011, 10:43 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

для случая, если на экране только запрос х, а остальное - в txt
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
 var XI,YI:array [1..4] of real;
 fx: array [1..3] of real;
 fxx:array [1..2] of real;
 i: integer;
 fxxx,rez,x: real;
 f: text;
 Begin
 clrscr;
 assign(f,'out.txt');
 rewrite(f);
 Writeln (f,'************************************************ *****');
 Writeln (f,' Интерполяция функции полиномом Ньютона ');
 Writeln (f,'************************************************ *****');
 writeln (f,'Заданные значения узлов:');
 Writeln (f,'№ | x | y');
 writeln (f,'------------');
 XI[1]:=3; YI[1]:=4.4;
 XI[2]:=4; YI[2]:=2.9;
 XI[3]:=5; YI[3]:=3.1;
 XI[4]:=6; YI[4]:=2.2;
 for i:=1 to 4 do
 writeln (f,i-1,' | ', XI[i],' | ', YI[i]);
 writeln (f,'Разделенная разность первого порядка');
 writeln (f,'------------------------------------');
 for i:=1 to 3 do begin
 fx[i]:=(YI[i+1]-YI[i])/(Xi[i+1]-xi[i]);
 writeln (f,fx[i]:4:2); end;
 writeln (f,'Разделенная разность второго порядка');
 writeln (f,'------------------------------------');
 for i:=1 to 2 do begin
 fxx[i]:=(fx[i+1]-fx[i])/(XI[i+2]-XI[i]);
 writeln (f,fxx[i]:4:2); end;
 fxxx:=(fxx[2]-fxx[1])/(xi[4]-xi[1]);
 Writeln (f,'Разделенная разность третьего порядка');
 writeln (f,'-------------------------------------');
 writeln (f,fxxx:4:2);
 writeln (f,'Значение интерполируемой переменной Х:');
 writeln ('Введите значение интерполируемой переменной Х:');
 writeln (f,'-------------------');
 writeln ('-------------------');
 readln (x);
 rez:=yi[1]+fx[1]*(x-xi[1])+fxx[1]*(x-xi[1])*(x-xi[2])+ fxxx*(x-xi[1])*(x-xi[2])*(x-xi[3]);
 writeln (f,'Значение интерполируемой переменной = ', rez:4:2);
 writeln (f,'------------------------------------------------');
 close(f);
 End.
если все надо и на экран и в txt, просто продублируй строки, начинающиеся с writeln без указания переменной f
1
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
23.12.2011, 10:50  [ТС] 3
я так и не понял(результат должен был в формате txt. сохранится) его нет(
0
Тимуровец
444 / 284 / 50
Регистрация: 10.09.2009
Сообщений: 963
23.12.2011, 10:58 4
Цитата Сообщение от NiFROM Посмотреть сообщение
я так и не понял(результат должен был в формате txt. сохранится) его нет(
Плохо смотрите, ищите файл out.txt, вот только куда он записался я сразу и не скажу. Там у вас путь в явном виде не задан.
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
23.12.2011, 12:40 5
NiFROM, это для случая, когда файл out.txt в той же папке, что и программа, создан...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2011, 12:40

Интерполяция полиномом ньютона
Здравствуйте! Помогите написать подпрограммку на маткад по интерполяции полиномом ньютона! ...

Интерполяция полиномом Ньютона (программа)
ПОМОГИТЕ НАПИСАТЬ ПРОГРАМУ ИНТЕРПОЛЯЦИИ ПОЛИНОМОМ НЮТОНА я НАШЕЛ ПОЛИНОМАМИ ЛАГРАНЖА ПОМОГИТЕ...

Запись результата программы в файл txt
Всем Добрый вечер.Задание заключается в том что нужно записать имена,предметы и список оценок в...

tasm. запись результата в .txt файл
Я совсем новичок в assembler'e. Имеется следующая задача: "вычислить выражение a*b/c-d и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.