tipo cadena

Tipo cadena

Las cadenas son secuencias de caracteres o arreglos que tienen una longitud maxima de 255 caracteres. Se definen entre apostrofes. El tipo de Pascal para las cadenas es String.

PROGRAM Cadena; VAR Nombre : String; BEGIN Nombre := 'Ernesto Chávez'; WriteLn (Nombre); END.

Este programa guarda la cadena 'Ernesto Chávez' en la variable definida como tipo string, y la visualiza en la pantalla por medio de la instrucción WriteLn.q                     

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.

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.