![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 13.12.2011
Сообщений: 16
|
![]()
для заданной матрицы размером 8х8 найти k, что k-я строка матрицы совпадает с k-ым столбцом( оформить в виде процедуры)
program mas; uses crt; const n=8; type matr=array[1..n,1..n] of integer; var a: matr; i,j : integer; procedure sorting(const A:matr;var k:integer); var i,j:integer; begin clrscr; k:=i; for j:=1 to n do begin if A[i,j]<>A[j,i] then begin k:=0; break; end; if k>0 then break; end; end; begin clrscr; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10)-2; write(a[i,j]:4); writeln; end; writeln; end; end. |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 13.12.2011
Сообщений: 16
|
![]()
Helppppppppppp
|
![]() |
![]() |
![]() |
#3 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,592
|
![]()
Да, хороший способ задачи решать: http://programmersforum.ru/showthread.php?t=178433
E-Mail: arigato.freelance@gmail.com
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 13.12.2011
Сообщений: 16
|
![]()
прога выдает неизвестное имя типа Tmatrix
|
![]() |
![]() |
![]() |
#5 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,592
|
![]()
Я в вашем коде вообще Tmatrix не вижу.
E-Mail: arigato.freelance@gmail.com
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 13.12.2011
Сообщений: 16
|
![]()
ну как вы мне дали там был Тmatrix я исправил его на матр
но мне программа не считает матрицу 8х8 она мне считает какбудто у меня только 1 столбец и я не могу не чего проверить в ней ))) |
![]() |
![]() |
![]() |
#7 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,592
|
![]()
Ну я же не виноват, что вы даже переписывать не умеете. Не задумывались над вопросом: а оно вам вообще надо, учиться в универе (или где вы учитесь)?
E-Mail: arigato.freelance@gmail.com
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 26.07.2011
Сообщений: 376
|
![]()
Arigato ну так прям строго не надо.( оно того не стоит, нервные клетки надо беречь )
Во-первых , даже такое надо брать в теги (code)(/code), просто потому что не читабельено. Код:
Код:
Исправил.
Люблю на ты.Я человек простой
![]() Последний раз редактировалось Leshii; 13.12.2011 в 22:33. |
![]() |
![]() |
![]() |
#9 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,592
|
![]()
Вывод результата внутри процедуры неправильно делать, его надо делать в основной программе.
E-Mail: arigato.freelance@gmail.com
|
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 13.12.2011
Сообщений: 16
|
![]()
народ извините ))
ну просто мне очень фигово обьясняют предмет там презинтацию скинут и все поэтому мои познанию в паскале такие какие есть восновном все сам так что так ))) еще раз извените ) |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Исправте ошибку | Drago56 | Помощь студентам | 8 | 19.12.2010 11:52 |
исправте ошибку! | s.talke.r | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 18.12.2010 16:48 |
Исправте ошибку | Drago56 | Общие вопросы C/C++ | 7 | 15.12.2010 16:09 |
Исправте ошибку | dimon305 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 1 | 19.05.2010 19:30 |
Исправте ошибку | dimon305 | Помощь студентам | 0 | 18.05.2010 21:23 |