[ Foro de Pascal ]
Hola a todos
Me pueden decir porque me salta este error 'until expected but identifier found'
program punto10;
var
temperatura, contador1, contador2, temp, contador: integer;
promedio, promparcial: real;
respuesta: char;
begin
contador1 := 0;
contador2 := 0;
temp := 0;
promedio := 0;
contador := 0;
repeat
writeln ('ingrese la temperatura de una caldera}: ');
readln (temperatura);
if (temperatura >= 25) and (temperatura >=100) then
begin
temp := temp + temperatura;
contador1 := contador1 + 1;
promparcial := temp / contador1;
end
else
begin
writeln ('se encuentra fuera del rango permitido');
contador2 := contador2 + 1;
end
writeln ('Desea ingresar mas datos: S/N');
readln (respuesta);
until (respuesta = 'n');
promedio := promparcial;
contador := contador2;
writeln ('El promedio total de temperatura es : ', promedio);
writeln ('La cantidad de temperaturas fuera de rango: ', contador);
readln;
end'
No lo puedo probar ahora ¿En qué número de línea te da el error? Por ejemplo, te falta un punto y coma en el end de else (y la lógica del if parece incorrecta). También está mal el último end...
(No se puede continuar esta discusión porque tiene más de dos meses de antigüedad. Si tienes dudas parecidas, abre un nuevo hilo.)