|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.10.2013, 16:00 | #1 |
Новичок
Джуниор
Регистрация: 24.10.2013
Сообщений: 4
|
Дана целочисленная матрица m*n. Найти количество ее строк, все элементы которых различны.
дана целочисленная матрица m*n. Найти количество ее строк, все элементы которых различны. числа вводятся с клавиатуры. если можно цикл FOR
помогите пожалуйста решить! завтра сдавать лабу Последний раз редактировалось Serge_Bliznykov; 24.10.2013 в 16:21. |
24.10.2013, 16:20 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Написать код ввода матрицы конечно же не можешь?
I'm learning to live...
|
24.10.2013, 16:36 | #3 |
Новичок
Джуниор
Регистрация: 24.10.2013
Сообщений: 4
|
|
24.10.2013, 16:58 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
вы нам тут свой код напишите, будет повод для разговора/помощи...
|
24.10.2013, 17:04 | #5 |
Новичок
Джуниор
Регистрация: 24.10.2013
Сообщений: 4
|
Вот код
uses crt;
var a:array[1..10,1..10] of integer; i,j,m,n,x,s:integer; begin clrscr; randomize; write('Количество строк: '); read(m); write('Количество столбцов: '); read(n); for i:=1 to m do begin writeln('Строка ',i,' : '); for j:=1 to n do begin write('Столбец ',j,' : '); readln(a[i,j]); end; writeln; end; {for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(5); write(a[i,j]:5); end; writeln; end; writeln;} for i:=1 to m do begin s:=0; {if a[i,j]=a[i,j+1] then s:=0;} for j:=1 to n do begin if a[i,j]<>a[i,j+1] then s:=s+1 else s:=0; end; writeln; end; write('Количество строк: ',s); readkey; end. |
24.10.2013, 17:14 | #6 |
Форумчанин
Регистрация: 23.11.2010
Сообщений: 530
|
а если вот так...
Код:
Последний раз редактировалось unbanned; 24.10.2013 в 17:17. |
24.10.2013, 17:20 | #7 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Код:
Код:
с собой (j2=j1) сравнивать не надо поэтому достаточно сравнить с последующими (j2>j1) Код:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 24.10.2013 в 17:27. |
24.10.2013, 17:24 | #8 |
Новичок
Джуниор
Регистрация: 24.10.2013
Сообщений: 4
|
а можно как - нибудь без true и false? мы еще не изучали..
|
24.10.2013, 17:29 | #9 |
Форумчанин
Регистрация: 23.11.2010
Сообщений: 530
|
ну тогда просто берешь переменную целочисленную...
Код:
пишешь Код:
пишешь Код:
Код:
Последний раз редактировалось unbanned; 24.10.2013 в 17:31. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
подпрограмма: Дана матрица. Подсчитать количество строк, в которых элемент побочной диагонали четный | darkshade | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 18.04.2013 23:05 |
Дана n значимая квадратная матрица, найти строку в которой все элементы четные -на дельфи Спасибо заранее!!! | Altynai-93 | Помощь студентам | 1 | 12.12.2012 14:27 |
Дана действительная матрица размером n x m, все элементы которой различны. В каждой строке выбирается эл | bayker | Помощь студентам | 5 | 30.05.2010 21:32 |
Найти кол-во её стобцов,все элементы которых различны. Delphi. | Flashcherry | Помощь студентам | 1 | 21.03.2009 00:46 |
Дана прямоугольная матрица. Определить количество столбцов, произведение элементов которых меньше 5 | Sweeney | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.12.2008 01:41 |