VPF::Двумерный массив - Форум программистов

Mnogosisa

Дата 30.11.2008, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет

Задание:
В матрице имеется столбец,сумма элементов которого равна нулю.Необходимо заменить его элементы на значение максимума,найденного в чётных строках.

Я уже создавал эту тему
http://forum.vingrad.ru/forum/topic-216020...0%B8%D0%B2.html
но так как это было давно, я решил создать новую тему и осуществить это задание.
В задании только подсчитал суммы столбцов, а вот найти столбец и заменить в чётных строках на значение максимума получилась полная чушь.

Код


program matr;
uses crt;
var
q:array[1..4,1..4] of integer;
i,j,k,im,imax:integer;
h1,h2,h3,h4:integer;
begin
ClrScr;
{оформление}
Writeln('Введите матрицу');
writeln('==============================');
begin
for i:= 1 to 4 do
begin
k:=k+1;
gotoxy(3+i*4,3);
write(k);
gotoxy(1,4);
writeln('==============================');
gotoxy(23,3);
writeln('индексы');
gotoxy(30,3);
writeln('|');
gotoxy(30,2);
writeln('|');
gotoxy(30,4);
writeln('|');
end;
{матрица}
for i:= 1 to 4 do
for j:= 1 to 4 do
begin
gotoxy(3+i*4,3+j*2);
readln(q[i,j]);
end;
end;
{вычисление столбцов }
for j:= 1 to 4 do
begin
h1:=h1+q[1,j];
h2:=h2+q[2,j];
h3:=h3+q[3,j];
h4:=h4+q[4,j];
end;
gotoxy(5,13);
writeln('  ',h1,'  ',h2,'  ',h3,'  ',h4);
gotoxy(1,12);
writeln('=====================================');
gotoxy(1,14);
writeln('=====================================');
gotoxy(37,12);
writeln('|');
gotoxy(37,13);
writeln('|');
gotoxy(37,14);
writeln('|');
gotoxy(23,13);
writeln('сумма столбцов');
{поиск столбца равным 0 и замена его в чётных строках}
begin
sum:=0;
for i:= 1 to 4 do
sum:=sum+q[i,j];
if sum=0 then
k:=j;
end;
max:=q[2,1];
for i:= 2 to 4 do
if i mod 2=0 then
for j:= 1 to 4 do
if q[i,j]>max then max:=q[i,j];
for i:= 1 to 4 do
q[i,k]:=max;
for i:=1 to 4 do
begin
for j:= 1 to 4 do
gotoxy(3+i*4,3+j*2);
write(q[i,j]:3);
writeln;
readkey;
end.

Помогите доделать.

Mnogosisa

Дата 3.12.2008, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 17
Регистрация: 24.4.2008

Репутация: нет
Всего: нет

Всё,спасибо smile

. И так разобрался.

Код


{поиск столбца равным 0 и замена его в чётных строках}
im:=q[1,1];
i:=2;
While i<=4 do
Begin
For j:=1 to 4 do
If q[j,i]>im then
im:=q[j,i];
i:=i+2;
End;
For i:=1 to 4 do
If h[i]=0 then
For j:=1 to 4 do
q[i,j]:=im;
gotoxy(1,16);
writeln('получили');
WriteLn('матрицу');
writeln('------------------');
For j:=1 to 4 do
Begin
For i:=1 to 4 do
Write(q[i,j]:3,' ');
WriteLn;
End;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »