Матрица Опции

[ghost]

:help: Помогите пожалуйста сделать задачу :help:
Дана матрица А(6,6). Создать новую матрицу В(6,6), где
а) В(I,J)=A(I,J), если A(I,J)>0
б) B(I,J) не равно 0, если A(I,J)<=0
Вывести исходную матрицу А, а под ней полученную матрицу В.
В программе должна быть "защита от дурака"

Сообщение отредактировано: ghost - 4.12.2004 20:23

[volvo]

ghost
По-моему, так...

Код

const
   max_n = 30;
var
 a,b:array[1..max_n,1..max_n] of integer;
 i,j,n1,n2:integer;
 s: string; x: longint; er: integer;
 bn: boolean;
begin
   repeat
     write('matrix width = '); readln(n1);
   until (n1 <= max_n);
   repeat
     write('matrix height = '); readln(n2);
   until (n2 <= max_n);

   for i := 1 to n1 do
   for j := 1 to n2 do
     begin
       repeat
         write('a[', i, ',', j, '] = '); Readln(s);
         val(s, x, er);
         bn := (er<>0) or (x < -Pred(maxint)) or (x > maxint);
         if bn then writeln('Error');
       until not bn;
       a[i,j] := x;
     end;

   for i := 1 to n1 do
   for j := 1 to n2 do
   begin
        if a[i,j] > 0 then b[i,j] := a[i,j]
        else
        b[i,j] := 0;
   end;
   for i := 1 to n1 do
   begin
        writeln;
        for j := 1 to n2 do
        Write(a[i,j]:3);
   end;
   for i := 1 to n1 do
   begin
        WriteLn;
        for j := 1 to n2 do
        Write(b[i,j]:3);
   end;
end.

Сообщение отредактировано: volvo - 14.12.2004 17:48