![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 25.05.2018
Сообщений: 2
|
![]()
На языке программирования pascal abc написать программу для получения определителя матрицы. Розмер матрицы та коэффициенты задает пользователь. Вычисления выполняются методом Гауса. Помогите написать
|
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,726
|
![]()
Таки в чем трудности? Какие ошибки выдал компилятор?
|
![]() |
![]() |
![]() |
#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 |