матрицы(сложение), треугольные матрицы Опции

[kvaga]

Составьте программу обработки двумерных массивов.Организуйте ввод исходных данных из файла и вывод результатов в файлб находящийся на диске в каталоге(устанавливается пользователем) (n=5)
Задача
Определить матрицу С являющююся суммой нижней треугольной матрциы на верхнюю треугольную матрицу того же порядка

вот пример труегольной(n=5)
a[1,1]
a[2,1] a[2,2]
a[3,1] a[3,2] a[3,3]
a[4,1] a[4,2] a[4,3] a[4,4]
a[5,1] a[5,2] a[5,3] a[5,4] a[5,5]

я прочитал уйму литературы.по помоду массивов..но не могу понять как все это записывать..

ps "Организуйте ввод исходных данных из файла и вывод результатов в файлб находящийся на диске в каталоге" сделаю сам ^^

Сообщение отредактировано: kvaga - 5.11.2007 21:42

[volvo]

Ну, как прочитать 2 матрицы - должно быть понятно... Тем более, ты написал в первом же посте, что ввод исходных данных сделаешь сам...

А сложить 2 матрицы -

for i := 1 to n do
  for j := 1 to n do
    C[i, j] := A[i, j] + B[i, j]; { <--- где A и B - две треугольных матрицы, C - результат}

[kvaga]

все написал код..спс всем кто помогал..его можно дабавить в фак по матрицам...т.к. нет там аналоничного задания


Задание
Составьте программу обработки двумерных массивов.Организуйте ввод исходных данных из файла и вывод результатов в файлб находящийся на диске в каталоге(устанавливается пользователем) (n=5-порядок матрицы)
Определить матрицу С являющююся суммой нижней треугольной матрциы на верхнюю треугольную матрицу того же порядка

program lab7;
  uses   crt;
  const  nmax=5;  nl=#13#10;  w=5;  v=1;
  type   Matrix=array[1..nmax,1..nmax] of real;
var      matr1, matr2: Matrix;
         resmatr: Matrix;
         n, i, j: integer;
         t1, t2, fout: text;
begin
  clrscr;
  assign(t1, 'D:\lab7\t1.txt');      reset(t1);
  assign(t2, 'D:\lab7\t2.txt');      reset(t2);
  assign(fout, 'D:\lab7\fout.txt');   rewrite(fout);
  read(t1, n);
  for i:=1 to n do
    for j:=1 to n do
         read(t1, matr1[i,j]);
  for i:=1 to n do
    for j:=1 to n do
         read(t2, matr2[i,j]);
begin
  for i:= 1 to n do
    for j:=1 to n do
    resmatr[i,j]:=matr1[i,j]+matr2[i,j];
end;
  for i:=1 to n do
    begin
    for j:=1 to n do
     write(fout, ' ', resmatr[i,j]:w:v);
     write(fout, nl);
     end;
  writeln(fout, nl,nl, ' Nazarov Dima. ');
  close(t1);  close(t2);  close(fout);
  write(nl,nl, '  THE END. Rezultat v faile====)PreSS EnteR  ');
readkey
end.

t1.txt { матрица первая}
t2.txt { матрица вторая }
например вводим в первый фаил нижнюю треугольную матрицу:
5 {порядок матрицы}
1 0 0 0 0
1 1 0 0 0
1 1 1 0 0
1 1 1 1 0
1 1 1 1 1
а во второй фаил верхнюю треугольную того же порядка
1 1 1 1 1
0 1 1 1 1
0 0 1 1 1
0 0 0 1 1
0 0 0 0 1

Программа высчитает результат и в файле результата напишет ответ
2 1 1 1 1
1 2 1 1 1
1 1 2 1 1
1 1 1 2 1
1 1 1 1 2

Сообщение отредактировано: kvaga - 6.11.2007 20:05