У меня че-то не получается сделать так, чтобы прога заработала, то одна ошибка, то другая, особенно с типами данных, я уж не знаю че делать..
На всякий случай текст задачи:
Дана матрица R(4,3), состоящая из чисел типа WORD. Найти сумму элементов того столбца матрицы, где находится максимальный элемент, и разделить на максимальный элемент все элементы второй строки. Вывести полученную матрицу. Написать программу без функций и процедур. Оформить деление на максимальный элемент в виде процедуры, а нахождение суммы элементов столбца матрицы, в виде функции.
Может еще какие ошибки заприметите... Заранее спасибо..
Текст программы:
program Matrica;
uses crt,lll,ccc;
const m=4; n=3;
type
ind1=1..m; ind=1..n;
vect=array[ind] of word;
matr=array[ind1,ind] of word;
var
k,i,imax:ind1;
k1,j,jmax:ind;
msmax,a:word;
ms:matr;
begin
for i:=1 to k do
for j:=1 to k1 do
begin
write('введите элемент матрицы a[',i,',',j,']:');
readln(ms[i,j]);
end;
begin
imax:=4;
jmax:=3;
msmax:=ms[4,3];
for i:=1 to k do
for j:=1 to k1 do
if ms[i,j]>msmax then
begin msmax:=ms[i,j];
imax:=4;
jmax:=3;
end;
end;
sum(k1,msmax);
begin
clrscr;
writeln(sum(m,n,ms[jmax]):5:2); {еще вопрос: по какому принципу здесь
dl(m,2,msmax,ms); ставятся переменные, от которых зависит функция?}
end;
begin
for i:=1 to k do
begin
writeln;
for j:=1 to k1 do
write(ms[i,j]:8:2);
End;
End.
Модуль1
unit ccc;
interface
const n=3;
type
ind=1..n;
vect=array[ind] of word;
Function sum(k:ind; Line:vect):word;
implementation
Function sum;
var
j:ind;
S:word;
begin
S:=0;
For j:=1 To k do
S:=S+Line[j];
begin
End;
End;
end.
Модуль2
unit ccc;
interface
const n=3;
type
ind=1..n;
vect=array[ind] of word;
Function sum(k:ind; Line:vect):word;
implementation
Function sum;
var
j:ind;
S:word;
begin
S:=0;
For j:=1 To k do
S:=S+Line[j];
begin
End;
End;
end.
