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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 08.03.2016, 16:33   #1
АнтонКурышов
Пользователь
 
Регистрация: 22.12.2015
Сообщений: 17
По умолчанию Найдите ошибку в программе

Программа считает определитель матрицы, но делает это не правильно, найдите пожалуйста ошибку в программе...
Код:
Program Gaus;
Uses Crt;
Type mat=array[1..20,1..20] of real;
Var a:mat; n:integer; det:real;
Procedure wwod(n:integer; Var a:mat);
Var i,j:integer;
Begin
Writeln('Введите элементы матрицы(по строкам)');
For i:=1 to n do
For j:=1 to n do
Read(a[i,j]);
End;
Function Gauss(n:integer; a:mat):Real;
Var i,j,k:integer;
c,p,m,s:Real;
Begin 
p:=1;
For k:=1 to n-1 do Begin
s:=a[k,k];
j:=k;
For i:=1 to n do 
Begin
m:=a[i,k];
if abs(m)>abs(s) then 
Begin 
s:=m; j:=i; 
end;
end;
if j<>k then 
Begin 
p:=p-1;
For i:=k to n do 
Begin
m:=a[k,i]; 
a[k,i]:=a[j,i]; 
a[j,i]:=m;
End;
End;
For i:=k+1 to n do Begin
c:=a[i,k]/a[k,k];
For j:=k+1 to n do
a[i,j]:=a[i,j]-c*a[k,j];
end;
p:=p*s; end;
Gauss:=p*a[n,n];
end;
Begin(*Основная программа*)
Clrscr;
Write('Введите размер матрицы n=');
Readln(n);
Wwod(n,a); det:=Gauss(n,a);
Writeln('Определитель равен',det:8:4);
End.

Последний раз редактировалось Аватар; 08.03.2016 в 18:22.
АнтонКурышов вне форума Ответить с цитированием
Старый 08.03.2016, 16:44   #2
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Для начала, посмотри сюда.
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найдите ошибку else If () { } Решетова Алена JavaScript, Ajax 5 05.06.2013 21:31
Найдите ошибку в программе Proger16 Помощь студентам 11 31.03.2013 16:34
найдите ошибку airesjke Visual C++ 1 31.01.2012 02:15
Найдите ошибку dyusha2006 Помощь студентам 7 23.11.2010 16:48
НАЙДИТЕ ОШИБКУ В ПРОГРАММЕ svetah Помощь студентам 8 03.12.2008 15:19