В начале мы создаем массив случайных элем. Потом работаем с ним. Нам нужны 2 переменные: 1 - переменная, для сохранения результата (номера). 2 - переменная флажок. Мы обходим весь массив ПО СТОЛБЦАМ. В начале обхода конкретного столбца переменной флажка присвоим 1. Сравниваем текущий элемент столбца с последующим, если они не равны то ставим флажок 0
Код: //Размерность массива const n = 3; //Сам массив var ar : array[1..n,1..n] of integer; //Переменные для работы с массивом var i,j : integer; //Переменные для поиска столбца //f - переменная флажок, которая по окончанию обхода столбца будет //показывать одинаковы ли элементы в нем //numb - переменная, в которой сохраним номер столбца с //одинаковыми значениями элементов. var f,numb : integer; begin //Создание и вывод на экран массива //Элементы генерируются случайным образом // for i:=1 to n do begin for j:=1 to n do begin ar[i,j] := random(2); write(ar[i,j]:3); end; writeln; end; //
//Вот сам алгоритм поиска // //Записываем в numb значение -1 //Если в процессе работы значение не изменится (-1) //То означает, что в массиве нет одинаковых столбцов numb := -1;
//Идем по массиву // for j:=1 to n do //Момент начала конкретного j столбца begin //записываем в f значение 1 //Предполагаем, что столбец одинаков //Если в конце обхода конкретного столбца значение f=1 //Значит, что данный столбец одинаков f := 1;
//Идем по столбцу // n-1 //(т.к сравниваем текущий со следующим) for i:=1 to n-1 do begin //Сравниваем текущий элемент столбца, со следующим if (ar[i,j] <> ar[i+1,j]) then //Если они не равны, то изменяем значение флажка f на 0 f := 0; end; //Конец обхода конкретного столбца
//Если столбец одинаков if (f = 1) then //то записываем его номер в numb numb := j; end; //
//Вывод результата if (numb <> -1) then writeln('Столбец №: ',numb) else writeln('Нет ни одного одинакового столбца'); end.
Никто не знает точно, где и когда возникла письменность. мы можем только предполагать, как она развивалась с древнейших времен. человек начал рисовать картинки, повествующие об охоте и войне, о жизни племен. картинки использовались также для передачи сообщений. изображение солнца означало день. две отметки рядом с солнцем обозначали два дня. такие значки называются пиктограммами. с развитием цивилизации этот метод письма был ускорен путем картинок. египтяне прибегали к волнистой линии для обозначения воды. китайцы рисовали ухо между двумя дверьми, что имело значение «слушать». такие знаки назывались идеографами или идеограммами. древние египтяне пользовались системой, которую мы называем иероглифами. сначала это была полностью идеографическая система. но в ходе веков египтяне создали и фонетическую систему, то есть такие знаки, которые означали звуки речи, а не только изображали предметы или явления. с развитием цивилизации возникла потребность в большом количестве знаков. так возник метод написания слов в соответствии с их звучанием. знаки, звуки, называются фонемами. слова при этом могут делиться на слоги. следующей стадией развития письменности стало создание алфавита. древние египтяне и жители вавилона знали, как писать алфавитным способом. по их методу были созданы греческий и латинский алфавиты, которыми широко пользуются в мире, за исключением азиатских стран.
172
319
Умножаешь с конца на основание системы счисления на в степени номера цифры, которую умножаешь, начиная с нуля.