Матрица в Паскале

[ксюха 13]

Матрица в Паскале

помогите пожалуйста, я совершенно не понимаю как нужно писать программы... а завтра нужен отчет:tehnari_ru_281:
задание звучит так. Дан массив А=(a_ij)mxn. элементы матрицы B вычисляются по формуле b_ij = {a_ij ,i не равно j
1 , i=j
найти матрицу B и сумму элементов ее k-того столбца.
A= (3.1 -4.4 -3.8 1.9)
(9.2 -6.5 -7.9 -0.8)
(-4.8 -1.1 2.5 3.9)
(2.2 4.6 -4.8 1.5)
k=2

 

[ксюха 13]

мне не нужна сложная программа, что-то простое, но чтобы работала

 

[Vladimir_S]

помогите пожалуйста, я совершенно не понимаю как нужно писать программы...

Элементарно, Ватсон.

мне не нужна сложная программа, что-то простое, но чтобы работала

Вот... работает:

TYPE
 Matrix=Array[1..4,1..4] of Real;
CONST
 A:Matrix=(( 3.1, -4.4, -3.8,  1.9),
           ( 9.2, -6.5, -7.9, -0.8),
           (-4.8, -1.1,  2.5,  3.9),
           ( 2.2,  4.6, -4.8,  1.5));
VAR
 B:Matrix;
 i,j:Integer;
 Sum:Real;

BEGIN
 writeln('Matrix A:');
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do write(A[i,j]:6:1);
   writeln;
  end;
 writeln;
 writeln('Matrix B:');
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do
    begin
     if i=j then B[i,j]:=1.0 else B[i,j]:=A[i,j];
     write(B[i,j]:6:1);
    end;
   writeln;
  end;
 writeln;
 Sum:=0;
 For i:=1 to 4 do
  Sum:=Sum+B[i,2];
 writeln('Sum= ',Sum:0:1);
 readln
END.

 

[ксюха 13]

спасибо огромное, отчет прошел на ура))))

 

[Vladimir_S]

спасибо огромное, отчет прошел на ура))))

Поздравляю!

 

[ксюха 13]

а как эту программу написать через file?

 

[Vladimir_S]

а как эту программу написать через file?

"Элементарно, Ватсон!" ©
1. Создаем где-нибудь файл такого содержания:

  3.1 -4.4 -3.8  1.9
  9.2 -6.5 -7.9 -0.8
 -4.8 -1.1  2.5  3.9
  2.2  4.6 -4.8  1.5

У меня он назван Matr.dat и расположен на диске D:. Вы, конечно, можете обозвать и расположить его по-своему.
2. Пишем программу:

TYPE
 Matrix=Array[1..4,1..4] of Real;
VAR
 A,B:Matrix;
 i,j:Integer;
 Sum:Real;
 f:Text;

BEGIN
 Assign(f, 'D:\matr.dat');
 ReSet(f);
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do read(f,A[i,j]);
   readln(f);
  end;
 Close(f);
 Append(f);
 Writeln(f);
 For i:=1 to 4 do
  begin
   For j:=1 to 4 do
    begin
     if i=j then B[i,j]:=1.0 else B[i,j]:=A[i,j];
     write(f,B[i,j]:5:1);
    end;
   writeln(f);
  end;
 writeln(f);
 Sum:=0;
 For i:=1 to 4 do
  Sum:=Sum+B[i,2];
 writeln(f,'Sum = ',Sum:0:1);
 Close(f);
END.

3. И после ее выполнения тот же файл должен приобрести такой вид:

  3.1 -4.4 -3.8  1.9
  9.2 -6.5 -7.9 -0.8
 -4.8 -1.1  2.5  3.9
  2.2  4.6 -4.8  1.5

  1.0 -4.4 -3.8  1.9
  9.2  1.0 -7.9 -0.8
 -4.8 -1.1  1.0  3.9
  2.2  4.6 -4.8  1.0

Sum = 0.1

 

[ксюха 13]

я не поняла последний пункт, у меня файл этот не открывается

 

[Vladimir_S]

я не поняла последний пункт, у меня файл этот не открывается

Пожалуйста, подробнее. Что значит "не открывается"?

 

[ксюха 13]

вы не могли бы посоветовать программу в которой можно решать задачи по химии.
нам задали семестровую сделать что-нибудь в любом пакете...