|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.05.2018, 19:57 | #1 |
Новичок
Джуниор
Регистрация: 25.05.2018
Сообщений: 2
|
На языке программирования pascal abc написать программу для получения определителя матрицы.
На языке программирования pascal abc написать программу для получения определителя матрицы. Розмер матрицы та коэффициенты задает пользователь. Вычисления выполняются методом Гауса. Помогите написать
|
25.05.2018, 20:10 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,709
|
Таки в чем трудности? Какие ошибки выдал компилятор?
|
25.05.2018, 20:38 | #3 |
Новичок
Джуниор
Регистрация: 25.05.2018
Сообщений: 2
|
вот программа но она не верно считает
procedure n (a,b,u:real;var c:real);
begin c:=c-(b/a)*u; end; var a:array[1..20,1..20]of real; d,t:real; r,i,j,k,s,q:integer; BEGIN writeln('Введіть розмірність матриці'); readln(r); d:=1; for j:=1 to r do begin for i:=1 to r do begin writeln('Ведіть a',i,j); readln(a[i,j]); end; end; for i:=1 to r do begin for j:=1 to r do begin write(a[i,j]:5:0); if j=r then writeln; end; end; if r>1 then begin for i:=1 to r-1 do begin if a[i,i]=0 then begin for s:=i+1 to r do if a[s,i]<>0 then begin for k:=1 to r do begin t:=a[s,k]; a[s,k]:=a[i,k]; a[i,k]:=t; end; break; end else d:=0; end; for j:=i+1 to r do for q:=i+1 to r do n(a[i,i],a[q,i],a[i,j],a[q,j]) end; for i:=1 to r do d:=a[i,i]*d; end else d:=a[1,1]; writeln(d); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построить алгоритм в виде блок-схем и написать соответствующую программу на языке Pascal / Pascal ABC | IgorMyakota | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 06.03.2014 07:32 |
Написать программу на языке программирования Си | Student8999 | Помощь студентам | 1 | 25.12.2012 15:32 |
Написать программу на языке программирования Delphi для вычисления значения функции | Chemist_8 | Помощь студентам | 3 | 12.12.2012 17:24 |
Переделать программу для подсчёта определителя матрицы | Dark Illusion | Общие вопросы Delphi | 1 | 08.06.2012 12:55 |
написать программу на языке программирования C#, используя методы | БыстрыйАрт | Помощь студентам | 0 | 22.12.2011 21:20 |