Victor Rodriguez

Digite o comando num editor de texto qualquer e salve como .bat

Use o comando netsh e utilize o endereço que desejar na ordem endereço, máscara e gateway;

netsh interface ip set address name="nome do adaptador de rede" static 192.168.0.200 255.255.255.0 192.168.0.1

Olá.

Curso primeiro ano de ADS e estou fazendo uns exercícios para nota de lógica de programação.

Minha professora passou um exercício com o seguinte enunciado:

Crie um programa dividido em procedimentos e função. Crie o procedimento Entrada que deverá ter declarado localmente a matriz dados 4x5 com números quaisquer. Crie o procedimento Positivos que deverá ter uma variável matriz positivo que armazenará apenas os números positivos contidos na matriz dados e o seu respectivo fatorial.O cálculo do fatorial deverá ser obtido na função Fatorial. Exiba o conteúdo das duas matrizes no procedimento positivos.

Criei os procedimentos para receber os números na matriz e outro para armazenar numa outra matriz, apenas números positivos, mas já faz horas que não consigo resolver esse erro. Segue código.

Erro na linha 43: A posição do 0 vetor está fora dos limites

Program Pzim ;
type num = array[1..4,1..5] of integer; 
//entrada dos numeros
procedure entradaDados();  
var
x, y: integer;
numeros:num;
begin
  for x  := 1 to 4 do
  for y := 1 to 5 do
  begin
    write('Digite 12 valores correspondentes a matriz 4x5: ');
    readln(numeros[x,y]);
  end;
end;

//armazenamento dos numeros positivos
procedure numPositivo(numeros:num);
var 
positivos: array[1..20,1..2] of integer;
x, y, cont: integer;
begin
	for numeros[x,y] := 1 to 20 do
	begin              
  for numeros[x,y] := 1 to 2 do
  begin
      if numeros[x,y] > 0 then
      cont := cont+1;
			positivos[cont,1] := numeros[x,y];		 
  end;
  if numeros[x,y] > 0 then
  positivos[x,y] := numeros[x,y]
  end;
  
  for x := 1 to 4 do
  for y := 1 to 5 do
  begin
      writeln(positivos[x,y]);
  end;
end;
Begin
  entradaDados;
  numPositivo;
  
End.

Agradeço desde já.