Помогите в 1 строчке по паскалю))

← →
Jeltok (2010-02-03 21:06) [0]

program lab6_2; var A,B:array[1..15,1..20] of integer; ia,ib,ja,jb,i,j:byte; SA,SB:array[1..15] of integer; Procedure summ (const c:array[1..n,1..m] of integer; var s:array[1..n] of integer const n,m:byte); var i,j:byte; Begin for i:=1 to n do begin s[i]:=0; for j:=1 to m do if c[i,j]>0 then s[i]:=s[i]+c[i,j]; end; end; Procedure zap(var c:array[1..15,1..20] of integer; const n,m:byte); var i,j:byte; begin randomize; for i:=1 to n do begin for j:=1 to m do begin c[i,j]:=50-random(100); write(c[i,j]:4); end; writeln; end; end; BEGIN writeln("vvedite pazmernost A:"); readln(ia,ja); writeln("vvedite pazmernost B:"); readln(ib,jb); writeln("matrica A:"); zap(a,ia,ja); writeln("matrica B:"); zap(b,ib,jb); summ(a,ia,ja,sa); summ(b,ib,jb,sb); writeln("podstr. symma A:"); for i:=1 to ia do writeln(sa[i]); writeln("podstr. symma B:"); for i:=1 to ib do writeln(sb[i]); end.

При колмпиллировании ошибка 54 на строке:
(const c:array[1..n,1..m] of integer;
Как правильно должно быть?
Спасибо.

← →
Плохиш © (2010-02-03 21:09) [1]

>
> При колмпиллировании ошибка 54 на строке:
> (const c:array[1..n,1..m] of integer;
> Как правильно должно быть?

Обычно в ошибке сказано как надо.

← →
VertUS (2010-02-03 21:09) [2]

Да, сказано: "OF expected (Требуется OF)."

← →
Jeltok (2010-02-03 21:10) [3]

>Да, сказано: "OF expected (Требуется OF)."

Так и что это означает? У меня OF прописан, вроде.

← →
Плохиш © (2010-02-03 21:10) [4]

Кстати, на строке
Procedure zap(var c:array[1..15,1..20] of integer;
такая же ошибка.

PS. А описание синтаксиса используемого языка надо почитать.

← →
Jeltok (2010-02-03 21:11) [5]

2Плохиш, ну подскажите, пожалуйста. Завтра лабу для допуска срочно надо сдать((

← →
xayam © (2010-02-03 21:11) [6]

надо тип определить до этого и его передать в функцию

← →
Jeltok (2010-02-03 21:16) [7]

Ребят, ну очень прошу(

← →
Dimka Maslov © (2010-02-03 21:21) [8]

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

← →
xayam © (2010-02-03 21:24) [9]

program lab6_2; {$APPTYPE CONSOLE} uses SysUtils; const n = 15; m = 20; type typemas = array [1..n,1..m] of integer; typemas2 = array[1..n] of integer; var A,B: typemas; ia,ib,ja,jb,i,j:byte; SA,SB: typemas2; Procedure summ (const c: typemas; var s: typemas2; const n,m: byte); var i,j:byte; Begin for i:=1 to n do begin s[i]:=0; for j:=1 to m do if c[i,j]>0 then s[i]:=s[i]+c[i,j]; end; end; Procedure zap(var c: typemas; const n,m: byte); var i,j:byte; begin randomize; for i:=1 to n do begin for j:=1 to m do begin c[i,j]:=50-random(100); write(c[i,j]:4); end; writeln; end; end; BEGIN writeln("vvedite pazmernost A:"); readln(ia,ja); writeln("vvedite pazmernost B:"); readln(ib,jb); writeln("matrica A:"); zap(a,ia,ja); writeln("matrica B:"); zap(b,ib,jb); summ(a,sa,ia,ja); //здесь нужно правильно передавать параметры summ(b,sb,ib,jb); //здесь нужно правильно передавать параметры writeln("podstr. symma A:"); for i:=1 to ia do writeln(sa[i]); writeln("podstr. symma B:"); for i:=1 to ib do writeln(sb[i]); end.

← →
Jeltok (2010-02-03 21:29) [10]

Спасибо большое! Спасли, можно сказать! :)

← →
Игорь Шевченко © (2010-02-03 22:55) [11]

одним быдлокодером на свете станет больше

← →
xayam © (2010-02-03 23:22) [12]

> Игорь Шевченко © (03.02.10 22:55) [11]
> одним быдлокодером на свете станет больше

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

> но прикинь он не зная синтаксиса, по ходу не сделал ни одной
> логической ошибки.

По-крайней мере одна ошибка есть точно. Но не логическая.

Помогите в 1 строчке по паскалю)) Найти похожие ветки