pd. hay una parte del enunciado que dice LLuvias 1: Si o 2: No nose como ponerla en el programa.Siguiendo tu planteo sería así:
se puede usar archivos secuenciales para hacer este ejercicio.? ej lluvias.dat como seria el ejercicio?Yo creo que deberías usar archivos de algun tipo, tanto de texto (acceso secuencial) como binario (acceso aleatorio).
ESTA BIEN HECHO ASI? CUALES SON LOS ERRORES?Si compila, y hace lo que tiene que hacer, entonces no veo cual es el problema.
1) Ingresar Datos
2)Ver dias con lluvia
3)Ver temperatura promedia
4)Ver mm precipitados promedio
5),.....etc....
6)Salir
TotalDias: Integer;
DiasLluvia: Integer;
Lluvia: Byte; // 1 o 2
........ leiste todos los datos
TotalDias := TotalDias + 1;
if Lluvia = 1 then DiasLLuvia := DiasLluvia+1;
.... otras cosas
DiasNoLluvia := TotalDias - DiasLluvia;
sin usar byte, se puede ponery para que quieres ponerle algo si realmente no tienes que poner nada?!!!!!!
WRITE (‘SI LLOVIO INGRESO 1 SINO 2’)
READ('LLUVIA')
IF LLUVIA:= 2 THEN CL:= CL + 1
ELSE ( ACA NOSE QUE PONER?)
y para que quieres ponerle algo si realmente no tienes que poner nada?!!!!!!