Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 10.09.2016
Сообщений: 12
1

Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной

07.11.2016, 12:41. Просмотров 2426. Ответов 2
Метки нет (Все метки)

Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной. Описать с помощью функций и процедур. Ввод-вывод в текстовый файл. Не могу понять ошибку. Заранее спасибо.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
 SysUtils;
 type
 matr    =array[1..50,1..50] of integer;
Var
  i,j,n:integer;
  f:boolean;
  a:matr;
  Fin: TextFile;
procedure P(i,j,n:Integer);
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if ((i=j) and (a[i,j]<>1)) or ((i<>j) and (a[i,j]<>0)) then f:=false
    end;
   writeln
  end;
 end;
 
procedure vvodmatr(var a:matr;const namefile:string;var m,n: integer;fl1,fl2:boolean);
begin
 assign(Fin, 'File1.txt'); reset(Fin);
 readln(fin,m,n);
 for i:=1 to m do
 begin
  for j:=1 to n do
  read(fin,a[i,j]);
  readln(fin);
 end;
 if fl2 then
   close(fin);
end;
  begin
  P(n,j,i);
  f:=true;
  Append(Fin);
  if f then write('+')
  else write('-');
  CloseFile(output);
  readln
  end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.11.2016, 12:41
Ответы с готовыми решениями:

Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной.
Ребят,помогите решить задачу &quot;Дана квадратная матрица А порядка n. Проверить, является ли матрица...

Дана целая квадратная матрица n-го порядка. Определить, является ли она магическим квадратом,
Здравствуйте, помогите пожалуйста ! Условие :Дана целая квадратная матрица n-го порядка....

Дана целая квадратная матрица п-го порядка. Определить, является ли она магическим квадратом
5. Дана целая квадратная матрица п-го порядка. Определить, является ли она магическим квадратом,...

Дана целочисленная квадратная матрица порядка 5; определить является ли она магическим квадратом
Дана целочисленная квадратная матрица порядка 5; определить является ли она магическим квадратом

2
Модератор
62500 / 46689 / 32181
Регистрация: 18.05.2008
Сообщений: 112,956
07.11.2016, 14:29 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
 matr    =array[1..50,1..50] of integer;
procedure vvodmatr(var f:TextFile; var a:matr;var n: integer);
var i,j:Integer;
begin
 assign(f, 'File1.txt'); //файл  в папке с программой
 reset(f);
 readln(f,n);
 for i:=1 to n do
 for j:=1 to n do
 read(f,a[i,j]);
 closefile(f);
end;
function P(a:matr;n:Integer):boolean;
var i,j:Integer;
begin
result:=true;
for i:=1 to n do
for j:=1 to n do
if ((i=j) and (a[i,j]<>1)) or ((i<>j) and (a[i,j]<>0)) then result:=false
end;
procedure vyvodres(var f:TextFile;a:matr;n: integer);
begin
 Append(f); //дописываем в фвйл
 Writeln(f);
 if P(a,n) then Writeln(f,'Матрица единичная')
 else Writeln(f,'Матрица не единичная');
 closefile(f);
end;
 
Var n:integer;
    a:matr;
    Fin: TextFile;
begin
vvodmatr(Fin,a,n);
P(a,n);
vyvodres(Fin,a,n);
write('Press Enter');
readln
end.
1
0 / 0 / 0
Регистрация: 10.09.2016
Сообщений: 12
07.11.2016, 14:33  [ТС] 3
Большое спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.11.2016, 14:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

дана матрица порядка n. Проверьте, является ли a(pq) самым большим элементом в своем столбце и самым маленьки
дана матрица порядка n. Проверьте, является ли а самым большим элементом в своем столбце и самым...

Дана квадратная матрица A порядка M.
Дана квадратная матрица A порядка M. Найти сумму элементов каждой ее диагонали, параллельной...

Дана квадратная матрица А порядка n
Дана квадратная матрица А порядка n. Составить программу, которая находит минимальный элемент и все...

Дана квадратная матрица порядка N
Дана квадратная матрица порядка N. Составить программу, транспонирующую эту матрицу....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.