IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Типизированные файлы, матрица
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Мужской
Реальное имя: leahov

Репутация: -  0  +


Ещё одна задача
Пусть матрица A целых чисел размером 10 на 10 записана по строкам в файле. Найдите все совпадающие между собой строки и столбцы и выведите их номера.

uses crt;
var a: array[1..10,1..10] of Integer; {Матрица}
x,y: Integer;

procedure Iskat;
var Flag: Boolean;
begin
for x:=1 to 10 do
begin
Flag:=True;
for y:=1 to 10 do if a[x,y]<>a[y,x] then Flag:=False;
if Flag then WriteLn(x);
end;
end;

begin
Clrscr;
TextAttr:=7;
Randomize;
for x:=1 to 10 do for y:=1 to 10 do a[x,y]:=Random(2); {Заполняем массив}
Iskat;
for x:=1 to 10 do
begin
for y:=1 to 10 do Write(a[x,y]:5,' '); {Столбец(y) - строка(x)}
WriteLn;
end;
end.


Она показывает матрицу, но не выводит результат совпадающие между собой строки и столбцы, как енто сделать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
leahov   Типизированные файлы   3.06.2006 16:17
leahov   похоже что всё таки это не из этой оперы   3.06.2006 16:30
RaV   А где у тебя файл? И ещё совподать должны строки …   3.06.2006 16:33
volvo   leahov, а ты внимательно смотрел на свою процедуру…   3.06.2006 16:35
leahov   оп, звиняйте, я не весь код влил это вообща код и…   3.06.2006 16:45
RaV   Я думаю, что должна быть записана в файле.   3.06.2006 16:49
leahov   Ребят, в общем если можете помочь решить два задан…   3.06.2006 17:01
RaV   Ты их реши,а если не будет что-то получаться задаш…   3.06.2006 17:17
leahov   у меня просто срок сдачи в понедельник, дома интер…   3.06.2006 17:25
Bokul   Вот. Вроде все работает. Считывания сможешь сам о…   3.06.2006 23:53
leahov   Bokul спасибо. вроде довел до рабочего состояния   5.06.2006 13:23
leahov   Уважаемые знатоки Паскаля Так и не смог написать ч…   5.06.2006 15:17
Bokul   Вот вроде сделал... :) Алгоритм: сначала проход…   6.06.2006 7:27
leahov   Bokul спасибо добрый человек!   6.06.2006 11:05
volvo   Нужен еще вариант? uses crt; type Tst=Array[1..2…   6.06.2006 11:53
Malice   Ну раз пошла такая пьянка, вот тебе вариант для ко…   6.06.2006 13:43


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 28.03.2024 21:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name