08.12.2010, 17:18 | #1 (permalink) |
Новичок
Регистрация: 08.12.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Отладка программы.
программа вроде счиатет, но преподаватель говорит не правильно. якобы необходимо накопление суммы. Условие A[i,j]*B[j,k]+A[i,j]*C[j,k] Program laba3; uses crt; Const m=3;n=4;p=5; Var A:array [1..m,1..n] of integer; B:array [1..n,1..p] of integer; C,AC,AB,R:array [1..m,1..p] of integer; i,j,k:integer; begin clrscr; writeln('matrica A'); for i:=1 to m do for j:=1 to n do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; writeln('matrica B'); for j:=1 to n do for k:=1 to p do begin write ('B[',j,',',k,']='); readln (B[j,k]); end; writeln('Matrica C'); for j:=1 to n do for k:=1 to p do begin write ('C[',j,',',k,']='); readln (C[j,k]); end; CLRSCR; writeln('ishodnaya matrica A'); for i:=1 to m do BEGIN for j:=1 to n do WRITE(A[i,j]:3); WRITELN; end; readln; writeln('ishodnaya matrica B'); for j:=1 to n do BEGIN for k:=1 to p do WRITE(B[j,k]:3); WRITELN; end; readln; writeln('ishodnaya matrica C'); for j:=1 to n do BEGIN for k:=1 to p do WRITE(c[i,j]:3); WRITELN; end; readln; writeln('martica A[i,j]*B[j,k]'); for i:=1 to m do for j:=1 to n do for k:=1 to p do begin AB[i,j]:=A[i,j]*B[j,k]; end; for i:=1 to m do BEGIN for j:=1 to n do WRITE(AB[i,j]:3); WRITELN; end; writeln('matrica A[i,j]*C[j,k]'); for k:=1 to p do for i:=1 to m do for j:=1 to n do begin AC[i,j]:=A[i,j]*C[j,k]; end; for i:=1 to m do BEGIN for j:=1 to n do WRITE (AC[i,j]:5); WRITELN; end; writeln('rezult matrica'); for i:=1 to m do begin for j:=1 to n do begin R[i,j]:=AB[i,j]+AC[i,j]; write(R[i,j]:3); end; writeln; end; readln; end. |
08.12.2010, 17:18 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблему можно решить гораздо быстрее, если ознакомиться с аналогичными темами Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Проблемы с написанием программы на языке Турбо Паскаль Паскаль Две программы Паскаль + возможность заработать |
08.12.2010, 21:38 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Во-первых, размещая сообщение с новой задачей, создайте свою новую тему, а не цепляйтесь к старым чужим. Это - на будущее, сейчас я открыл Вашу тему за Вас.
Во-вторых, будьте так любезны: дайте, пожалуйста, ясную, полную и четкую формулировку задачи. Тогда будем разбираться. P.S. Если в задаче речь идет о перемножении матриц, то Ваш преподаватель абсолютно прав. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|