SoloCodigo

sin usar byte, se puede poner  

WRITE (‘SI LLOVIO INGRESO 1 SINO 2’)
READ('LLUVIA')
IF LLUVIA:= 2 THEN  CL:= CL + 1
ELSE  ( ACA NOSE QUE PONER?)

Te decia porque me lo piden asi: yo hice un bosquejo del programa.. te parece que esta bien?

LLUVIAS (c:\DATOS.TXT)

Uses
       Crt;
Var
      dia,mes,año : = integer;
      TempMax,TempMin: = real;
      Sinllu,men50, mas50: =integer;
      Precipitaciones : = real;
      Porcentaje : = real;
      Acumdias: = integer;
      totallu: = real;
      PromTemp := real;
      Lluvia: = string;
      Datos: = text;
Begin
   Write(‘Ingrese el nombre del archivo: ‘);
   Readln( lluvias)
   sinllu. = 0
            men50: = 0
   mas50: = 0
   totallu
        ClrScr;
Write(´ Ingreso los datos’)
Repeat
   
   Begin
If (precipitaciones =0 ) then sinllu: = sinllu + 1
          Porcentaje:= acumdias * cantdias / 100
Else Write (¨No contar los dias¨);
         
            Begin
If (precipitaciones > 0)  and (precipitaciones < 50)  then   men50: = men50 + 1
Else  Write (´No contar los dias’);
               Begin
If (precipitaciones >=50) then  mas50:= mas50 + 1
Else Write (´No contar los dias¨);
               End;
            End;

      End;
totllu: = totllu + 1
Prom: = Tempmax + TempMin   / 2
Until  cantlluvia < = 0

writeln('CANTIDAD DE DIAS SIN LLUVIA: ',SINLLU);
writeln('CANTIDAD DE DIAS QUE LLOVIO MENOS DE
50mm: ',men50);
writeln('CANTIDAD DE DIAS QUE LLOVIA IGUAL O MAS DE 50
mm ',MAS50);
writeln('PRECIPITACIONES ACUMULADAS ',TOTALLU);
writeln('EL PORCENTAJE DE DIAS SIN LLUVIAS
ES ',);
writeln('PROMEDIO DE TEMPERATURAS');

End.

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

Escribir un programa en Pascal que realice un bucle con While y muestre
en pantalla del 1 al 10.

PROGRAM EJER;
        USES CRT;
        VAR x:INTEGER;
BEGIN
     x:=0;

     ClrScr;

     WHILE X <= 10 DO
     BEGIN
          WRITELN (x);
          x:=x+1;

     END;
END.

Dudas:
¿Porque se usa un begin despues del while?
¿Que vendria a significar esta sentencia, como se veria en pantalla?
WHILE X <= 10 DO
     BEGIN
          WRITELN (x);
          x:=x+1;

     END;    

y el x:=x+1 porque se pone?
Perdonen si son tontas las preguntas, pero empezamos a ver while y encontre un ejercicio y los trate de entender, pero no logro entender  como se arman ni lo que significan.

LAURA

Mi profesora nos dio este ejercicio para hacer.


Escribir un programa en Pascal que lea dos números desde el
teclado y si el primero es mayor que el segundo intercambie sus valores.

PROGRAM EJER;
        USES CRT;

        VAR num1,num2:INTEGER;
BEGIN
        ClrScr;

        WRITELN ('Escriba dos numeros: ');
        READLN (num1);  WRITE ('');    READLN (num2);
        WRITELN ('');

        IF num1 > num2 THEN
        BEGIN
             WRITE(num2,' ',num1,'. El primer numero introducido
      es mayor.');
             WRITE(' Se cambia el orden.');
        ELSE
             WRITE(num1,' ',num2,'. El segundo numero introducido es
      mayor.');
             WRITE(' No se cambia el orden.');
        END;
END.

Pero me dicen que hay que crear una variable auxiliar, asi no se pierde ningun n° al intercambiarlo. Como habria que hacer el ejercicio en este caso?
sldos

Lau

CODE  

Writeln('El area del triangulo es:', area:5:2);
 



Lo que hace el 5, es dejar 5 espacios (' ') entre 'es:' y area
Lo que hace el 2, es mostrar solo los 2 ultimos decimales del numero area.  


Pero para que necesito dejar ese espacio? eso es lo que no entiendo....porque es necesario dejar un espacio de 5 en este ejemplo.... ?

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