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

[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 вложенных цикла, один по строкам, второй - по столбцам. Примеров сложения матриц на форуме куча. Если же для хранения своей матрицы ты используешь какую-то специальную структуру, то показывай какую...

[kvaga]

эт у меня вторая лекция по паскалю..вот 2 задание по практике))

вот на лекции давали пример матрицы
Program Lab2;
uses crt;
const n=5;
Var a:array[1..n,1..n] of real;
x,b:array[1..n] of real;
i,j:integer;
fin,fout:text;
Begin
assign(fin,'d:\lab7\lab7.dat');
assign(fout,'d:\lab7\lab7.res');
reset(fin); rewrite(fout);
for i:=1 to n do
begin
for j:=1 to n do read(fin,a[i,j]);
readln(fin)
end;
for i:=1 to n do read(fin,b[i]);
close(fin);
writeln(fout,'Peshenie lab7');
writeln('Matrica koeficientov:');
for i:=1 to n do
begin
for j:=1 to i do write (fout,' ',a[i,j]:5:2);
writeln(fout);
end;
writeln('Vector cvobodnix 4lenov:');
for i:=1 to n do write(fout,' ',b[i]:5:2);
writeln('Vector reshenie:');
for i:=1 to n do write(fout,' ',x[i]:5:2);

close(fout);
writeln('Programma vipolneniy rezyltatov d faile labt.dat');
readln
End.

где ввод данных из файла и результат записывается в фаил...

и надо также напистаь программу по моему заданию(

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