Функция vs Массив

@argen666 · Регистрация: 11.04.2009

Студворк — интернет-сервис помощи студентам

задача такая:
преобразовать матрицы А и В следующим образом: если элемент на главной диагонали отрицателен, то все последующие элементы столбца в котором он находится увеличить на единицу. сложить полученные матрицы.
вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
uses crt;
type mass=array[1..5,1..5] of integer;
var i,j,k:integer;
var a: mass;
    b:mass;
    c:mass;
function matr2(f:mass):integer;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
 if f[i,j]<0  then
 begin
 for k:=i+1 to 5 do begin
 f[k,j]:=f[k,j]+1;
 end;end;end;end;
for i:=1 to 5 do begin
        for j:=1 to 5 do begin
        write(f[i,j]:4);
    end;
    writeln;
end;
end;
begin
clrscr;
writeln('Massiv A');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
writeln('Vvedite element',i,'-',j);
read(a[i,j]);
end;end;
readkey;
writeln('massiv B');
for i:=1 to 5 do begin
    for j:=1 to 5 do begin
        writeln('Vvedite element',i,'-',j);
        read(b[i,j]);
                end;end;
writeln('Ishodnaya matrica A');
write('');
for i:=1 to 5 do begin
    for j:=1 to 5 do begin
        write(a[i,j]:4);
    end;
        writeln;
    end;
        writeln;
    writeln('Ishodnaya matrica B');
        writeln;
for i:=1 to 5 do begin
        for j:=1 to 5 do begin
        write(b[i,j]:4);
    end;
        writeln;
    end;
        readkey;
writeln('Izmenennaya matrica A ');
matr2(a);
writeln('Izmenennaya matrica B ');
matr2(b);
readkey;
writeln('Summa izmenennyh matric A i B');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
c[i,j]:=a[i,j]+b[i,j];
end;end;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
 
    write(c[i,j]:4);
    end;
    writeln;
end;
readkey;
end

Проблема вот в чем!
когда массив в функции меняется то в главной программе он почему-то остается неизменным! тоесть сумма в главной программе получается как сумма введенных с клавиатуры массивов а не измененных функцией...массив то глобальный он же должен измениться! что делать я не знаю...аналогичный код на с++ прекрасно работает. Но мне надо именно на паскале. Подскажите

@Vladiator · 11.04.2009, 20:15

Сообщение от argen666

задача такая:

Это всё, что у меня написано.

@argen666 · 11.04.2009, 20:20 **[ТС]**

я исправил

@Vladiator · 11.04.2009, 20:24

Видимо, при перезагрузке матрицы, нужно перезагрузить и все процедуры/функции.

@argen666 · 11.04.2009, 20:30 **[ТС]**

Сообщение от Kidalvь

Видимо, при перезагрузке матрицы, нужно перезагрузить и все процедуры/функции.

если честно не понял что ты имел ввиду

@Vladiator · 11.04.2009, 20:45

Укажи так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
function matr2:mass;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if f[i,j]<0 then
begin
for k:=i+1 to 5 do begin
f[k,j]:=f[k,j]+1;
end;end;end;end;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
write(matr2[i,j]:4);
end;
writeln;
end;
end;
 
end;
begin
...
a:=matr2;
...
b:=matr2;
...
end.

@argen666 · 11.04.2009, 20:51 **[ТС]**

Сообщение от Kidalvь

Укажи так:

Код Pascal

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

function matr2:mass;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin
if f[i,j]<0 then
begin
for k:=i+1 to 5 do begin
f[k,j]:=f[k,j]+1;
end;end;end;end;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
write(matr2[i,j]:4);
end;
writeln;
end;
end;

end;
begin
...
a:=matr2;
...
b:=matr2;
...
end.

Error 34: invalid function result name

@lexus_ilia · 11.04.2009, 20:52

Да нет, вы что, всё проще, напишите не так :

Pascal
1
function matr2(f:mass):integer;

а вот так:

Pascal
1
function matr2(var f:mass):integer;

Если я правильно понял проблему, то у вас получается что во время работы функции происходят изменения матрицы, а потом в головной программе она остаётся неизменоой (после работы функции). Так вот, если так, что знайте переменная описанная в функции (в скобках, т.е. в передаваемых параметрах) вместе с var будет изменятся в главной, т.е. меняется глобальная переменная, а вот всё что вы описывает без var является как бы privat'овскими для данной функции, только она может её использовать...

@Vladiator · 11.04.2009, 21:09

Сообщение от lexus_ilia

Да нет, вы что, всё проще, напишите не так :

Pascal
1
function matr2(f:mass):integer;

а вот так:

Pascal
1
function matr2(var f:mass):integer;

Если я правильно понял проблему, то у вас получается что во время работы функции происходят изменения матрицы, а потом в головной программе она остаётся неизменоой (после работы функции). Так вот, если так, что знайте переменная описанная в функции (в скобках, т.е. в передаваемых параметрах) вместе с var будет изменятся в главной, т.е. меняется глобальная переменная, а вот всё что вы описывает без var является как бы privat'овскими для данной функции, только она может её использовать...

Это да, тогда смысл делать функцию? Тогда нужно делать процедуру:

Pascal
1
procedure matr2(var f:mass);

@argen666 · 11.04.2009, 21:20 **[ТС]**

СПАСИБО ОГРОМНОЕ ВСЕМ!

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@argen666 0 / 0 / 0 Регистрация: 11.04.2009 Сообщений: 5
	11.04.2009, 20:20 [ТС]
	я исправил 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	11.04.2009, 20:24
	Видимо, при перезагрузке матрицы, нужно перезагрузить и все процедуры/функции. 0

@argen666 0 / 0 / 0 Регистрация: 11.04.2009 Сообщений: 5
	11.04.2009, 21:20 [ТС]
	СПАСИБО ОГРОМНОЕ ВСЕМ! 0