Процедуры и функции, Есть программа решенная, но её нужно изменить- кто сможет подскажите |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Процедуры и функции, Есть программа решенная, но её нужно изменить- кто сможет подскажите |
Называй меня Настенька |
17.12.2010 20:10
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Женский Репутация: 0 |
В процедуре заполните квадратную матрицу третьего порядка случайными числами. В функции проверить, содержит ли матрица невозрастающие диагонали. Определить их количество и вывести на экран.
Program r6v21; Type mas=array[1..3,1..3] of integer; var a:mas; i,j,k,z:byte; Procedure matrix(Var a:mas; i,j:byte); Begin randomize; for i:=1 to 3 do begin for j:=1 to 3 do Begin a[i,j]:=random(99); write (a[i,j],' '); end; writeln; end; end; Function n(var a:mas; k:byte):integer; Begin k:=0; if a[1,1]>=a[2,2] then inc(k) else if a[2,2]>=a[3,3] then inc(k); if a[1,2]>=a[2,3] then inc(k); if a[2,1]>=a[3,2] then inc(k); n:=k; end; begin matrix(a,j,i); z:=n(a,k); If z<>0 then writeln('soderzhit ',z,' nevozrastaushuju(ie) diaganal(i)') else writeln('nesoderzhit'); readln; end. а нужно В процедуре заполните квадратную матрицу третьего порядка с клавиатуры, а в функции проверьте, все ли диагональные элементы равны нулю. Если не все, то в основной программе вычислить сумму диагональных элементов и прибавить это значение к любому недиагональному элементу, а диагональные - обнулить. Если будет не интересно писать Подскажите хотя бы что да как |
Lapp |
18.12.2010 1:58
Сообщение
#2
|
Уникум Группа: Модераторы Сообщений: 6 823 Пол: Мужской Реальное имя: Лопáрь (Андрей) Репутация: 159 |
Называй меня Настенька, не нужно дублировать темы
а нужно И тем БОЛЕЕ не нужно приносить чужие программы на "исправление".Закрыто. -------------------- я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой |
Текстовая версия | 27.04.2024 19:09 |