Неизвестная ошибка

@Tonop_0 · Регистрация: 20.09.2011

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

Pascal

n,m,p,o,i,j:byte;
a,b:matr;
min1,min2:integer;
procedure W(l,k:byte; var x:matr);
begin
writeln ('Введите массив ',l,'*',k);
for i:=1 to l do
for j:= 1to k do read (x[i,j]);
end;
function Y(l,k:byte;x:matr):integer;
var min:integer;
begin
min:=x[1,1];
for i:=1 to l do
for j:=1 to k do
if min>x[i,j] then min:=x[i,j];
Y:=min;
end;
begin
writeln ('Введите n,m');
readln (n,m);
W(n,m,a);
min1:=Y(n,m,a);
writeln ('min=',min1);
writeln ('Введите p,o');
readln (p,o);
W(p,o,b);
min2:=Y(p,o,b);
writeln ('min=',min2);
end.

скажите пожалуйста в чем проблема, ошибка вот что выдаёт PascalABCNet:
Program1.pas(10) : Переменная цикла for должна описываться в том же блоке, что и цикл for

@КонецСвета · 27.12.2011, 19:43

нововведение в NET

Pascal

type matr=array [1..100,1..100] of integer;
var
n,m,p,o:byte;
a,b:matr;
min1,min2:integer;
procedure W(l,k:byte; var x:matr);
begin
writeln ('Введите массив ',l,'*',k);
for var i:=1 to l do
for var j:=1 to k do read (x[i,j]);
end;
function Y(l,k:byte;x:matr):integer;
var min:integer;
begin
min:=x[1,1];
for var i:=1 to l do
for var j:=1 to k do
if min>x[i,j] then min:=x[i,j];
Y:=min;
end;
begin
writeln ('Введите n,m');
readln (n,m);
W(n,m,a);
min1:=Y(n,m,a);
writeln ('min=',min1);
writeln ('Введите p,o');
readln (p,o);
W(p,o,b);
min2:=Y(p,o,b);
writeln ('min=',min2);
end.

@Tonop_0 · 27.12.2011, 19:54 **[ТС]**

т.е. это только в компиляторе дело? тогда я просто др. буду использовать

@Puporev · 27.12.2011, 20:02

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

т.е. это только в компиляторе дело?

Это нормальное требование при программировании, просто в некоторых, типа Турбо Паскаль не принимается в расчет. Если перейдете на Делфи, там это обязательно нужно соблюдать.

@Tonop_0 · 27.12.2011, 20:15 **[ТС]**

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

@КонецСвета · 27.12.2011, 20:16

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

тогда я просто др. буду использовать

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

@Tonop_0 · 27.12.2011, 20:35 **[ТС]**

КонецСвета, тем что работа по идее во free pascal'e должна быть сделана

@Tonop_0 0 / 0 / 1 Регистрация: 20.09.2011 Сообщений: 51
	27.12.2011, 19:54 [ТС]	3
	т.е. это только в компиляторе дело? тогда я просто др. буду использовать 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.12.2011, 20:02	4
	Сообщение от Tonop_0 т.е. это только в компиляторе дело? Это нормальное требование при программировании, просто в некоторых, типа Турбо Паскаль не принимается в расчет. Если перейдете на Делфи, там это обязательно нужно соблюдать. 0

@Tonop_0 0 / 0 / 1 Регистрация: 20.09.2011 Сообщений: 51
	27.12.2011, 20:15 [ТС]	5
	Puporev, подскажите тогда какой компилятор нужно использовать, чтобы не изменять код программы 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	27.12.2011, 20:16	6
	Сообщение от Tonop_0 тогда я просто др. буду использовать почему? чем плох вариант, когда переменная цикла for должна описываться в том же блоке, что и цикл for? 0

@Tonop_0 0 / 0 / 1 Регистрация: 20.09.2011 Сообщений: 51
	27.12.2011, 20:35 [ТС]	7
	КонецСвета, тем что работа по идее во free pascal'e должна быть сделана 0

Опции темы