Dephi...?

8 respostas
J

Galera ta dando um erro na hora de compilar esse código, o erro é na variavel vet…
o que pode ser?

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
     vet : array[1..12] of integer;
     chuvas : vet;
     cont: integer;
     media_chuvas, media_seca, soma_chuva, soma_seca: real;


begin
     for cont:= 1 to 12 do
        writeln ('Informe o volume de chuvas do mês', cont);
        readln (chuvas[cont]);
     end;


     soma_chuva := 0;
     soma_seca:=0;

     for cont := 1 to 12 do
       soma_chuva:= soma_chuva + soma_chuva[cont];
       if (cont >= 4 and cont <= 8) then
           soma_seca:= soma_seca + chuvas[cont];
       end;
     end;
     media_chuvas := soma_chuvas/12;
     media_seca := soma_seca/5;
     writeln ('As medias de chuvas anual é de', media_chuvas, 'e na seca', media_seca);
end.

e tabem ta dando erro no end do primeiro for…

desde já grato.

8 Respostas

J

galera o esquema do array eu consegui, já vi meu erro hehehe…

tnaires

Olá
Acho que o erro está nessa linha:

vet não é um tipo válido, é uma variável.

tnaires

OK, só vi sua resposta depois que respondi.

J

Galera ainda ta dando um erro no end do primeiro for, ja tentei mudar de varios tipos
mais nada… tentem compilar para ver o erro, se puderem me ajudem

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  type vet =  array[1..12] of integer;
   var
     chuvas : vet;
     cont: integer;
     media_chuvas, media_seca, soma_chuva, soma_seca: real;


begin
     for cont:= 1 to 12 do
        writeln ('Informe o volume de chuvas do mês', cont);
        readln (chuvas[cont]);
     end;

     soma_chuva:=0;
     soma_seca:=0;
             for cont := 1 to 12 do

                 soma_chuva:= soma_chuva + chuvas[cont];
                    if (cont>=4 and cont<=8) then
                        soma_seca:= soma_seca + chuvas[cont];

                              media_chuvas := soma_chuvas/12;
                              media_seca := soma_seca/5;
                              writeln ('As medias de chuvas anual é de', media_chuvas, 'e na seca', media_seca);
end.
ViniGodoy

Você pode dizer que erro está dando?

ViniGodoy

Faltou begin no primeiro for.

for cont:= 1 to 12 do begin writeln ('Informe o volume de chuvas do mês', cont); readln (chuvas[cont]); end;

Aparentemente, você repete esse erro para o outro for e para o if também.

Andre_Brito

Cara, nunca lidei com Delphi, mas no Pascal eu sei que tem que ter um begin depois do for se existir mais de uma linha dentro deste. Tenta colocar o begin ali.

ViniGodoy

A linguagem é a mesma.

Acrescenta apenas a parte da criação de classes. A linguagem Delphi era até chamada de Object Pascal até uns tempos atrás.

Criado 3 de setembro de 2009
Ultima resposta 3 de set. de 2009
Respostas 8
Participantes 4