PROGRAM EJER HORAS,MINUTOS Y SEGUNDOS

HOLA OTRA VEZ AQUI LES DEJO OTRO PROGRAMITA MUY INTERESANTE.


PROGRAM EJER22;
       USES CRT;

       VAR horas, minutos, segundos:INTEGER;

BEGIN

       horas:= 3700 div 3600;
       minutos:= (3700 mod 3600) div 60;
       segundos:= (3700 mod 3600) - (minutos * 60);


       ClrScr;

       WRITELN ('EN 3700 SEGUNDOS HAY: ');
       WRITE (horas,' hora',' y ',minutos,' minutos ', segundos,
' segundos');
        READLN;

END.

PASCAL

BUENO AQUI LES DEJO OTRO PROGRAMITA.


PROGRAM EJER13;
       USES CRT;
       VAR l1,l2,l3:REAL;
       VAR area,volumen:REAL;

BEGIN
       l1:=3;
       l2:=6;
       l3:=4;

       area:=2 * (l1 * l2)+(2 * (l1 * l3)) + (2* (l2 * l3));
       volumen:= l1 * l2 * l3;

       ClrScr;

       WRITE ('AREA DEL PRISMA:');     WRITELN(area);
                WRITE ('VOLUMEN DEL PRISMA:');   WRITE (volumen);
        READ

  END.

TURBO PASCAL

BUENO AQUI ESTA OTRO PROGRAMA.

PROGRAM EJER11;
       USES CRT;
       VAR radio,altura:REAL;
       VAR area,volumen:REAL;

BEGIN
       radio:=3;
       altura:=6;

       area:= (2 * (3.1416 * radio * radio)) + ((2 * 3.1416 *
radio) * altura);
       volumen:= (3.1416 * radio * radio) * altura;

{podriamos cambiar "radio*radio" por "sqr(radio)" para hacer el
cuadrado del radio}

       ClrScr;

       WRITE ('AREA DEL CILINDRO:'); WRITE (area); WRITELN (' m2');
       WRITE ('VOLUMEN DEL CILINDRO:'); WRITE (volumen); WRITE (' m3');
        READ

END.



ESPERO Y LES SEA UTIL.



NO SELES OLVIDE COMENTAL.

TURBO PASCAL

BUENO AQUI LES DEJO OTRO PROGRAMITA.


PROGRAM EJER21;
       USES CRT;

       VAR T1,T2:REAL;
       VAR T1C,T2F:REAL;
BEGIN
       T1:=32;
       T2:=10;
       T1C:=T1 - 32;
       T2F:=T2 + 32;

       ClrScr;

       WRITE ('TEMPERATURA EQUIVALENTE: ');
       WRITE (T1:3:0);  WRITE ('º Fahrenheit - ');
       WRITE (T1C:3:0); WRITELN ('º Celsius');
       WRITE ('TEMPERATURA EQUIVALENTE: ');
       WRITE (T2:3:0);  WRITE ('º Celsius - ');
             WRITE (T2F:3:0); WRITE ('º Fahrenheit');
        READ

END.



ESPERO Y ESTE ESPACIO LES SEA UTIL.

GRACIAS!!

TURBO PASCAL AREA DE UN TRIANGULO

HOLA BUENO AQUI LES TRAIGO OTRO PROGRAMITA PARECIDO AL ANTERIOR.

BUENO PUES EMPEZAMOS.

PROGRAM EJER04;

       USES CRT;

       VAR base,altura:REAL;

       VAR area:REAL;

BEGIN

       base:=7;

       altura:=4;

       area:=(base * altura) / 2;

       ClrScr;

               WRITE ('AREA DEL TRIANGULO: ');  WRITE (area:5:2);

      {:5:2 sirve para dar el formato de salida al numero, 5

posiciones y 2 decimales}

        READLN;

        

END.

BUENO PUES INSISTO SI ALGUIEN LE INTERESA APRENDER MAS SOBRE ESTO, CON TODA CONFIANZA PUEDE PREGUNTAR.

EJERCICIO 01 PASCAL

EJERCICIOS EN TURBO PASCAL!

BUENO PUES COMENZAMOS.

PROGRAM EJER3B;

USES CRT;

VAR lado1,lado2:REAL;

VAR area:REAL;

BEGIN

  ClrScr;

 WRITELN ('Escriba los lados del rectangulo');

 READ (lado1);

          READ (lado2);

  WRITELN (' ');

area:=lado1*lado2;

 WRITE ('AREA DEL RECTANGULO:');  WRITE (area:5:2);

   READLN;

END.

BUENO PUES COMO PUEDEN VER SOLO LES DOY YA ECHO EL PROGRAMA Y PS ES LO QUE SE VERA EN ESTE ESPACIO YA QUE ME ENCONTRADO GENTE QUE SOLO HACE LO TIPOCO "COPIAR Y PEGAR" PERO SI ALGUIEN QUIERE ALGO MAS EXPLISITO PUEDEN COMENTAR Y YO CON GUSTO LES AYUDO O SI BIEN TIENEN ALGUNA DUDA O ALGUN PROBLEMA Y NO SABEN COMO SOLUCIONARLO COMENTEN Y YO GUSTOSO LOS AYUDO.

BUENO ESPERO Y RECIBIR SUS COMENTARIOS BUENOS Y MALOS.

GRACIAS!!

PROGRAMA TURBO PASCAL

HOLA BUENO PUES ESTE ES MI PRIMER POST.

BUENO PUES ANTES QUE NADA LES DEJO EL PROGRAMA TURBO PASCAL 

AQUI LES DEJO EL LINK.