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!!