Ejercicios resueltos de Pascal

Comparto los siguientes ejercicios resueltos en lenguaje de programación Pascal.




1. Una compañía de construcción quiere hacer un programa que ayude a los granjeros que quieran hacer corrales en forma rectangular para sus animales, a partir de las dimensiones del espacio, se desea saber el área que ocupara en el terreno.

program construccion;
uses crt;
var
  ancho, largo:real;
  area:real;
  z :integer;
Begin
     writeln(' . : Constructora de corrales : .');
     writeln;
     writeln('Ingrese las dimensiones del corral que desea construir ');
     write('Ingrese el largo del corral: ');
     read(largo);
     write('Ingrese el ancho del corral: ');
     read(ancho);
     area:=largo*ancho;
     writeln;
     write('El area que ocupara el corral es de: ');
     write(area:3:2);
    read(z);
end.

2. Se desea saber el área un una circunferencia a partir de sus dimensiones, realice un programa que resuelva dicho planteamiento. (área de la circunferencia = pi * radio*radio, utilice pi=3,1415)


program areacircunsferencia;
uses crt;
var
  radio:real;
  area:real;
  z :integer;
Begin
     writeln(' . : Calcula el area de una circunsferencia : .');
     writeln;
     write('Ingrese el radio de la circunsferencia: ');
     read(radio);

     area:=3,1415*radio*radio;
     writeln;
     write('El area de la circunsferencia es: ');
     write(area:3:2);
    read(z);
end.

3. Realice un programa en pascal que muestre la factura de compra de dos artículos de acuerdo a la cantidad y precio. Muestre el nombre del artículo, precio, cantidad comprada, subtotal, iva y total a pagar


program Facturas;
uses crt;

var
cant1,precio1,cant2,precio2: integer;
articulo1,articulo2:real;
iva,subt,total:real;
z:integer;

begin
     writeln('*-Factura de compras: ');
     writeln;
     write('Ingrese la cantidad de guitarra a comprar: ');
     read(cant1);
     write('Ingrese el precio unitario de la guitarra: ');
     read(precio1);
     write('Ingrese la cantidad de pianos a comprar: ');
     read(cant2);
     write('Ingrese el precio unitario de los pianos: ');
     read(precio2);
     articulo1:=cant1*precio1;
     articulo2:=cant2*precio2;
     subt:=articulo1+articulo2;
     iva:=subt*12/100;
     total:=subt+iva;
     writeln('Descripcion de la compra: ');
     write('subtotal: ');
     write(subt:2:3);
     writeln;
     write('Iva');
     write(iva:2:3);
     writeln;
     write('Total a pagar: ');
     write(total:2:3);
     writeln;
     read(z);
end.

4.- Realizar un programa que lea un numero del 1 al 7 y me indique que día de la semana corresponde.


program dia;
uses crt;
var
   n:integer;
   z:integer;
begin
     writeln('Identifica que dia de la semana seleccionaste');
     writeln;
     write('Ingresa un numero del 1 al 7: ');
     read(n);

     if(n=1)then
     begin
          writeln('El dia es Lunes');
     end;
     if(n=2)then
     begin
          writeln('El dia es Martes');
     end;
     if(n=3)then
     begin
          writeln('El dia es Miercoles');
     end;
     if(n=4)then
     begin
          writeln('El dia es Jueves');
     end;
     if(n=5)then
     begin
          writeln('El dia es Viernes');
     end;
     if(n=6)then
     begin
          writeln('El dia es Sabado');
     end;
     if(n=7)then
     begin
          writeln('El dia es Domingo');
     end;
     if(n>7)then
     begin
          writeln('Opcion invalida');
     end;
     read(z);
end.

5. Realiza un programa que lea la nota de un estudiante y me diga el literal que corresponde de acuerdo a la siguiente tabla:

Nota	Literal
19 y 20	A
15 al 18	B
10 al 14	C
0 al 9	D

program notas;
uses crt;
var
   nota,z:integer;
begin
     writeln('Ingresa tu nota y sabras a que literal corresponde');
     writeln;
     write('Tu nota es: ');
     read(nota);
     writeln;
     if((nota>=19)and(nota<=20))then
     begin
          write('Tu nota corresponde al literal A');
     end;
     if((nota>=15)and(nota<=18))then
     begin
          write('Tu nota corresponde al literal B');
     end;
     if((nota>=10)and(nota<=14))then
     begin
          write('Tu nota corresponde al literal C');
     end;
     if((nota>=0)and(nota<=9))then
     begin
          write('Tu nota corresponde al literal D');
     end;
     read(z);
end.

6.- Realizar un programa que me permita mostrar la factura de compra de una pizzeria de acuerdo a la siguiente tabla:

Tamaño	Costo
Grande	800
Mediana	600
Pequeña	400

program pizzeria;
uses crt;
var
   ncant,tipo:integer;
   subt,iva,total:real;
   z:integer;
begin
     writeln('   .   :  Pizzeria Los Informaticos C.A.   :   .   ');
     writeln;
     writeln('Menu: (1) Grande (2) Mediana (3) Pequena');
     write('Opcion: ');
     read(tipo);
     writeln;
     writeln('Cantidad de pizzas a pagar: ');
     read(ncant);
     if(tipo=1)then
     begin
          subt:=ncant*800;
          iva:=subt*12/100;
          total:=subt+iva;
     end;
     if(tipo=2)then
     begin
          subt:=ncant*600;
          iva:=subt*12/100;
          total:=subt+iva;
     end;
     if(tipo=3)then
     begin
          subt:=ncant*400;
          iva:=subt*12/100;
          total:=subt+iva;
     end;
     writeln;
     writeln('Descripcion de la compra');
     write('Subtotal: ');
     writeln(subt:3:2);
     write('I.V.A.: ');
     writeln(iva:3:2);
     write('Total: ');
     writeln(total:3:2);
     read(z);
end.

7. Realiza las tablas de multiplicar de un número solicitado al usuario.