Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
5 / 3 / 2
Регистрация: 04.02.2013
Сообщений: 1,115
1

Составить алгоритм и реализовать программу для определения на ЭВМ коэффициентов a0, a1, a2 аппроксимирующей функции

06.01.2019, 20:38. Просмотров 581. Ответов 1

Помогите подредактировать код программы под вариант.
У меня задание сделать алгоритм под этот вариант (см.скрин)

У меня уже есть готовый код:
Кликните здесь для просмотра всего текста
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
48
49
50
51
52
53
uses crt;
const n=3; m=5;
var
a:array [1..m,1..n] of real;
b,x,xx,y: array [1..m] of real;
i,j,k:integer;
s:real;
begin
clrscr;
for i:=1 to m do
read(x[i]);
for i:=1 to m do
read(y[i]);
a[1,1]:=1;
for i:=1 to m do
begin
a[2,1]:=a[2,1]+sin(x[i]);
a[3,1]:=a[3,1]+(x[i]);
a[1,2]:=a[1,2]+sin(x[i]);
a[2,2]:=a[2,2]+sin(x[i])*sin(x[i]);
a[3,2]:=a[3,2]+sin(x[i])*(x[i]);
a[1,3]:=a[1,3]+(x[i]);
a[2,3]:=a[2,3]+(x[i])*sin(x[i]);
a[3,3]:=a[3,3]+sqr(x[i]);
b[1]:=b[1]+y[i];
b[2]:=b[2]+y[i]*sin(x[i]);
b[3]:=b[3]+y[i]*(x[i]);
end;
for k:=1 to n-1 do
 begin
  b[k]:=b[k]/a[k,k];
  for j:=k+1 to n do
  a[k,j]:=a[k,j]/a[k,k];
  for i:=k+1 to n do
   begin
   b[i]:=b[i]-a[i,k]*b[k];
   for j:=k+1 to n do
   a[i,j]:=a[i,j]-a[i,k]*a[k,j];
   end;
 end;
b[n]:=b[n]/a[n,n];
for k:=n-1 downto 1 do
 begin
 s:=0;
 for j:=k+1 to n do
 s:=s+a[k,j]*b[j];
 b[k]:=b[k]-s;
 end;
for i:=1 to n do
writeln('a',i,'=',b[i]:0:3);
readln;
readln;
end.


Я хотел сделать так, чтобы у меня xi и yi вводились пользователем вручную, ну и под свои функции код переделал.... но у меня получается бредятина....я не пойму в чем ошибка...
Это то что у меня получилось:
Кликните здесь для просмотра всего текста
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
48
49
50
51
52
53
54
uses crt;
const n=3; m=5;
var
a:array [1..m,1..n] of real;
b,x,xx,y: array [1..m] of real;
i,j,k:integer;
s:real;
begin
clrscr;
for i:=1 to m do
write('Введите x',i,'= ');
writeln('Введите y',i,'= ');
read(x[i]);
read(y[i]);
for i:=1 to m do
  begin
  a[1,1]:=1;
  a[2,1]:=a[2,1]+(power(e,x[i]));
  a[3,1]:=a[3,1]+ln(x[i]);
  a[1,2]:=a[1,2]+(power(e,x[i]));
  a[2,2]:=a[2,2]+(power(e,x[i]))*(power(e,x[i]));
  a[3,2]:=a[3,2]+(power(e,x[i]))*(ln(x[i]));
  a[1,3]:=a[1,3]+(ln(x[i]));
  a[2,3]:=a[2,3]+(ln(x[i]))*(power(e,x[i]));
  a[3,3]:=a[3,3]+sqr(ln(x[i]));
  b[1]:=b[1]+y[i];
  b[2]:=b[2]+y[i]*(power(e,x[i]));
  b[3]:=b[3]+y[i]*ln(x[i]);
  end;
for k:=1 to n-1 do
  begin
  b[k]:=b[k]/a[k,k];
  for j:=k+1 to n do
  a[k,j]:=a[k,j]/a[k,k];
  for i:=k+1 to n do
    begin
    b[i]:=b[i]-a[i,k]*b[k];
    for j:=k+1 to n do
    a[i,j]:=a[i,j]-a[i,k]*a[k,j];
    end;
  end;
b[n]:=b[n]/a[n,n];
for k:=n-1 downto 1 do
  begin
  s:=0;
  for j:=k+1 to n do
  s:=s+a[k,j]*b[j];
  b[k]:=b[k]-s;
  end;
for i:=1 to n do
writeln('a',i,'=',b[i]:0:3);
readln;
readln;
end.
0
Миниатюры
Составить алгоритм и реализовать программу для определения на ЭВМ коэффициентов a0, a1, a2 аппроксимирующей функции   Составить алгоритм и реализовать программу для определения на ЭВМ коэффициентов a0, a1, a2 аппроксимирующей функции  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2019, 20:38
Ответы с готовыми решениями:

Составить программу для определения коэффициентов квадратного уравнения и нахождения корней ~x1 , ~x2 (по теореме Виета)
Помогите, кто может Даны x1 , x2 - корни квадратного уравнения. Составить программу для...

Написать алгоритм, составить блок-схему и отладить программу для определения суммы
Помогите, пожалуйста решить задачу. Нужно написать алгоритм, составить блок-схему и отладить...

Составить программу для определения значения функции Y
Составить программу для определения значения функции Y. Для вычисления значения аргумента х следует...

Составить программу для определения значения функции
Составить программу для определения значения функции Y. Для вычисления значения аргумента х следует...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5579 / 3316 / 2401
Регистрация: 22.11.2013
Сообщений: 9,325
08.01.2019, 11:20 2
do оператор. Если нужно более 1 оператора, используют составной оператор begin end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2019, 11:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить программу для определения значения функции
Составить программу для определения значения функции у(x). Предусмотреть вывод сообщения о том, по...

Составить программу для определения значения функции
Составить программу для определения значения функции у(x). Предусмотреть вывод сообщения о том, по...

Составить программу для определения значения функции
Составить программу для определения значения функции у(x). Предусмотреть вывод сообщения о том, по...

Составить программу для определения значения функции
Помогите, пожалуйста, разобраться где ошибка, условие : Ветвящийся алгоритм Составить программу...

Составить программу для определения значения функции
Составить программу для определения значения функции у(x). Предусмотреть вывод сообщения о том, по...

Составить программу для определения значения функции
Составить программу для определения значения функции. Обязательно предусмотреть вывод сообщения о...


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

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

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