Archivo de la categoría: Turbo Pascal

FOR en Turbo Pascal

Publicado el abril 25, 2010 por flomana

Un puesto de venta mayorista de manzanas comienza el mes con un stock de 148 cajones. Todos los días ingressan al puesto la cantidad de cajones para reponer el stock y diariamente se realizan ventas. Ingresar día por día la … Seguir leyendo →

Publicado en Turbo Pascal | Deja un comentario

FOR anidado en Turbo Pascal

Publicado el abril 25, 2010 por flomana

Se tiene una comisión de 25 alumnos en la materia Programación Lógica y se tomarán 5 examenes. Ingresar las notas de cada alumno y deacuerdo a su promedio mostrar respectivamente por pantalla aprobado o desaprobado. Además mostrar la cantidad de … Seguir leyendo →

Publicado en Turbo Pascal | Deja un comentario

IF.. THEN… ELSE en Turbo Pascal

Publicado el abril 17, 2010 por flomana

Entorno: Windows XP SP3Turbo Pascal for Windows 1.5 Uso del IF anidadoUSESWINCRT;VARPASADA,MENORES,NUM1,NUM2:INTEGER;BEGIN{PROGRAM TO READ 10 PAIRS OF NUMBERS, PRINT THE MAYOR AND ACUMULATE THE MINOR}PASADA:=0;REPEAT      PASADA:=PASADA+1;      WRITE (‘Ingrese el valor de un nùmero: ‘);      READLN(NUM1);      WRITE (‘Ingrese elvalor de otro … Seguir leyendo →

Publicado en Turbo Pascal | Deja un comentario

Numero primo en Turbo Pascal

Publicado el octubre 9, 2007 por flomana

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

Publicado el septiembre 27, 2007 por flomana

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