VPF::Матрица , строки - Форум программистов

jorjinho10

Дата 18.5.2009, 18:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 31.3.2009
Где: Saint-Petersburg

Репутация: нет
Всего: нет

Вычислить суммы элементов строк матрицы В (m x n) , номера которых задаются целочисленным вектором
сделать нужно через процедуры и функции , но Без глобальных переменных

ниже приведен вариант с глобальными переменными , как от него уйти ?

Код


uses crt;
const
m=3;{размеры матрицы по условию}
n=4;
type
mas=array[1..50] of integer;{целочисленный вектор}
str=array[1..n] of integer;{массивы-строки матрицы}
matr=array[1..m] of str;{матрица-массив строк}
procedure VvodMatr(var mt:matr);
var i,j:integer;
begin
writeln('Введите ',m*n,' элементов матрицы:');
for i:=1 to m do
for j:=1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(mt[i,j]);
 end;
end;
procedure VyvodMatr(var mt:matr);
var i,j:integer;
begin
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(mt[i,j]:3,' ');
  writeln;
 end;
end;
procedure VvodMas(var ms:mas;var x:integer);
var i:integer;
begin
write('Размер массива x=');
readln(x);
writeln('Введите ',x,' элементов массива:');
for i:=1 to x do
 begin
  write('el[',i,']=');
  readln(ms[i]);
 end;
end;
procedure VyvodMas(var ms:mas;x:integer);
var i:integer;
begin
writeln('Массив:');
for i:=1 to x do
write(ms[i],' ');
writeln;
end;
function Summ(s:str):integer;
var i,sm:integer;
begin
sm:=0;
for i:=1 to n do
sm:=sm+s[i];{считаем сумму в массиве-строке матрицы}
Summ:=sm;
end;
procedure SummStr(mt:matr;ms:mas;x:integer;var sm:integer);
var i,j:integer;
begin
for i:=1 to m do
for j:=1 to x do
if i=ms[j] then{если номер строки есть в векторе}
 begin
  writeln('Сумма в строке ',i,'=',Summ(mt[i]));{считаем и выводим сумму}
  break;{дальше не ищем, чтоб не было повторов}
 end;
end;
var a:matr;
    v:mas;
    k,sm:integer;
begin
clrscr;
VvodMatr(a);
VvodMas(v,k);
clrscr;
VyvodMatr(a);
VyvodMas(v,k);
SummStr(a,v,k,sm);
readln
end.

volvo877

Дата 19.5.2009, 09:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(jorjinho10 @ 18.5.2009, 18:10

)

ниже приведен вариант с глобальными переменными

Да блин... ГДЕ ты видишь здесь глобальные переменные-то??? Что, издеваешься? Все темы об одном и том же.

jorjinho10

Дата 19.5.2009, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 31.3.2009
Где: Saint-Petersburg

Репутация: нет
Всего: нет

Цитата(volvo877 @ 19.5.2009, 09:45)

Цитата(jorjinho10 @ 18.5.2009, 18:10

)

ниже приведен вариант с глобальными переменными

Да блин... ГДЕ ты видишь здесь глобальные переменные-то??? Что, издеваешься? Все темы об одном и том же.

Поидее и я их не вижу...Но препод сказал что у меня не правильно , что надо без глобальных переменнных...

volvo877

Дата 19.5.2009, 19:54 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Ну, значит, спроси у него, где ОН видит глобальные переменные, от которых надо избавиться. И заодно напомни ему, что описание типа - это не описание переменной ни разу, и константы здесь тоже ни при чем...

А завалить он тебя всегда завалит, что бы ты не сделал... Хоть вообще без переменных сделай. Это так, чтоб не удивлялся потом...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »