Jamon del Medio: Turbo Pascal

Numero primo en Turbo Pascal

Tue, 09 Oct 2007 02:12:59 GMT

PROGRAM PRIMO;
{*TO VERIFY IF A NUMBER IS PRIME UP TO MAX LONGINT=2147483647 (-1)*}
USES
    CRT;
VAR
   PRI:BOOLEAN;
   X,I,INEW,ITER:LONGINT;
BEGIN
   CLRSCR;
   WRITELN('.............................................');
   WRITELN('.Rutina para verificar si un número es primo.');
   WRITELN('.............................................');
   WRITELN;
   WRITE('Ingrese un número entero: ');
   READLN(X);
   IF (X MOD 2 = 0) AND (X > 2) THEN
      BEGIN
           WRITELN;
           WRITELN('El número ingresado es divisible por 2.');
           READKEY;
      END
   ELSE;
        BEGIN
             WRITELN;
             I:=2;
             PRI:=TRUE;
        WHILE PRI AND (I < X) DO
              BEGIN
                   IF (X MOD I = 0) THEN
                      PRI:=FALSE;
                      INEW:=I;
                      I:=I+1;
                      ITER:=ITER+1;
              END;
        END;
        IF PRI THEN
           BEGIN
                WRITELN(X, ' es número PRIMO.');
                WRITELN;
                WRITELN('Iteraciones: ', ITER);
                READKEY;
           END
        ELSE
            BEGIN
                 WRITELN(X, ' es igual a ', INEW, ' * ', (X DIV INEW));
                 WRITELN;
                 WRITELN('Iteraciones: ', ITER);
                 READKEY;
            END
     END.
X:=0;
INEW:=0;
END.

Libros recomendados:

Pascal y Turbo Pascal, enfoque práctico - Joyanes Aguilar Luis
Editorial: Mc. Graw Hill (España)
ISBN:84-481-1895-2
Idioma: Castellano
Páginas: 752
Peso estimado: 500 gramos

Comprar

Convertir grados Celsius a Farenheit en Turbo Pascal

Thu, 27 Sep 2007 00:15:36 GMT

PROGRAM FARENHEI;

{*TURN DEGREE CELSIUS IN FARENHEIT*}
USES
       CRT;
VAR
      C,F:REAL;
BEGIN
         CLRSCR;
         WRITE('Ingrese temperatura en grados Celsius: ');
         READLN(C);
         WRITELN;
         WRITELN;
         WRITELN;
         WRITE('La temperatura ingresada corresponde a ', (9/5)*C+32:2:1, ' ºF');
         READKEY;
END.

Tags: Pascal Celsius Farenheit

Add to Technorati Favorites

Mover asignaciones en Turbo Pascal

Wed, 26 Sep 2007 04:51:17 GMT

PROGRAM MOVER;
{*MOVE ASIGNATIONS*}
USES
        CRT;
VAR
       UNO,DOS,TRES,CUATRO,CINCO,AUX:INTEGER;
BEGIN
         CLRSCR;
         UNO:=100;
         DOS:=UNO+UNO;
         TRES:=DOS+UNO;
         CUATRO:=TRES+UNO;
         CINCO:=CUATRO+UNO;
         WRITELN('UNO= ', UNO:3 , ' DOS= ', DOS:3 , ' TRES= ', TRES:3 , ' CUATRO= ', CUATRO:3 , ' CINCO= ', CINCO:3 );
         WRITELN;
         WRITELN('Si desplazamos los valores un lugar....');
         READKEY;
         AUX:=UNO;
         UNO:=DOS;
         DOS:=TRES;
         TRES:=CUATRO;
         CUATRO:=CINCO;
         CINCO:=AUX;
         WRITELN;
         WRITELN('-----------------------------------------------------------------------------');
         WRITELN;
         WRITELN('UNO= ', UNO:3 , ' DOS= ', DOS:3 , ' TRES= ', TRES:3 , ' CUATRO= ', CUATRO:3 , ' CINCO= ', CINCO:3 );
         READKEY;
END.

Blog and Blogs

Tags: Pascal Asignaciones

Add to Technorati Favorites

Intercambiar asignaciones en Turbo Pascal

Sat, 15 Sep 2007 02:43:52 GMT

Rutina para intercambiar el valor de las variables A=8; B=7

PROGRAM INTERCHA;

{*Interchange values between two asignations*}

USES

CRT;

VAR

A,B,C,AUX:=INTEGER;

BEGIN

CLRSCR;

WRITELN(‘Primero asignamos A=8 Y B=7’);

WRITELN(‘Presione una tecla para continuar’);

READKEY;

WRITELN(‘Luego intercambiamos las asignaciones’);

WRITELN(‘Presione una tecla para continuar’);

READKEY;

AUX:=B;

A:=8;

B:=7;

C:=A-B;

AUX:=A;

A:=B;

B:=AUX;

WRITELN(‘El valor de A es: A’);

WRITELN(‘El valor de B es: B’);

READKEY;

END.

Rutina para intercambiar valores dentro de un arrays

PROGRAM INTERCHB;
{*Interchange values between two asignations*}
USES
    CRT;
VAR
    VEC:ARRAY[1..3] OF INTEGER;
    I:INTEGER;
BEGIN
     CLRSCR;
     WRITELN('Primero asignamos A=8 y B=7');
     VEC[1]:=8;
     VEC[2]:=7;
     WRITELN;
     FOR I:=1 TO 2 DO
         WRITE(VEC[I]:1, ' ');
     WRITELN;
     WRITELN;
     WRITELN('Presione una tecla para continuar');
     READKEY;
     WRITELN;
     WRITELN('Luego intercambiamos las asignaciones');
     WRITELN;
     VEC[3]:=VEC[1];
     VEC[1]:=VEC[2];
     VEC[2]:=VEC[3];
     WRITELN('Presione una tecla para continuar');
     READKEY;
     WRITELN;
     WRITELN(':-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:');
     WRITELN;
     FOR I:=1 TO 2 DO
         WRITE(VEC[I]:1, ' ');
     READKEY;
END.

Ejemplo en Python 2.5

""" Interchange value between A and B"""

A = input ("Introduzca el valor de A: ")
B = input ("Introduzca el valor de B: ")
A=A+B
B=A-B
A=A-B
print "El valor de A es: ",A
print "El valor de B es: ",B

Libros recomendados:

Pascal y Turbo Pascal, enfoque práctico - Joyanes Aguilar Luis
Editorial: Mc. Graw Hill (España)
ISBN:84-481-1895-2
Idioma: Castellano
Páginas: 752
Peso estimado: 500 gramos

Comprar

Tags: Blogalaxia Turbo+Pascal+asignaciones

Add to Technorati Favorites

Validar Fecha

Fri, 08 Jun 2007 03:18:52 GMT

Para validar una fecha, el pseudocódigo debería tener en cuenta lo siguiente: si es que el año no es bisiesto, el mes 2 (febrero) no tenga más de 28 días. Que los meses menores a julio y pares no tengan más de 30 días, o que los meses impares superiores a agosto tampoco superen los 30 días. En ningún caso el mes puede tener más de 31 días, el mes no puede ser superior a 12 y el cálculo de bisiesto que hicimos antes sólo es válido desde 1582 (año en que se instaura el calendario gregoriano). Dos ejemplos en Turbo Pascal, el segundo más largo con uso de arrays:

PROGRAM VALIDATE;

{*VALIDATE DATE GIVEN*}

USES

CRT;

VAR

D,Y,X:REAL;

M:INTEGER;

MES:STRING;

VAL:BOOLEAN;

BEGIN

CLRSCR;

WRITELN('Rutina para validar una fecha dada.');

WRITELN;

WRITE('Ingrese el número del día (entre 1-31): ');

READLN(D);

WRITE('Ingrese el número del mes (entre 1-12): ');

READLN(M);

WRITE('Ingrese el número del año (superior a 1582): ');

READLN(Y);

WRITELN;

WRITELN('-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-');

WRITELN;

X:=FRAC((Y/4)-(Y-100)+(Y/400));

IF NOT(FRAC(X)=0.0) AND (M=2) AND (D>28) THEN

WRITELN('Fuera de rango: año no bisiesto, no corresponde febrero de 29 días')

ELSE IF ((M<=7) AND (FRAC (M/2) = 0.0) AND (D>30)) OR ((M>=8) AND (FRAC(M/2) <> 0.0) AND (D>30)) THEN

WRITELN('El mes introducido no corresponde con la cantidad de días')

ELSE IF ((D<0) OR (D>31)) OR ((M<0) OR (M>12)) OR (Y<1582) THEN

WRITELN('Cantidad de días errónea, o mes o año fuera de rango')

ELSE VAL:=TRUE;

CASE M OF

1:MES:='enero';

2:MES:='febrero';

3:MES:='marzo';

4:MES:='abril';

5:MES:='mayo';

6:MES:='junio';

7:MES:='julio';

8:MES:='agosto';

9:MES:='setiembre';

10:MES:='octubre';

11:MES:='noviembre';

12:MES:='diciembre';

END;

IF (VAL=TRUE) THEN

WRITELN('La fecha introducida es v lida: ', D:2:0, (' de '), MES, (' de '), Y:4:0);

READKEY;

END.

PROGRAM VALIDAT2;

{*VALIDATE DATE GIVEN WITH ARRAYS*}

USES

CRT;

VAR

A:ARRAY[1..12] OF INTEGER;

Y,X:REAL;

D,M:INTEGER;

MES:STRING;

VAL:BOOLEAN;

BEGIN

CLRSCR;

A[1]:=31;

A[2]:=29;{*AS LIMIT*}

A[3]:=31;

A[4]:=30;

A[5]:=31;

A[6]:=30;

A[7]:=31;

A[8]:=31;

A[9]:=30;

A[10]:=31;

A[11]:=30;

A[12]:=31;

WRITELN('Rutina para validar una fecha dada.');

WRITELN;

REPEAT

WRITE('Ingrese el número del día (entre 1-31): ');

READLN(D);

UNTIL (D>=1) AND (D<=31);

VAL:=TRUE;

REPEAT

WRITE('Ingrese el número del mes (entre 1-12): ');

READLN(M);

IF (M<1) OR (M>12) THEN

BEGIN

WRITELN('No corresponde mes ingresado.');

VAL:=FALSE

END

ELSE IF (D>A[M]) THEN

BEGIN

WRITELN('La cantidad de días no corresponde al mes ingresado');

VAL:=FALSE

END

ELSE VAL:=TRUE;

UNTIL VAL=TRUE;

REPEAT

WRITE('Ingrese el número del año (superior a 1582): ');

READLN(Y);

UNTIL (Y>=1582);

WRITELN;

WRITELN('-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-');

WRITELN;

IF (M=2) AND (D=29) THEN

X:=FRAC((Y/4)-(Y-100)+(Y/400));

IF NOT(FRAC(X)=0.0) THEN

BEGIN

WRITELN('Fuera de rango: año no bisiesto, no corresponde febrero de 29 días');

VAL:=FALSE

END;

CASE M OF

1:MES:='enero';

2:MES:='febrero';

3:MES:='marzo';

4:MES:='abril';

5:MES:='mayo';

6:MES:='junio';

7:MES:='julio';

8:MES:='agosto';

9:MES:='setiembre';

10:MES:='octubre';

11:MES:='noviembre';

12:MES:='diciembre';

END;

IF (VAL=TRUE) THEN

WRITELN('La fecha introducida es válida: ', (D):2, (' de '), MES, (' de '), Y:4:0);

READKEY;

END.

La web del Programador

emagister.com

Blogalaxia Validar+Fecha Turbo+Pascal

Algoritmos y Programación I UBA

Turbo Pascal en Jamon del Medio

Libros recomendados:

Programacion en Pascal - Joyanes Aguilar Luis
Editorial: Mc. Graw Hill (España)
ISBN:84-481-5041-4
Idioma: Castellano
Páginas: 800
Peso estimado: 1000 gramos

Comprar

Tags: Pascal gregoriano

Add to Technorati Favorites

Bisiesto

Tue, 24 Apr 2007 13:43:23 GMT

Durante el siglo XIV, se instauró el calendario gregoriano. Dichosos de aquellos que estaban en cercanías de la capilla, pues otros pueblos de la misma Europa, contabilizaban los años con un desfasaje muy superior o inferior al que corrige la reforma promovida por el Papa Gregorio XIII. Según fuentes, en aquellos pueblos más alejados, algunos agricultores según el calendario, estaban en pleno invierno, pero el clima les decía que estaban en pleno verano y más aún, no habían levantado la cosecha. Los agricultores hicieron los piquetes correspondientes en la capilla más cercana y batiendo el almanaque gritaban a viva voz: “Este software no funciona”, o “Error semántico”. Con tanta alharaca, dicen que un eclesiástico se asomó y les dijo: “Cuando este mes se termine, lo repetimos de nuevo, y joder hombre, todos a sus casas y en orden, sino volvemos a cobrar el diezmo”…., Como este blog tiene un fuerte contenido de servicio, les acercamos tres códigos, dos en Turbo Pascal 7.0 y uno en Python 2.5 no valla a ser que alguno no esté al tanto de la fecha oficial y se embaucado o hackeado en su más íntimo pecuño.

PROGRAM BISIESTO;

{*EVALUATE IF A GIVEN YEAR IS LEAP OR NOT*}

USES

CRT;

VAR

Y:INTEGER;

BEGIN

CLRSCR;

WRITELN;

WRITELN('Rutina para determinar si un año es bisiesto o no');

WRITELN;

WRITE('Introduzca un año superior a 1582: ');

READLN(Y);

IF (Y MOD 4 = 0) AND (Y MOD 100 <> 0) OR (Y MOD 400 = 0) THEN

BEGIN

WRITELN('El año ', Y:4, ' ES bisiesto');

READKEY;

END

ELSE

BEGIN

WRITELN('El año ', Y:4, ' NO es bisiesto');

READKEY;

END

END.

PROGRAM BISIEST2;

{*EVALUATE IF A GIVEN YEAR IS LEAP OR NOT. NOTE: GREGORIAN CALENDAR IS EFFECTIVE FROM 1582. SOURCE: WIKIPEDIA. CONCEPT FROM THE SAME SOURCE: 1 / 4 – 1 / 100 + 1 / 400*}

USES

CRT;

VAR

Y,X:REAL;

BEGIN

CLRSCR;

WRITELN;

WRITELN('Rutina para determinar si un año es bisiesto o no');

WRITELN;

WRITE('Introduzca un año superior a 1582: ');

READLN(Y);

X:=FRAC ((Y/4)-(Y/100)+(Y/400));

IF (FRAC(X) = 0.0) THEN

BEGIN

WRITELN('El año ', Y:4:0, ' ES bisiesto');

READKEY;

END

ELSE

BEGIN

WRITELN('El año ', Y:4:0, ' NO es bisiesto');

READKEY;

END

END.

BISIESTO.PY

#EVALUATE IF IS A LEAP YEAR OR NOT#

print "Vamos a evaluar si un año es bisiesto o no"

R = int(input("Ingrese un año superior a 1582: "))

if (R % 4)==0 and (R % 100)<>0 or (R % 400)==0:

print("El año ES bisiesto:"), R

else:

print("El año NO es bisiesto"), R

Fundació Observatori Esteve Duran

Aquí puedes comprobar si un año, o un intervalo de años, son bisiestos o no. (on-line)

Libros recomendados:

Historia del calendario - Ewing Duncan, David
Editorial: Emecé
ISBN: 950-04-2063-5
Páginas: 303
Peso estimado: 395 gr.

Comprar

Blogalaxia Tags: Blogalaxia Bisiesto

Add to Technorati Favorites