|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.03.2008, 15:41 | #1 |
Пользователь
Регистрация: 17.10.2007
Сообщений: 15
|
Сравнение 2-ух квадратных матриц размер 3*3
Вот код но процедура сравнения не работает, Почему???Зарание спасибо
program nom22; type mas=array[1..3,1..3] of integer; var a,b:mas; procedure vvod(x:mas); var i,j:integer; begin for i:=1 to 3 do for j:=1 to 3 do begin write(i,'.',j,'='); readln(x[i,j]); end; end; procedure sravnenie(q,y:mas); var i,j:integer; bul:boolean; begin bul:=true; for i:=1 to 3 do for j:=1 to 3 do begin if q[i,j]<>y[i,j] then bul:=False; end; if bul then writeln(' Rowni') else writeln('ne row') end; begin writeln('vvod A'); vvod(a); writeln('vvod B'); vvod(b); sravnenie(a,b); readln; end. |
23.03.2008, 16:10 | #2 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 266
|
У меня так:
Код:
|
23.03.2008, 16:16 | #3 |
Участник клуба
Регистрация: 26.10.2007
Сообщений: 1,244
|
1. Перетащите все переменные наверх:
Код:
2. В данном примере ненужно передавать процедурам параметры. Процедура сравнения выглядит так(Я её "отремонтировал"): Код:
Переделайте её. Для проверки я тупо написал: Код:
Код:
Умом Россию не понять, пока не выпито ноль пять,
А если выпито ноль пять всё делом кажется не хитрым, Попытка глубже понимать уже попахивает литром... |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Qu 1.0 - программа для решения квадратных уравнений | DM_bite | Софт | 5 | 20.03.2010 22:37 |
Задач о квадратных корнях | Иллидан | Паскаль, Turbo Pascal, PascalABC.NET | 14 | 11.03.2008 23:51 |
Три квадратных уравнения. Найти минимальное значение среди действительных корней этих уравнений. Паскаль. | GE076 | Помощь студентам | 2 | 17.12.2007 20:41 |