|
Вопрос # 4 645/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Напишите пожалуйста функцию, которая вывод ответы в решении систем линейных уравнений!!!
Приложение: Переключить в обычный режим-
- begin
-
- for i:=1 to n-1 do
- for j:=i+1 to n do
- begin
- a[j,i]:=-a[j,i]/a[i,i];
- for k:=i+1 to n do
- a[j,k]:=a[j,k]+a[j,i]*a[i,k];
- b[j]:=b[j]+a[j,i]*b[i]
- end;
- x[n]:=b[n]/a[n,n];
-
- for i:=n-1 downto 1 do
- begin
- h:=b[i];
- for j:=i+1 to n do h:=h-x[j]*a[i,j];
- x[i]:=h/a[i,i]
- end;
-
 |
Вопрос задал: Джон (статус: Посетитель)
Вопрос отправлен: 10 октября 2010, 16:40
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 11 октября 2010, 16:21; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 10 октября 2010, 21:03 [#1]:
Цитата (Джон):
Напишите пожалуйста функцию, которая вывод ответы в решении систем линейных уравнений!!!
Не понял вопроса.
Прежде чем запостить очередной вопрос, ПЕРЕЧИТАЙ его текст.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Джон (статус: Посетитель), 11 октября 2010, 15:46 [#2]:
Доброго времени суток, уважаемые эксперты!
Напишите пожалуйста процедуру, которая выводила бы ответы, на экран(после компиляции) , в решении систем линейных уравнений(метод гаусса)!!!Т.Е. x[n]:=b[n]/a[n,n]; вот это выводила(посчитанное уже).НУ или как там ,столбец свободных коэффициентов делится на a[i,j].Причем там в конце она должна вызываться
begin
out();
end.
Ну не знаю как еще объяснить.Заранее спасибо.!!
|
|
|
min@y™ (статус: Доктор наук), 11 октября 2010, 16:21 [#3]:
Так, что ли?
for Index:= 1 to n do
WriteLn('x[', i, '] = ', x[i]);
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
