Pascal/Turbo Pascal - ayuda con el error 26 urgente

   
Vista:

ayuda con el error 26 urgente

Publicado por eduardo (3 intervenciones) el 16/08/2008 16:34:11
nececito saber por que me aparece el error 26 en esto:
me aparece el cursor antes de " v[i] " que está en el primer for

program practico001;
uses wincrt;
type
temperatura=record
dias:integer;
tempmin:real;
tempmax:real;
end;
var
temp : temperatura;
archivo: file of temperatura;
dias:integer;
cant:integer;
i:integer;
suma:integer;
promedio:integer;
cont:integer;
v:array [1..31] of integer;
begin
assign(archivo,'c: emperatura.dat');
reset(archivo);
while not (eof(archivo)) do begin
read(archivo,temp);
write(temp.dias);
write(temp.tempmax);
write(temp.tempmin);
for i:=1 to 31 do begin
promedio:=(temp.tempmax)+(temp.tempmin)/2
v[i]:=promedio;
end;
suma:=0;
promedio:=0;
for i:=1 to 31 do begin
suma:=suma+v[i];
promedio:=suma/31;
end;
for i:=1 to 31 do begin
if v[i]>promedio then
cont:=cont+1
writeln('dias que superaron el promedio:',i);
end;
end;
porcentaje:=cont*31/100;
writeln('el porcentaje es: ',porcentaje);
write('cerrando archivo');
close(archivo);
end.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con el error 26 urgente

Publicado por Diego Romero (997 intervenciones) el 16/08/2008 16:57:36
Te falta un punto y coma en la línea anterior.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con el error 26 urgente... más

Publicado por Diego Romero (997 intervenciones) el 16/08/2008 16:59:34
Otra cosa. La variable "promedio" es de tipo integer. Estás haciendo una división real en esa variable. Lo correcto es:

promedio:=(temp.tempmax+temp.tempmin) div 2;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar