SoloCodigo

Me mandaron a realizar un programa para la facultad y me dieron este enunciado, necesitaria que alguien lo revisara para ver si esta bien y que se fijara si me falta algo agregar ya que asi me van a tomar el examen.

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.

muchas gracias

pd. hay una parte del enunciado que dice LLuvias 1: Si o 2: No   nose como ponerla en el programa.

Laura

Buenos dias, estoy aprendiendo binario en la facultad y me dieron este ejercicio:
  Proponer  operaciones de suma y resta con
binarios signados en complemento a 2 y M=8
que den por resultado las siguientes
combinaciones de flags de estado. Si alguna de las combinaciones propuestas es imposible, justifique el motivo.

     a    b    c   d   e   f    g    
S   0    0    1   0   1  0    1    
Z   0    0    0   1   0  0    1
C   0    1    0   1   1  1    0
V   0    0    1   0   0  1    0

No pretendo que me resuelvan el ejercicio,mi pregunta es si hay alguna regla para poder darse cuenta sin andar probando numeros...que numero corresponde a cada caso. o de algun metodo.

gracias

LAURA

Buenos dias, estoy aprendiendo binario en la facultad y me dieron este ejercicio:
  Proponer  operaciones de suma y resta con
binarios signados en complemento a 2 y M=8
que den por resultado las siguientes
combinaciones de flags de estado. Si alguna de las combinaciones propuestas es imposible, justifique el motivo.

     a    b    c   d   e   f    g    
S   0    0    1   0   1  0    1    
Z   0    0    0   1   0  0    1
C   0    1    0   1   1  1    0
V   0    0    1   0   0  1    0

No pretendo que me resuelvan el ejercicio,mi pregunta es si hay alguna regla para poder darse cuenta sin andar probando numeros...que numero corresponde a cada caso. o de algun metodo.

gracias

LAURA

buenos dias,mi problema es el siguiente:  tenia un cd en la lectora, y se desintegro quedo partido y desp en pedazitos, saque la lectora le saque los residuos pero aun asi la bandeja de la lectora no corria hasta el final de todo, osea se desplazaba bien pero no llegaba a entrar completamente. quedaba  un poco salida. antes de ponerla encendi la pc. y me resulto raro porque el monitor  cambio la luz de naranja a verde y en la pantalla me aparecio el msj se apagara en 5 segundos. y luego quedo en naranja (como en stand by). a todo esto  el teclado cuando enciendo la pc, se encienden las tres luces y se apagan automaticamente, probe tocar las teclas de bloq mayus o bloq num y otras y no se encienden. lo mas extraño es que en la parte trasera donde tengo los conectores usb hy 4 luces ( de las cuales 3 estan en rojo y una en verde) mirandolo desde adentro hay como algo conectado que dice msi por lo que supongo que debe ser del mother y de ahi salen los conectores. la verdad nose que significan esas luces. el tema es que la pc no hace tonos ni bips nada.. el ruido es normal, por lo que mire no hay nada desconectado.el mouse lo detecta. la verdad nose que puede ser. si alguien me puede decir que es le agradeceria.
estos son algunos datos de mi pc:

mother msi 865pe neo 2-pls(chip intel)
ddr 512 mb 400 pc3200
vga agp msi mx4000 8x 128mb ddr
gabinete vitsuba con fuente 450w
cdrw lg
hd80 gb seagate s-ata150 7200 rpm
intel pentium 4 2.8ghz box bus 800

igualmente creo que mi placa es nvidia
ah y tambien recuerdo que hace unos dias en el msconfig deshabilite que se inicie el servicio de la nvidia, porque me dijeron que no pasaba nada. nose si sera eso?
ah la pantalla no muestra nada. solo ese mensaje.


LAURA
-------------------POST http://foros.solocodigo.com/index.php? HTTP/1.0----------7d62818f4c
Content-Disposition: form-data; name="enableemo"

yes

Escribir un programa en Pascal que sume dos números:
a = 4 b = 3
PROGRAM EJER01;
var a,b,c:INTEGER;
BEGIN
{Empezamos con lo básico, un programa que escribe la suma de 2 numeros
en pantalla}
a:=4;
b:=3;
{Se asigna un valor cualquiera a las variables "a" y "b"}
c:=a+b;
WRITE ©; {Muestra en pantalla el valor de la suma}
END.
PROGRAM EJER1B;
USES CRT;
VAR a,b,c:INTEGER;
BEGIN
ClrScr;
WRITELN ('Este programa suma dos numeros:');
WRITELN (' ');
WRITE ('Introduzca un numero: '); READLN (a);
WRITE ('Introduzca otro numero: ' ); READLN (;
WRITELN (' ');
c:=a+b;
WRITE ('EL RESULTADO ES: ');
WRITE ©;

END.

dudas con respecto a este programa:
writeln (' ') que vendria a significar?
en la sentencia: WRITE ('EL RESULTADO ES: ');
WRITE ©;
porque no le pone writeln al principio en cambio de poner write.
que diferencia hay entre el write y writeln?
En este programa no tendrian que colocarse constantes, ya que le aplico valores? como seria?

bueno estos programas los saque de internet y estoy aprendiendo.. sepas disculpar..si algo resulta muy facil..

laura