Задача про матрицу |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача про матрицу |
agressor |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
В заданной матрице K на E опредилить кол-во строк образующих арифм. прогрессию. Использовать подпрограмму/функцию для проверки одной строки.
|
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Вроде привильно работает, сам с функциями особо не знаком, не изучали еще но вроде так :
Код uses crt; const k=3; e=4; type mass=array[1..k,1..e] of integer; var i,j,s:integer; x:mass; function arrprg(x:mass):boolean; var bo:boolean; begin for i:=1 to k do begin bo:=true; begin for j:=1 to e-2 do if (x[i,j]-x[i,j+1])<>(x[i,j+1]-x[i,j+2]) then bo:=false; if bo=true then inc(s); end; end; end; Begin clrscr; s:=0; for i:=1 to k do for j:=1 to e do begin write('x[',i,',',j,']= '); readln(x[i,j]); end; arrprg(x); writeln; writeln('s=',s); readln; end. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 19.05.2024 0:41 |