Матрица процедурой

@Василий-Робот · Регистрация: 04.11.2009

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

Заставляют проги писать процедурами! Ууу! Вот код, почему подчеркивает строчку и говорит, что неизвестный идентификатор, я же его объявил!
(программа заполнения матрицы по схеме, но это не важно)

Pascal

const n=5;
type
arr=array [1..n,1..n] of byte;
procedure x (var a: arr);
var k, i, j: byte;
begin
k:=0;
for i:=1 to n do
if i mod 2 = 1 then
for j:=1 to n do begin
inc (k); a[i,j]:=k; end; end;
procedure print (var a: arr);
var i,j: byte;
begin for i:=1 to n do
begin
for j:=1 to n do write
(a[i,j]:4); writeln end;
end; begin x(a); print (a)
end.

@Vladiator · 21.02.2010, 09:28

Какую строчку подчёркивает?

Не по теме:

И обязательно писать почти всё в 1-й строке?

Сообщение от Василий-Робот

begin for i:=1 to n do

Сообщение от Василий-Робот

end; begin x(a); print (a)

Может, соблюдать хоть какую-то часть культуры программирования?

@Василий-Робот · 21.02.2010, 09:31 **[ТС]**

осемнадцатую

@Vladiator · 21.02.2010, 09:33

Переменную А надо объявить перед главным begin'ом
! ту А, которая в процедуре, не убирать!

@Василий-Робот · 21.02.2010, 09:38 **[ТС]**

Pascal

const n=5;
type
arr=array [1..n,1..n] of byte;
procedure x (var a: arr);
var a, k, i, j: byte;
begin
k:=0;
for i:=1 to n do
if i mod 2 = 1 then
for j:=1 to n do begin
inc (k); a[i,j]:=k; end; end;
procedure print (var a: arr);
var i,j: byte;
begin for i:=1 to n do
begin
for j:=1 to n do write
(a[i,j]:4); writeln end;
end; begin x(a); print (a)
end.

Подчеркивает новое а и говорит, что повторно объявлен индефикатор

@Puporev · 21.02.2010, 09:44

Тебе что написали?

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

Переменную А надо объявить перед главным begin'ом

А ты где объявляешь? Еще раз в процедуре.

Pascal

procedure x (var a: arr);
var  k, i, j: byte;
begin
k:=0;
for i:=1 to n do
if i mod 2 = 1 then
for j:=1 to n do begin
inc (k); a[i,j]:=k; end; end;
procedure print (var a: arr);
var i,j: byte;
begin for i:=1 to n do
begin
for j:=1 to n do write
(a[i,j]:4); writeln end;
end;
var a:arr;
begin
 x(a); 
print (a)
end.

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	21.02.2010, 09:28	2
	Какую строчку подчёркивает? Не по теме: И обязательно писать почти всё в 1-й строке? Сообщение от Василий-Робот begin for i:=1 to n do Сообщение от Василий-Робот end; begin x(a); print (a) Может, соблюдать хоть какую-то часть культуры программирования? 0

@Василий-Робот TECHNO 28 / 28 / 8 Регистрация: 04.11.2009 Сообщений: 366
	21.02.2010, 09:31 [ТС]	3
	осемнадцатую 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	21.02.2010, 09:33	4
	Переменную А надо объявить перед главным begin'ом ! ту А, которая в процедуре, не убирать! 1

	21.02.2010, 09:44