Подпрограммы, меню матрицы, отладка

@semkijan · Регистрация: 17.04.2013

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

Задание: создать меню матрицы с помощью подпрограмм(6 и более пунктов)
Ошибка: 333.pas(23,21) Error: Incompatible types: got "parametr" expected "byte"
Код (кода 200+ строк, скидываю нужный(как я считаю) кусок (раздел обьявлений + нужную процедуру)):

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
program lb;
uses crt;
type matrica=array [1..5,1..5] of integer;
     parametr=array [1..3] of integer;
var
f,Ps,Pc: parametr;
X: array [1..3] of matrica;
button,M,N,N2,q:byte;
Tr: matrica;
procedure trans(Pc,Ps:parametr ; N:byte; b: matrica; var Tr:matrica);
var q,i,k:integer;
begin
  while q=0 do
  writeln('kakoy slot budem transponirovat?(1-3)');
  read(N);
  clrscr;
  if f[N]=0 then
    writeln('etot slot pustoi')
  else
    begin;
    for i:=1 to Pc do
        begin
           for k:=1 to Ps do
            begin
            Tr[i,k]:=b[k,i];
            write(Tr[i,k]);
            end;
        writeln;
        end;
    sv();
    q:=1;
    end;
end;

Добавлено через 34 минуты
Решил, пытался ограничить цикл массивом

Просьба модерам оставить пока тему открытой, т.к. сомневаюсь, что это единственный косяк в программе

Добавлено через 2 часа 26 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    procedure sloz(Pc,Ps:parametr; N,N2:byte; X:matrica; var Tr:matrica);
    var
    i,j: integer;
    begin
    If (Pc[N]<>Pc[N2]) or (Ps[N]<>Ps[N2]) then
    exit;
        for i:=1 to Pc[N] do
            begin
            for j:=1 to Ps[N] do
                begin
                    Tr[j,i]:=X[N][j,i]+X[N2][j,i];
                    write(Tr[j,i],[COLOR="Lime"]' '[/COLOR]);
                end;
            writeln;
            end;
    sv();
    end;

ошибка: illegal qualifier
ругается куда-то в район , но скорее всего из-за табуляций показывает не туда

@hOlyNeKo · 18.04.2013, 03:19

Pascal
1
[COLOR="Lime"]' '[/COLOR]

Это что-то совсем магическое, паскаль не выдерживает помоему.

@volvo · 18.04.2013, 12:31

Pascal
1
Tr[j,i]:=X[N][j,i]+X[N2][j,i]; // Здесь ошибка.

X (который передается как параметр) - двумерный, а не трехмерный массив, то что у тебя есть еще глобальная переменная с тем же именем - никого не интересует. Она не видна в процедуре, параметр ее скрывает.

@semkijan · 28.04.2013, 19:19 **[ТС]**

Спасибо UI !
Новая беда:
Не записываются элементы матрицы из формального параметра процедуры в фактический в программе,
вот процедура ввода

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure vvod(var b:matrica ;var Pc,Ps,f:parametr; var N:byte);
var i,j: byte;
begin
slot(N);
    writeln('vvedite kol-vo strok v matrice');
    read(Ps[N]);
    writeln('vvedite kol-vo stolbcov');
    read(Pc[N]);
    for i:=1 to Pc[N] do
        for j:=1 to Ps[N] do
        begin
        writeln('vvedite [',i,';',j,'] element matrici');
        read(b[i,j]);
        clrscr;
        end;
 
    f[n]:=1;
end;

это процедура к которой обращается vvod

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure slot(var N:byte);
var q,k:byte;
begin
    q:=0;
    k:=0;
    repeat
    writeln('v kakoy slot budem zapisivat?(1-3)');
    read(N);
    clrscr;
    if f[N]=1 then
        begin
        writeln('slot zanyat, zamenit?(0 - net, 1 - da)');
        read(k);
            case k of
            1: q:=1;
            0: exit;
            else
            writeln('ti durak');
            end;
        end;
    until q=0;  
end;

а это обращение к процедуре в самой программе

Pascal
1
    vvod(X[N],Pc,Ps,f,N);

Заранее спасибо.

@semkijan · 15.05.2013, 15:48 **[ТС]**

И снова новая проблема!
Неверно выводится транспонированная прямоугольная матрица ( М[i,j] i<>j).

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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
program lb;
uses crt;
type matrica=array [1..5,1..5] of byte;
     parametr=array [0..3] of byte;
var
f,Ps,Pc: parametr;
X: array [0..3] of matrica;
button,M,N,N2,q,w:byte;
Tr: matrica;
procedure slot(button:byte; var N:byte);
var q,k,i:byte;
begin
    q:=0;
    k:=0;
    repeat
    writeln('viberite slot.(1-3)');
    read(N);
    clrscr;
case button of
1: begin
    if f[N]=1 then
        begin
        writeln('slot zanyat, zamenit?(0 - net, 1 - da)');
        read(k);
            case k of
            1: q:=1;
            0: exit;
            else
            writeln('ti durak');
            end;
        end
    else
    q:=1;
    end;
2: begin
   if f[N]=0 then
   writeln('etot slot pustoy');
   q:=1;
   end;
 3: begin
    if f[n]=0 then
    writeln('etot slot pustoy')
    else
    q:=1;
    end;
4,5,6: begin
         writeln('hotite sohranit rezultat? 1-da 0-net');
         read(i);
         if i=0 then
         exit;
         if f[N]=1 then
        begin
        writeln('slot zanyat, zamenit?(0 - net, 1 - da)');
        read(k);
            case k of
            1: q:=1;
            0: exit;
            else
            writeln('ti durak');
            end;
        end
    else
    q:=1;
    end;
end;
        until q=1;
end;
procedure vvod(var b:matrica ;var Pc,Ps,f:parametr; var N:byte);
var i,j: byte;
begin
    writeln('vvedite kol-vo strok v matrice');
    read(Ps[N]);
    writeln('vvedite kol-vo stolbcov');
    read(Pc[N]);
    for i:=1 to Pc[N] do
        for j:=1 to Ps[N] do
        begin
        writeln('vvedite [',i,';',j,'] element matrici');
        read(b[i,j]);
        clrscr;
        end;
 
    f[n]:=1;
end;
    procedure sv(var b:matrica; N: byte; Pc,Ps:parametr; var f:parametr);
    var
    j,i: byte;
    begin
            begin
            for i:=1 to Pc[0] do
                            begin
                for j:=1 to Ps[0] do
                    begin
                    b[i,j]:=Tr[i,j];
                    end;
                            end;
    end;
  f[n]:=1;
    end;
procedure trans(var Pc,Ps:parametr ; N:byte; b: matrica; var Tr:matrica; var button:byte);
var q,i,k:byte;
begin
q:=0;
  while q=0 do
  begin
    for i:=1 to Pc[N] do
        begin
           for k:=1 to Ps[N] do
            begin
            Tr[i,k]:=b[k,i];
            write(Tr[i,k]);
            end;
        writeln;
        end;
    Ps[0]:=Ps[N];
    Pc[0]:=Pc[N];
    button:=button+1;
        slot(button,N);
   sv(X[n],N,Pc,Ps,f);
   Pc[N]:=Pc[0];
    Ps[N]:=Ps[0];
    q:=1;
    end;
    end;
    procedure sloz(Var Pc,Ps:parametr; N,N2:byte; m,m2:matrica; var Tr:matrica);
    var
    i,j: integer;
    begin
    If (Pc[N]<>Pc[N2]) or (Ps[N]<>Ps[N2]) then
    exit;
        for i:=1 to Pc[N] do
            begin
            for j:=1 to Ps[N] do
                begin
                    Tr[i,j]:=m[i,j]+m2[i,j];
                    write(Tr[i,j],' ');
                end;
            writeln;
            end;
    Ps[0]:=Ps[N];
    Pc[0]:=Pc[N];
        slot(button,N);
    sv(X[N],N,Pc,Ps,f);
    Pc[N]:=Pc[0];
    Ps[N]:=Ps[0];
    end;
procedure razn(var Pc,Ps:parametr;N,N2:byte; m,m2:matrica; var Tr:matrica);
var
i,j: integer;
begin
If (Pc[N]<>Pc[N2]) or (Ps[N]<>Ps[N2]) then
exit;
for i:=1 to Pc[n] do
    begin
    for j:= 1 to Ps[n] do
        begin
        Tr[j,i]:=m[j,i]-m2[j,i];
        write(Tr[j,i],' ');
        end;
    writeln;
    end;
Ps[0]:=Ps[N];
Pc[0]:=Pc[N];
slot(button,N);
sv(X[N],N,Pc,Ps,f);
    Pc[N]:=Pc[0];
    Ps[N]:=Ps[0];
end;
    procedure umnoz(var Pc,Ps:parametr;N,N2:byte; m,m2:matrica; var Tr:matrica);
    var
    q,i,j,k: byte;
    begin
    if Ps[N]<>Pc[N2] then
    exit;
        for i:=1 to Pc[N] do
            begin
            for j:=1 to Ps[N2] do
                begin
                for k:=1 to Ps[N] do
                begin;
                Tr[i,j]:=Tr[i,j]+m[i,k]*m2[k,j];
                end;
            write(Tr[i,j],' ');
            end;
        writeln;
    end;
Pc[0]:=Pc[N];
Ps[0]:=Ps[N2];
slot(button,N);
sv(X[N],N,Pc,Ps,f);
    Pc[N]:=Pc[0];
    Ps[N]:=Ps[0];
end;
procedure vivod(Pc,Ps:parametr; N:byte; b:matrica);
var q,i,j: byte;
begin
     for i:=1 to Pc[N] do
         begin
         for j:=1 to Ps[N] do
             begin
             write(b[i,j],' ');
             end;
         writeln;
     end;
readkey;
end;
procedure tlen(f:parametr; button:byte; var N,N2:byte);
var
i:integer;
begin
while i=0 do
writeln('vvedite nomer pervoy matrci');
read(N);
    if f[N]=0 then
    write('etot slot pustoy')
        else
        begin
        writeln('vvedite nomer vtoroy matrici');
        readln(N2);
        if f[N2]=0 then
        writeln('etot slot pustoy')
          else
          begin
            case button of
            4:sloz(Pc,Ps,N,N2,X[N],X[N2],Tr);
            5:razn(Pc,Ps,N,N2,X[N],X[N2],Tr);
            6:umnoz(Pc,Ps,N,N2,X[N],X[N2],Tr);
      end;
      i:=1;
          end;
        end;
end;
begin
n:=1;
n2:=1;
for w:=1 to 3 do
f[w]:=0;
w:=0;
repeat
writeln('Viberite nuzhnoe deystvie');
writeln('1. Vvod matrici');
writeln('2. Vivod matrici');
writeln('3. Transponirovanie matrici');
writeln('4. Slozhenie 2 matrtic');
writeln('5. Raznost 2 matric');
writeln('6. Umnozhenie 2 matric');
read(button);
clrscr;
    case button of
1: begin
   slot(button,N);
   vvod(X[N],Pc,Ps,f,N);
   end;
2: begin
   slot(button,N);
   vivod(Pc,Ps,N,X[N]);
   end;
3: begin
slot(button,N);
trans(Ps,Pc,N,X[N],Tr,button);
end;
4,5,6: tlen(f,button,N,N2);
0: w:=1;
    end;
    until w>0;
end.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .