Erro de execução - Pascal ZIM

3 de outubro de 2010

:confused:Quando eu rodo o programa a baixo aparece assim: "erro de execução do programa na linha 0"eu utilizo o compilador Pzim! preciso disso pra amanhã!!!

Program QO7;

uses crt;

Const

M=10000;

N=10000;

Var

Matriz: array[1..M,1..N] of integer;

maior, i, j, k, l : integer;

Begin

clrscr;

write('Quantas linhas terá a matriz?');

read(k);

writeln('Quantas colunas terá a matriz?');

read(l);

for i:=1 to k do

for j:=1 to l do

begin

write('Digite o valor da linha ',i,', coluna ',j,': ');

readln(Matriz[i,j]);

if ((i=1) and (j=1)) or ((i<>1) and (maior<Matriz[i,j])) then

maior:= Matriz[i,j];

end;

writeln;

writeln('O maior valor encontrado foi: ',maior);

for i:=1 to k do

for j := 1 to l do

if maior=Matriz[i,j] then

writeln('Na posicão: ', i,'x',j);

readkey;

End.

viniciusbmatos · 3 de outubro de 2010

Não há problema com o código, funciona perfeitamente. Mude seu compilador, pois o PZim é muito limitado.

Seu código identado:


[color=#000000][b]Program[/b][/color] QO7[color=#a52a2a][b];[/b][/color]
[color=#000000][b]uses[/b][/color]
  crt[color=#a52a2a][b];[/b][/color]
[color=#000000][b]Const[/b][/color]
  M[color=#a52a2a][b]=[/b][/color][color=#000000]10000[/color][color=#a52a2a][b];[/b][/color]
  N[color=#a52a2a][b]=[/b][/color][color=#000000]10000[/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]Var[/b][/color]
  Matriz[color=#a52a2a][b]:[/b][/color] [color=#000000][b]array[/b][/color][color=#a52a2a][b][[/b][/color][color=#000000]1[/color][color=#a52a2a][b]..[/b][/color]M[color=#a52a2a][b],[/b][/color][color=#000000]1[/color][color=#a52a2a][b]..[/b][/color]N[color=#a52a2a][b]][/b][/color] [color=#000000][b]of[/b][/color] [color=#0000cd][b]integer[/b][/color][color=#a52a2a][b];[/b][/color]
  maior[color=#a52a2a][b],[/b][/color] i[color=#a52a2a][b],[/b][/color] j[color=#a52a2a][b],[/b][/color] k[color=#a52a2a][b],[/b][/color] l [color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]integer[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]Begin[/b][/color]
  clrscr[color=#a52a2a][b];[/b][/color]
  [color=#228b22]write[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Quantas linhas terá a matriz?'[/color][color=#a52a2a][b]);[/b][/color]
  [color=#228b22]read[/color][color=#a52a2a][b]([/b][/color]k[color=#a52a2a][b]);[/b][/color]
  [color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Quantas colunas terá a matriz?'[/color][color=#a52a2a][b]);[/b][/color]
  [color=#228b22]read[/color][color=#a52a2a][b]([/b][/color]l[color=#a52a2a][b]);[/b][/color]
  [color=#228b22]for[/color] i[color=#a52a2a][b]:=[/b][/color][color=#000000]1[/color] [color=#228b22]to[/color] k [color=#228b22]do[/color]
    [color=#228b22]for[/color] j[color=#a52a2a][b]:=[/b][/color][color=#000000]1[/color] [color=#228b22]to[/color] l [color=#228b22]do[/color]
      [color=#000000][b]begin[/b][/color]
      [color=#228b22]write[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Digite o valor da linha '[/color][color=#a52a2a][b],[/b][/color]i[color=#a52a2a][b],[/b][/color][color=#ff4500]', coluna '[/color][color=#a52a2a][b],[/b][/color]j[color=#a52a2a][b],[/b][/color][color=#ff4500]': '[/color][color=#a52a2a][b]);[/b][/color]
      [color=#228b22]readln[/color][color=#a52a2a][b]([/b][/color]Matriz[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b],[/b][/color]j[color=#a52a2a][b]]);[/b][/color]
      [color=#228b22]if[/color] [color=#a52a2a][b](([/b][/color]i[color=#a52a2a][b]=[/b][/color][color=#000000]1[/color][color=#a52a2a][b])[/b][/color] [color=#000000][b]and[/b][/color] [color=#a52a2a][b]([/b][/color]j[color=#a52a2a][b]=[/b][/color][color=#000000]1[/color][color=#a52a2a][b]))[/b][/color] [color=#000000][b]or[/b][/color] [color=#a52a2a][b](([/b][/color]i[color=#a52a2a][b]<>[/b][/color][color=#000000]1[/color][color=#a52a2a][b])[/b][/color] [color=#000000][b]and[/b][/color] [color=#a52a2a][b]([/b][/color]maior[color=#a52a2a][b]<[/b][/color]Matriz[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b],[/b][/color]j[color=#a52a2a][b]]))[/b][/color] [color=#228b22]then[/color]
      maior[color=#a52a2a][b]:=[/b][/color] Matriz[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b],[/b][/color]j[color=#a52a2a][b]];[/b][/color]
      [color=#000000][b]end[/b][/color][color=#a52a2a][b];[/b][/color]
  writeln[color=#a52a2a][b];[/b][/color]
  [color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'O maior valor encontrado foi: '[/color][color=#a52a2a][b],[/b][/color]maior[color=#a52a2a][b]);[/b][/color]
  [color=#228b22]for[/color] i[color=#a52a2a][b]:=[/b][/color][color=#000000]1[/color] [color=#228b22]to[/color] k [color=#228b22]do[/color]
    [color=#228b22]for[/color] j [color=#a52a2a][b]:=[/b][/color] [color=#000000]1[/color] [color=#228b22]to[/color] l [color=#228b22]do[/color]
      [color=#228b22]if[/color] maior[color=#a52a2a][b]=[/b][/color]Matriz[color=#a52a2a][b][[/b][/color]i[color=#a52a2a][b],[/b][/color]j[color=#a52a2a][b]][/b][/color] [color=#228b22]then[/color]
        [color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color][color=#ff4500]'Na posicão: '[/color][color=#a52a2a][b],[/b][/color] i[color=#a52a2a][b],[/b][/color][color=#ff4500]'x'[/color][color=#a52a2a][b],[/b][/color]j[color=#a52a2a][b]);[/b][/color]
  readkey[color=#a52a2a][b];[/b][/color]
[color=#000000][b]End[/b][/color][color=#a52a2a][b].[/b][/color]