|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.04.2010, 21:08 | #1 |
Новичок
Джуниор
Регистрация: 19.04.2010
Сообщений: 1
|
Посмотрите ,не могу понять,в чем завоздка,что не там...
задание на фотке ((
program pr_2_3; uses crt,Linear_algebra; const WG=100; type tmatr=array[1..WG,1..WG] of real; var n1,m1,n2,m2,n,m:byte; a,b,c:tmatr; begin pr_wod_matr(n1,m1,a); pr_wod_matr(n2,m2,b); ClrScr; writeln('Matriza 1':15); pr_out_matr(n1,m1,a); writeln('matriza 2':15); pr_out_matr(n2,m2,b); pr_sum_matr(n1,m1,n2,m2,a,b,n,m,c); writeln('Matriza poluchennaya slojeniem matriz 1 u 2'); pr_out_matr(n,m,c); end. unit LLinear_algebra; interface Const WG=100; type tmatr=array[1..WG,1..WG] of real; procedure pr_wod_matr(var n1,m1:byte; var mas:tmatr); procedure pr_out_matr(n1,m1:byte; mas:tmatr); procedure pr_sum_matr(n1,m1,n2,m2:byte; a,b:tmatr;var n,m:byte; var c:tmatr); implementation (*прцедура ввода элементов матрицы*) procedure pr_wod_matr(var n1,m1:byte; var mas:tmatr); var i,j:byte; kl:byte; begin writeln('Введи размерность матрицы n,m'); readln(n1,m1); writeln('1-ввод случайным образом, 2-ввод с клавиатуры'); readln(kl); if kl=1 then randomize; for i:=1 to n1 do for j:=1 to m1 do case kl of 1:mas[i,j]:=random(256); 2:begin writeln('Введи элемент',i,' строки ',j,' столбца матрицы'); readln(mas[i,j]); end; end; end; (*процедура вывода элементов матрицы*) procedure pr_out_matr(n1,m1:byte; mas:tmatr); var i,j:byte; begin for i:=1 to n1 do begin for j:=1 to m1 do write(mas[i,j]:8:3); writeln; end; end; (*процедура суммирования матриц*) procedure pr_sum_matr(n1,m1,n2,m2:byte; a,b:tmatr;var n,m:byte; var c:tmatr); var i,j:byte; begin if n1>n2 then n:=n1 else n:=n2; if m1>m2 then m:=m1 else m:=m2; for i:=1 to n do for j:=1 to m do c[i,j]:=a[i,j]+b[i,j]; end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу понять в чем проблема | BaUruk | Общие вопросы C/C++ | 3 | 12.10.2009 10:43 |
НЕ могу понять в чем проблема! | KNatalia | Microsoft Office Excel | 2 | 18.08.2009 02:03 |
Ошибка в цикле , не могу понять в чем! Помогите пожалуйста. | Алексей_xXx | Помощь студентам | 1 | 29.05.2009 00:37 |
Не могу понять в чем ошибка (вроде школьная математика) | Алён@ | Общие вопросы Delphi | 4 | 10.03.2009 20:25 |
Не могу понять в чем проблема (код) | diznt | Помощь студентам | 2 | 03.08.2008 10:20 |