Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.04.2014, 22:15   #11
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

E
Код:
For i:=1 to n do
  Begin
    Sum:=0;
    For k:=1 to n do
       Sum:=sum+a[i,k];
    B[i]:=sum;
  End;
Не проверял, проверьте сами.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 15.04.2014, 22:22   #12
now2
Форумчанин
 
Регистрация: 12.03.2014
Сообщений: 217
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
E
Код:
For i:=1 to n do
  Begin
    Sum:=0;
    For k:=1 to n do
       Sum:=sum+a[i,k];
    B[i]:=sum;
  End;
Не проверял, проверьте сами.
вот так будет ? посмотрите пожалуйста
program labI4;
Uses crt;
Label m1;
Var a,a5: array [1..25,1..25] of real;
b,b5: array [1..25] of real;
k,i,m,n,st:integer;
t,x,x1,x2,x3,a1,b1,c1:real;
BEGIN
clrscr;
write('Vvedite razmernost');
n:=12;
For i:=1 to n do
For j:=1 to n do
A[i,j]:=-1/(i+j);
write('a[',i,',',k,']=');a[i,k]:=-1/(i+k);a5[i,k]:=a[i,k];
end;
writeln('Vvedite svobodnye chleny B');
For i:=1 to n do
Begin
Sum:=0;
For k:=1 to n do
Sum:=sum+a[i,k];
B[i]:=sum;
end;
writeln('Nachalnaya matriza');
For i:=1 to n do begin
For k:=1 to n do begin
write('a[',i,',',k,']=',a[i,k]:5:2,'':4);
end;
writeln('b[',i,']=',b[i]:5:2,'':4);
end;
readln;
For k:=1 to n do begin
st:=k;
For i:=k to n do
If a[st,k]<=a[i,k] Then st:=i;
For i:=1 to n do begin
t:=a[k,i];
a[k,i]:=a[st,i];
a[st,i]:=t;
end;
t:=b[k];
b[k]:=b[st];
b[st]:=t;
i:=1;
while i<=n do
//For i:=1 to n do
begin
If i=k Then
i:=i+1;
If i=n+1 Then
goto m1;
t:=a[i,k]/a[k,k];
For m:=1 to n do
a[i,m]:=a[i,m]-t*a[k,m];
b[i]:=b[i]-t*b[k];
i:=i+1;
end;
m1:
end;
writeln(' Konechnaya matriza');
For i:=1 to n do begin
For k:=1 to n do begin
write('a[',i,k,']=',a[i,k]:5:2,'':4);
end;
writeln('b[',i,']=',b[i]:5:2,'':4);
end;
readln;
For k:=1 to n do begin
x:=b[k]/a[k,k];
writeln('x(',k,')=',x:5:2);
a[1,k]:=x;
end;
readkey
END.
now2 вне форума Ответить с цитированием
Старый 15.04.2014, 22:24   #13
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Вроде да. Забейте в паскальабц и проверьте заполнение b.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 15.04.2014, 22:25   #14
now2
Форумчанин
 
Регистрация: 12.03.2014
Сообщений: 217
По умолчанию

указывает ошибку labaa4444.pas(16) : Ожидалось '.'
now2 вне форума Ответить с цитированием
Старый 15.04.2014, 22:28   #15
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Цитата:

For i:=1 to n do
For j:=1 to n do begin // begin забыли
A[i,j]:=-1/(i+j);
Я там begin забыл
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 15.04.2014, 22:34   #16
now2
Форумчанин
 
Регистрация: 12.03.2014
Сообщений: 217
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Я там begin забыл
когда нажимаю шифт+9 вот что выдает ? это как понимать
Изображения
Тип файла: jpg Безымянный4.jpg (10.0 Кб, 147 просмотров)
now2 вне форума Ответить с цитированием
Старый 15.04.2014, 22:36   #17
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Подождите минут 5-7 до компа доберусь.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 15.04.2014, 22:37   #18
now2
Форумчанин
 
Регистрация: 12.03.2014
Сообщений: 217
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Подождите минут 5-7 до компа доберусь.
хорошо) спасибо Вам большое за помощь
now2 вне форума Ответить с цитированием
Старый 15.04.2014, 22:48   #19
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

Проверил заполнение b. Заполняется верно.
Остальное, наверное
Но, раз вы сказали что на тестовых данных верно, то и здесь должно быть норм.
Код:
program labI4;
Uses crt;
Label m1;
Var a,a5: array [1..25,1..25] of real;
b,b5: array [1..25] of real;
k,i,m,n,st:integer;
sum,t,x,x1,x2,x3,a1,b1,c1:real;
BEGIN
clrscr;
//write('Vvedite razmernost');
n:=12;
For i:=1 to n do
For k:=1 to n do begin
//A[i,j]:=-1/(i+j); не нужно!
write('a[',i,',',k,']=');a[i,k]:=-1/(i+k);a5[i,k]:=a[i,k];
end;
//writeln('Vvedite svobodnye chleny B');
For i:=1 to n do
Begin
Sum:=0;
For k:=1 to n do
Sum:=sum+a[i,k];
B[i]:=sum;
end;
writeln;
writeln('Nachalnaya matriza');
For i:=1 to n do begin
For k:=1 to n do begin
write('a[',i,',',k,']=',a[i,k]:4:2,' ');
end;
writeln('b[',i,']=',b[i]:4:2,' ');
end;
readln;
For k:=1 to n do begin
st:=k;
For i:=k to n do
If a[st,k]<=a[i,k] Then st:=i;
For i:=1 to n do begin
t:=a[k,i];
a[k,i]:=a[st,i];
a[st,i]:=t;
end;
t:=b[k];
b[k]:=b[st];
b[st]:=t;
i:=1;
while i<=n do
//For i:=1 to n do
begin
If i=k Then
i:=i+1;
If i=n+1 Then
goto m1;
t:=a[i,k]/a[k,k];
For m:=1 to n do
a[i,m]:=a[i,m]-t*a[k,m];
b[i]:=b[i]-t*b[k];
i:=i+1;
end;
m1:
end;
writeln;
writeln(' Konechnaya matriza');
For i:=1 to n do begin
For k:=1 to n do begin
write('a[',i,k,']=',a[i,k]:5:2,'':2);
end;
writeln('b[',i,']=',b[i]:5:2,'':2);
end;
readln;
For k:=1 to n do begin
x:=b[k]/a[k,k];
writeln('x(',k,')=',x:5:2);
a[1,k]:=x;
end;
readkey
END.
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 15.04.2014, 22:59   #20
now2
Форумчанин
 
Регистрация: 12.03.2014
Сообщений: 217
По умолчанию

Цитата:
Сообщение от ZX Spectrum-128 Посмотреть сообщение
Проверил заполнение b. Заполняется верно.
Остальное, наверное
Но, раз вы сказали что на тестовых данных верно, то и здесь должно быть норм.
Код:
program labI4;
Uses crt;
Label m1;
Var a,a5: array [1..25,1..25] of real;
b,b5: array [1..25] of real;
k,i,m,n,st:integer;
sum,t,x,x1,x2,x3,a1,b1,c1:real;
BEGIN
clrscr;
//write('Vvedite razmernost');
n:=12;
For i:=1 to n do
For k:=1 to n do begin
//A[i,j]:=-1/(i+j); не нужно!
write('a[',i,',',k,']=');a[i,k]:=-1/(i+k);a5[i,k]:=a[i,k];
end;
//writeln('Vvedite svobodnye chleny B');
For i:=1 to n do
Begin
Sum:=0;
For k:=1 to n do
Sum:=sum+a[i,k];
B[i]:=sum;
end;
writeln;
writeln('Nachalnaya matriza');
For i:=1 to n do begin
For k:=1 to n do begin
write('a[',i,',',k,']=',a[i,k]:4:2,' ');
end;
writeln('b[',i,']=',b[i]:4:2,' ');
end;
readln;
For k:=1 to n do begin
st:=k;
For i:=k to n do
If a[st,k]<=a[i,k] Then st:=i;
For i:=1 to n do begin
t:=a[k,i];
a[k,i]:=a[st,i];
a[st,i]:=t;
end;
t:=b[k];
b[k]:=b[st];
b[st]:=t;
i:=1;
while i<=n do
//For i:=1 to n do
begin
If i=k Then
i:=i+1;
If i=n+1 Then
goto m1;
t:=a[i,k]/a[k,k];
For m:=1 to n do
a[i,m]:=a[i,m]-t*a[k,m];
b[i]:=b[i]-t*b[k];
i:=i+1;
end;
m1:
end;
writeln;
writeln(' Konechnaya matriza');
For i:=1 to n do begin
For k:=1 to n do begin
write('a[',i,k,']=',a[i,k]:5:2,'':2);
end;
writeln('b[',i,']=',b[i]:5:2,'':2);
end;
readln;
For k:=1 to n do begin
x:=b[k]/a[k,k];
writeln('x(',k,')=',x:5:2);
a[1,k]:=x;
end;
readkey
END.
елы -палы это что ))))
где ж там ответ то ))???
now2 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
С++ Программа для решения СЛАУ методом Жордана-Гаусса Reminaru Помощь студентам 6 30.05.2013 09:02
Решение системы линейных уравнений методом Гаусса. maliyusha Помощь студентам 16 18.02.2013 15:44
решить методом Гаусса — Жордана moren Помощь студентам 0 11.12.2011 14:47
Решение системы линейных уравнений методом Гаусса wizion Фриланс 4 20.11.2011 22:05
Pascal. Решение СЛАУ методом Гаусса-Жордана 2easy4me Помощь студентам 5 23.03.2011 18:56