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

ксюха 13 · 16.11.2011, 17:35

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

задание звучит так. Дан массив А=(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 · 16.11.2011, 17:37

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

Vladimir_S · 16.11.2011, 19:47

Цитата:

Сообщение от ксюха 13

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

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

Цитата:

Сообщение от ксюха 13

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

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

Код:

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 · 17.11.2011, 18:49

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

Vladimir_S · 17.11.2011, 18:50

Цитата:

Сообщение от ксюха 13

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

Поздравляю!

ксюха 13 · 30.11.2011, 17:35

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

Vladimir_S · 30.11.2011, 18:38

Цитата:

Сообщение от ксюха 13

а как эту программу написать через 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 · 30.11.2011, 21:25

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

Vladimir_S · 01.12.2011, 09:35

Цитата:

Сообщение от ксюха 13

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

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

ксюха 13 · 28.12.2011, 21:36

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

16.11.2011, 17:35	#1 (permalink)
ксюха 13 Новичок Регистрация: 16.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Матрица в Паскале помогите пожалуйста, я совершенно не понимаю как нужно писать программы... а завтра нужен отчет задание звучит так. Дан массив А=(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

16.11.2011, 17:35
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Содержание вашего текста имеет много схожего с данными топиками Подойдет ли матрица? Матрица NxN

16.11.2011, 17:37	#2 (permalink)
ксюха 13 Новичок Регистрация: 16.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	мне не нужна сложная программа, что-то простое, но чтобы работала

17.11.2011, 18:49	#4 (permalink)
ксюха 13 Новичок Регистрация: 16.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное, отчет прошел на ура))))

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

30.11.2011, 17:35	#6 (permalink)
ксюха 13 Новичок Регистрация: 16.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	а как эту программу написать через file?

30.11.2011, 21:25	#8 (permalink)
ксюха 13 Новичок Регистрация: 16.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я не поняла последний пункт, у меня файл этот не открывается

28.12.2011, 21:36	#10 (permalink)
ксюха 13 Новичок Регистрация: 16.11.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вы не могли бы посоветовать программу в которой можно решать задачи по химии. нам задали семестровую сделать что-нибудь в любом пакете...