Pascal/Turbo Pascal - archivos secuenciales

 
Vista:

archivos secuenciales

Publicado por lAURA (18 intervenciones) el 10/08/2006 13:22:19
se puede usar archivos secuenciales para hacer este ejercicio.? ej lluvias.dat como seria ?

Realizar un programa en lenguaje pascal que permita a un operador registrar diariamente en una estacion meteorologica los siguientes datos: numero del dia, numero del mes,año, Temperatura Maxima, Temperatura Minima,Lluvias: 1:Si o 2:No, Precipitaciones: se tiene el registro de cuanta lluvia cayo en un dia.

Si precipitaciones es menor o igual a cero significa que no llovio.
Informar por pantalla cada uno con su titulo indicativo.
1)cuantos dias hubo sin lluvia?
2)cuantos dias llovio menos de 50mm?
3)cuantos dias llovio 50 mm o mas?
4)cual es el porcentaje de dias sin lluvias?
5)Cantidad total de precipitaciones registradas?
6)temperaturas promedios diarias

Program lluvias;

Uses
Crt;
Var
Numdia,Nummes,Año : = integer;
TempMax,TempMin: = real;
Lluvias,LluviaN: =
Cantlluvia: = real;
Cantdias: = integer;
Porcentaje : = real;
Acumdias: = integer;
Cantot: = real;
PromTemp := real;
Begin
ClrScr;
Write(´ Ingreso los datos’)
Repeat
Writeln(´cantlluvia´);
Cantlluvia: = cantlluvia + 1;
Begin
If cantlluvia=0 then cantdias: = cantdias + 1
Porcentaje:= acumdias * cantdias / 100
Else Write (¨No contar los dias¨);

Begin
If cantlluvia< 50 then cantdias: = cantdias + 1
Else Write (´No contar los dias’);
Begin
If cantlluvia>=50 then cantdias:= cantdias + 1
Else Write (´No contar los dias¨);
End;
End;
End;
Cantot: = cantot + 1
Prom: = Tempmax + TempMin / 2
Until cantlluvia < = 0
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