Квазиагональная матрица, над найти максимум по строчкам

@Live · Регистрация: 01.03.2009

Author24 — интернет-сервис помощи студентам

Квазиагональная матрица, над найти максимум по строчкам..
Непонимаю как сравнивать... Вектора что ли, но немогу подобрать пральную формулу...
код:
uses crt;
const x=8;
y=3*x-2;
var mas:array[1..y] of byte;
i,j:integer;
begin
clrscr;
textcolor(green);
writeln('D3-1, Vitalijs Calko');
writeln('Eta programma vivodit na ekran Kvazidiagonaljnuju matricu');
randomize;
textcolor(white);
write('Vektor:');
writeln;
for i:=1 to y do
begin
mas[i]:=random(9)+1;
write(mas[i]:2);
end;
writeln;
writeln;
Writeln('Matrica:');
writeln;
for i:=1 to x do
begin
for j:=1 to x do
begin
textcolor(red);
if (i=j) or (i=j-1) or (i=j+1) then
write(mas[2*i+j-2]:4)
else
begin
textcolor(yellow);
write('0':4);
end;
end;
writeln;
end;
writeln;
readkey
end.

@Puporev · 20.03.2009, 13:44

над найти максимум по строчкам..

Найти максимальный элемент в каждой строке, или что-то другое?

Добавлено через 16 минут 58 секунд
Если это нужно, то так.

Pascal

uses crt;
const x=8;
      y=3*x-2;
var mas:array[1..y] of byte;
    i,j,max:byte;
 
begin
clrscr;
textcolor(green);
writeln('D3-1, Vitalijs Calko');
writeln('Eta programma vivodit na ekran Kvazidiagonaljnuju matricu');
randomize;
textcolor(white);
write('Vektor:');
writeln;
for i:=1 to y do
  begin
   mas[i]:=random(20)+1;
   write(mas[i],' ');
  end;
writeln;
writeln;
Writeln('Matrica:');
writeln;
for i:=1 to x do
  begin
    for j:=1 to x do
     begin
      textcolor(red);
      if (i=j) or (i=j-1) or (i=j+1) then
      write(mas[2*i+j-2]:4)
      else
        begin
          textcolor(yellow);
          write('0':4);
        end;
     end;
    writeln;
  end;
for i:=1 to x do
  begin
    max:=0;
    for j:=1 to x do
    if ((i=j) or (i=j-1) or (i=j+1))and
    (mas[2*i+j-2]>max) then max:=mas[2*i+j-2];
    writeln('max v stroke ',i,'=',max);
  end;
readkey
end.

@Live 0 / 0 / 1 Регистрация: 01.03.2009 Сообщений: 69
		1
	Квазиагональная матрица, над найти максимум по строчкам 20.03.2009, 12:53. Показов 1157. Ответов 1 Метки нет (Все метки) Квазиагональная матрица, над найти максимум по строчкам.. Непонимаю как сравнивать... Вектора что ли, но немогу подобрать пральную формулу... код: uses crt; const x=8; y=3x-2; var mas:array[1..y] of byte; i,j:integer; begin clrscr; textcolor(green); writeln('D3-1, Vitalijs Calko'); writeln('Eta programma vivodit na ekran Kvazidiagonaljnuju matricu'); randomize; textcolor(white); write('Vektor:'); writeln; for i:=1 to y do begin mas[i]:=random(9)+1; write(mas[i]:2); end; writeln; writeln; Writeln('Matrica:'); writeln; for i:=1 to x do begin for j:=1 to x do begin textcolor(red); if (i=j) or (i=j-1) or (i=j+1) then write(mas[2i+j-2]:4) else begin textcolor(yellow); write('0':4); end; end; writeln; end; writeln; readkey end. 0

	20.03.2009, 13:44

Квазиагональная матрица, над найти максимум по строчкам

Решение