Задача о группах
: группу задать массивом, каждый элемент группы -- строкой из 4 символов.
n:=1 {номер элемента группы} for i:=0 to 3 do for j:=0 to 3 do for k:=0 to 3 do for l:=0 to 3 do if (i*l-j*k) mod 4 = 1 {усли определитель равен 1} then begin 1)перевести i, j, k, l в строку 2)присвоить очередному элементу массива а[n] строку ijkl. 3) увеличить счетчик на 1, n:=n+1 end. После цикла n должно быть равно 61. Выведи на экран все элементы массива (их 60). Дальше можно отдельно сделать процедуру умножения двух строк abcd*xyzw=((ax+bz) mod 4)((ay+bw) mod 4)((cx+dz) mod 4)((cy+dw) mod 4) При этом, конечно, предваритель нужно переводить все в числа, а затем обратно с строку. Обращаясь к процедуре умножения, можно определить порядок каждого элемента и вывести на экран циклическую подгруппу, порожденную элементом. Все делать в цикле, пока на очередном умножении не получится единичная матрица '1001'. |
Цитата:
Код:
TYPE Цитата:
Код:
Function Prod(p1,p2:AR):AR; Цитата:
Если Вы хотите получить помощь на форуме, соблаговолите ясно, четко, прозрачно и подробно сформулировать задачу. P.S. Отговорки типа "А мне так дали" НЕ ПРИНИМАЮТСЯ. P.P.S. А еще я не понял - зачем нужно возиться со строками и без конца переводить числа в строки и обратно, если работа идет исключительно с числами? Просто ради дури преподской? |
Часовой пояс GMT +4, время: 12:07. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.