|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2010, 00:18 | #1 |
Пользователь
Регистрация: 19.05.2010
Сообщений: 22
|
процедуры(где-то ошибка)
Посмотрите пожалуйста.Выкладываю текст программы и программу.В программе где-то ошибка в процедуре.Запустите,посмотрите,испр авьте,пожалуйста.
var a:array[1..10,1..10]of integer;{} i,j,k,l,max,byf:integer; procedure findmax; begin max:=-maxint; l:=0; for j:=1 to 10 do if a[i][j]>max then begin max:=a[i][j]; l:=j; end; end; begin {} for i:=1 to 10 do begin for j:=1 to 10 do begin a[i][j]:=random(30)+10; write(a[i][j],' '); end; writeln; end; writeln('-----------------------------------------------------'); for i:=1 to 10 do begin findmax; a[i][l]:=a[i][11-i]; a[i][11-i]:=max; for j:=1 to 10 do write(a[i][j],' '); writeln; end; readln; end. Само задание: Дана квадратная матрица B размером 10*10.Преобразовать её к такому виду,чтобы на побочной диагонали стояли максимальные элементы всех строк.Использовать процедуру для поиска максимального элемента строки и перестановки его с диагональным в этой строке. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка вызова одной процедуры в другой! | $T@LKER | БД в Delphi | 4 | 28.04.2010 19:50 |
Ошибка при выполнении процедуры. | segail | Microsoft Office Excel | 16 | 17.02.2010 17:53 |
Где ошибка? | stas77 | Microsoft Office Excel | 11 | 02.11.2009 18:26 |
Ошибка создания процедуры | Andre1723 | SQL, базы данных | 4 | 15.05.2009 17:22 |
ошибка при вызывание сторед процедуры | vasylshvv | Общие вопросы .NET | 2 | 01.10.2008 12:15 |