Archivo de la etiqueta: Turbo Pascal

Numero primo en Turbo Pascal

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 … Seguir leyendo

Publicado en Turbo Pascal | Etiquetado , , , , | 3 comentarios

Convertir grados Celsius a Farenheit en Turbo Pascal

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

Publicado en Turbo Pascal | Etiquetado , , | 4 comentarios

Validar Fecha

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 … Seguir leyendo

Publicado en Turbo Pascal | Etiquetado , , , , , , , | 1 Comentario

Bisiesto

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 … Seguir leyendo

Publicado en Turbo Pascal | Etiquetado , , , , , , , | 1 Comentario