|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.10.2008, 15:11 | #1 |
Новичок
Джуниор
Регистрация: 01.10.2008
Сообщений: 1
|
Помогите пож найти ошибки в программе и дописать ее до конца
Такая задача
1.Найти максимальное и минимальное значения компонент квадратной целочисленной матрицы m[n,n] . 2.Поменять местами в матрице компоненты строки, содержащей максимум, с компонентами столбца, содержащего минимум. Если максимумов и (или) минимумов в матрице несколько, то взять строку и столбец последних встреченных при переборе из максимумов и минимумов соответственно. 3.В одномерный массив v[n] записать компоненты побочной диагонали изменённой матрицы m[n,n] (индексы строки и столбца компонент побочной диагонали изменяются как [1, n],[2, n-1],[3, n-2], … ,[n-2, 3], [n, 1]). 4.Вычислить сумму компонент полученного массива v[n]. 5.На экран вывести исходную матрицу m[n,n] , последние встреченные максимальную и минимальную компоненты с индексами, изменённую матрицу m[n,n], массив v[n], сумму компонент массива v[n] . Данные: Матрица 0[1,1] 8[1,2] 1[1,3] 0[2,1] 5[2,2] 0[2,3] 9[3,1] 0[3,2] 9[3,3] начало программы писала так: Program Zadanie_3; Var m:Array [1..3, 1..3] of Integer; i,j:Integer; Begin WriteLN ('Ввод элементов матрицы'); ReadLn; WriteLn (' Введите поочередно элементы матрицы:'); For i:=1 To 3 Do For j:=1 To 3 Do Begin Write ('m[',i,',',j,']='); Readln(m[i,j]); End; Procedure search_min (Var m: matrix); Var min, row_min, column_min,i,j:integer; begin min:=m[1,1]; row min:=1; column_min:=1; For: i=1 To 3-1 Do For j:=1 To 3-i Do If min>m[i,j] Then Begin min:=m[i,j]; row_min:=i; column_min:=j; End; Write ('Минимальное значение ', min); Write (' в строке ', row_min); WriteLn('в столбце ', column_min); ReadLn; End; Procedure search_max (Var m: matrix); Var max, row_max, column_max,i,j:integer; begin max:=m[1,1]; row max:=1; column_max:=1; For: i=1 To 3-1 Do For j:=1 To 3-i Do If max<m[i,j] Then Begin max:=m[i,j]; row_max:=i; column_max:=j; End; Write ('Максимальное значение ', max); Write (' в строке ', row_max); WriteLn('в столбце ', column_max); ReadLn; End. |
02.10.2008, 21:24 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Код:
0 9 1 0 0 0 8 5 0 или так: 0 9 1 0 0 0 8 9 0 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
С++.Задача на строки.Помогите найти ошибки | NamelessEndless | Помощь студентам | 7 | 26.05.2008 23:42 |
помогите исправить ошибки в программе... | VDK23 | Помощь студентам | 1 | 17.04.2008 13:05 |
Помогите исправить ошибки в программе | Gambit90 | Помощь студентам | 1 | 20.12.2007 16:24 |
помогите найти причину ошибки! | НиКС | БД в Delphi | 3 | 10.05.2007 15:55 |