ПАСКАЛЬ! Нужна помощь.

[Empu]

Найти наибольший элемент главной диагонали матрицы А(15,15) и вывести всю строку в которой он находится! буду очень благодарен в помощи!

[Mironov]

0___o

[дрюс]

Найти наибольший элемент главной диагонали матрицы А(15,15) и вывести всю строку в которой он находится! буду очень благодарен в помощи!

нам всем очень повезло, что ты учишься не на медика...
но в любом случае - потрать полчаса, сделай все сам, тебе же лучше будет в итоге.

[Empu]

нам всем очень повезло, что ты учишься не на медика...
но в любом случае - потрать полчаса, сделай все сам, тебе же лучше будет в итоге.

я бы без проблем сделал, только я это не понимаю. и так и так пробовал - не получается

[Nikolay]

я бы без проблем сделал, только я это не понимаю. и так и так пробовал - не получается

Дрюс +1

Ты дальше как учиться собрался, если даже такую задачку решить не можешь?

[Empu]

да этот предмет не основной, зачет получу и всё!

[Hendrix]

да этот предмет не основной, зачет получу и всё!

Факультет? Могу помочь, если и правдо не основной.

[lounger]

эх...10 класс.вот бы сейчас это, а не дрова на ассемблере писать)
кароч я уже сам не помню, на паскале не писал с мая..
суть такая (примерно), то что главная диагональ ваще делов немного
max:=a[1,1];
s:=1; //присваиваем макс элементу 1стр1стлб и запоминаем номер строки
for i:=1 to 15 do begin // типа и так понятно
if a[i,i]>max then begin
max:=a[i,i]; s:=i; //типа теперь у нас будет максимумом число которое оказалос больше max, и запоминаем строчку
end;
for i:=1 to 15 do begin //терь выводим строку...
write(a[s,i],' ',);
end;
end;


я уже не помню ничего, так что если где-то неправильно - не обижайтесь)
паскаль у меня в следующем семестре

[CMDR Zod]

Изыди, Демон!

[Hendrix]

lounger, с oператорными скобками чуток напутал.

Код: Выделить всё

max:=a[1,1];
s:=1; {//присваиваем макс элементу 1стр1стлб и запоминаем номер строки}
for i:=1 to 15 do begin {// типа и так понятно}
   if a[i,i]>max then begin
        max:=a[i,i]; s:=i; {//типа теперь у нас будет максимумом число которое оказалось     больше max, и запоминаем строчку}
        end;
    end;
for i:=1 to 15 do begin {//терь выводим строку...}
write(a[s,i]);
end;

Надо учесть, что в нашей матрице a[i,j] i-номер строки, j-номер столбца.
строку можно вывести именно как строку:

Код: Выделить всё

uses CRT;

...


clrscr;
for i:=1 to 15 do begin {//терь выводим строку...}
gotoXY(i*5,5);
write(a[s,i]:2:2);
end;
gotoXY(0,6);

Тут второй параметр процедуры готуиксигрек выбран от балды.

[Спаси_Коробку]

бойтесь тех, кто катается на GT Zaskar Expert'06.

[lounger]

gotoXY(5,i*5);

эээм...а почему i*5?

у нас же идет поиск элемента главной диагонали, поэтому мона и a[i,i], т.е. будет брать элемент а11, а22, а33...ну и так до а1515 насколько помню, писать две буковки i не запрещалось ))

[Hendrix]

Во первых, я немного ошибся, перепутал параметры готуиксигрек. Сейчас поправил.

Итак, gotoXY(x,y:integer) -процедура модуля CRT. Переводит курсор в точку с координатами икс и игрек. В режиме вычислений экран делится на квадратики 8х8 пикселей. По горизонтали их 80, по вертикали-непомню. x,y-координаты такого квадратика.

gotoXY(i*5,5); переводит курсор на 5-ю строку, i*5 столбец экрана.
i*5 выбрано так, чтобы элементы строки матрицы не накладывались друг на друга.

В первом цикле мы нашли номер искомой строки-s. Теперь ее выводим так, чтобы и на мониторе она выглядела как строка.

[lounger]

мне кажется, ему надо без квадратиков...а просто рандомом забить матрицу, найти строку с макс эл-том глав диагонали и вывести строчку на экран...
аффтор, поясни)
просто помню из школы такие задания точь-в-точь, но квадратики не рисовали