3 replies to this topic

[Anderson lucas]

Criar um programa usando vetores que tenha como entrada nome(quantos quiser) e idade(a msma quantidade de nomes) no final mostrar a media das idades,a maior e a menor idade.Bom fiz tudo certinho mais na hora de rodar da erro da uma luz ai q eu n to conseguindo identificar onde é.No delphi ta disendo incompatible types mas a(s) variável(is)(Vetor)sao iguais.

var
nome:array[1..3]of string;
idade:array[1..3]of integer;
i:integer;
im:real;
begin
for i:=1 to 3 do
begin
writeln('escreva o nome');
readln(nome[i]);
writeln('escreva a idade');
readln(idade[i]);
end;
im:=(idade[1]+idade[2]+idade[3])/3;
writeln(im:2:2);
if idade[1]<idade[2] and idade[1]<idade[3]then
begin
writeln('a menor idade é:',idade[1]);
end
else if idade[2]<idade[1] and idade[2]<idade[3]then
begin
writeln('a menor idade é:',idade[2]);
end
else
begin
writeln('a menor idade é:',idade[3]);
end;
if idade[1]>idade[2] and idade[1]>idade[3]then
begin
writeln('a maior idade é:',idade[1]);
end
else if idade[2]>idade[1] and idade[2]>idade[3]then
begin
writeln('a maior idade é:',idade[2]);
end
else
begin
writeln('a maior idade é:',idade[3]);
end;
readln;
end.

ta dando erro nas linhas
if idade[1]<idade[2] and idade[1]<idade[3]then
(incompatible types)
else if idade[2]<idade[1] and idade[2]<idade[3]then
(incompatible types)
if idade[1]>idade[2] and idade[1]>idade[3]then
(incompatible types)
else if idade[2]>idade[1] and idade[2]>idade[3]then
(incompatible types)

[LeoB]

Use parênteses nas condições:

if (idade[1] < idade[2]) and (idade[1] < idade[3]) then
...
else if (idade[2] < idade[1]) and (idade[2] < idade[3]) then
...

[Anderson lucas]

vlw pela ajuda ai mto obrigado msmo pow teve uma prova e eu fiz isso mas depois fui passa pro delphi e deu erro entaum acho q fui mau na prova

[LeoB]

Isso na verdade é uma particularidade dessa linguagem. Se fosse em qualquer outra, muito provavelmente seu código teria funcionado. Quero dizer, não foi um problema de lógica, que é o que mais importa.