Ajuda

BlackSephira · 25 de fevereiro de 2011

Alguem pode em ajudar ? Estou com o seguinte erro na hora de compilar e não sei o problema "/ Sou iniciante em Pascal e aprendi Procedure a poucos dias, si algum poder me ajudar eu agradeço.


program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  procedure proc_futebol;
    var
      i: integer;
      qnt_jogadores: array[1..15] of string;
    begin
      for i:= 1 to 11 do
      begin
        write('Digite o numero');
        readln(qnt_jogadores);
      end;
    end;

  procedure proc_basquete;
    var
      i: integer;
      qnt_jogadores: array[1..15] of string;
    begin
      for i:= 1 to 11 do
      begin
        write('Digite o numero');
        readln(qnt_jogadores);
      end;
    end;

  procedure proc_volei;
    var
      i: integer;
      qnt_jogadores: array[1..15] of string;
    begin
      for i:= 1 to 11 do
      begin
        write('Digite o numero');
        readln(qnt_jogadores);
      end;
    end;

var
  opcao_esporte: integer;
begin
  writeln('Digite qual  esporte: ');
  writeln('1 - Futebol');
  writeln('2 - Basquete');
  writeln('3 - Volei');
  readln(opcao_esporte);
  if opcao_esporte = 1 then
  begin
    proc_futebol;
  end
  else if opcao_esporte = 2 then
  begin
    proc_basquete;
  end
  else if opcao_esporte = 3 then
  begin
    proc_volei;
  end
  else if opcao_esporte > 3 then
  begin
    writeln('Operacao invalida');
  end;
end.

Simon Viegas · 25 de fevereiro de 2011

Alguem pode em ajudar ? Estou com o seguinte erro na hora de compilar e não sei o problema "/ Sou iniciante em Pascal e aprendi Procedure a poucos dias, si algum poder me ajudar eu agradeço.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

procedure proc_futebol;
var
i: integer;
qnt_jogadores: array[1..15] of string;
begin
for i:= 1 to 11 do
begin
write('Digite o numero');
readln(qnt_jogadores);
end;
end;

procedure proc_basquete;
var
i: integer;
qnt_jogadores: array[1..15] of string;
begin
for i:= 1 to 11 do
begin
write('Digite o numero');
readln(qnt_jogadores);
end;
end;

procedure proc_volei;
var
i: integer;
qnt_jogadores: array[1..15] of string;
begin
for i:= 1 to 11 do
begin
write('Digite o numero');
readln(qnt_jogadores);
end;
end;

var
opcao_esporte: integer;
begin
writeln('Digite qual esporte: ');
writeln('1 - Futebol');
writeln('2 - Basquete');
writeln('3 - Volei');
readln(opcao_esporte);
if opcao_esporte = 1 then
begin
proc_futebol;
end
else if opcao_esporte = 2 then
begin
proc_basquete;
end
else if opcao_esporte = 3 then
begin
proc_volei;
end
else if opcao_esporte > 3 then
begin
writeln('Operacao invalida');
end;
end.

Olá,

BlackSephira, o erro é mais simples que parece. Você só esqueceu de passar as coordenadas dos array nos readln().

[color=#008000]//readln(qnt_jogadores); {falta a posição}[/color]
[color=#000000]readln[/color][color=#000000]([/color]qnt_jogadores[color=#000000][[/color]i[color=#000000]]);[/color]

***

PS: Faltou você postar qual era o erro. Aqui acusou:

Error: Can't read or write variables of this type

Traduzindo:

"Não é possível ler ou escrever as variáveis deste tipo".

O Pascal não sabe ler arrays, mas string sabe!!!

ex.:

qnt_jogadores[1]

.

PS2: Aproveitando, vou passar uma dica:

Como visto, não é possível ler e escreve arrays sem a posição, mas podem-se também trabalhar diretamente com elas.

Ex.:

  [color=#0000ff]var[/color]
    qnt_jogadores1[color=#000000],[/color] qnt_jogadores2 [color=#000000]:[/color] [color=#0000ff]array[/color][color=#000000][[/color][color=#000000]1[/color][color=#000000].[/color][color=#000000].15[/color][color=#000000]][/color] [color=#0000ff]of string[/color][color=#000000];[/color]
  [color=#0000ff]begin[/color]
  qnt_jogadores1[color=#000000]:=[/color]qnt_jogadores1[color=#000000];[/color] [color=#008000]{ele vai igualar posição por posição correspondente}[/color]
  [color=#0000ff]end[/color][color=#000000];[/color];

Assim caso queira copiar um array, você não precisar igualar um por um manualmente. Basta igualar o array todo!!!

No aguardo

Abraços