VPF::[Turbo Pascal] Задача на матрицы - Форум программистов

Hellride

Дата 21.11.2009, 21:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Задание 8
В матрице А [5 x 3] найти минимальный и максимальный элементы, вычислить P = ( Amin+Amax)2(это квадрат) и сформировать новую матрицу, в которой к элементам всех строк кроме 4-й прибавлено Р, 4-я строка без изменения.

Зараннее Спасибо)

Это сообщение отредактировал(а) Hellride - 21.11.2009, 21:50

ТоляМБА

Дата 21.11.2009, 22:52 (ссылка)

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

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

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

Код

program Task8;
const r=5;
      c=3;
      a:array[1..r,1..c] of integer=((1,2,3),
                                    (4,5,16),
                                    (7,8,9),
                                    (10,-18,12),
                                    (13,14,15));
var
   b:array[1..r,1..c] of integer;
   i,j,p,amin,amax:Integer;
begin
     amin:=a[1,1];
     amax:=amin;
     for i:=1 to r do
     begin
         for j:=1 to c do
         begin
             write(a[i,j],' ');
             if a[i,j] < amin then amin:=a[i,j];
             if a[i,j] > amax then amax:=a[i,j];
         end;
         writeln;
     end;
     writeln;
     p:=sqr(amin+amax);
     writeln('A min=',amin,'. A max=',amax,'. P=',p);
     writeln;
     for i:=1 to r do
     begin
          if i=4 then continue;
          for j:=1 to c do
              a[i,j]:=a[i,j]+p;
     end;
     for i:=1 to r do
     begin
         for j:=1 to c do
             write(a[i,j],' ');
         writeln;
     end;
   readln;
end.

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