Programa de areas de Poligonos

program areas;
uses crt;
var opcion :char;
procedure circulo;
var r:integer;
    a:real;
begin
    clrscr;
    write('teclea el radio del circulo: ');
    readln(r);
    a:=3.1416*(r*r);
writeln ('el area del circulo es: ',a:5:2);
readln;
end;
 procedure cuad;
   var
      l1,l2:integer;
   var area:integer;
begin
   clrscr;
   write('dale valor a uno de los lados :  ');
   readln(l1);
   write('ahora a otro de los lados :  ');
   readln(l2);
   area:=l1*l2;
   writeln('el area del cuadrado es :  ',area );
   readln;
end;
procedure rec;
   var
      l1,l2:integer;
   var
      area :integer;
begin
    clrscr;
    write('escribe la medida del lado del rectangulo :  ');
    readln(l1);
    write('escribe la otra medida  :  ');
    readln(l2);
    area:=l1*l2;
    writeln('el area es :  ', area);
    readln;
end;
procedure tria;
     var
         base,altura:real;
     var
         area :real;
begin
     clrscr;
     write('ingresa la base  :   ');
     readln(base);
     write('ingresa la altura del triangulo :  ');
     readln(altura);
     area:=base*altura/2;
     write('el area es :  ' , area:5:2 );
     readln;
end;
begin
    repeat
    writeln('Programa de calculo de Areas');
    writeln('Elija una opci¢n:  ');
    writeln('1)circulo');
    writeln('2)cuadrado');
    writeln('3)rectangulo');
    writeln('4)triangulo');
    writeln('5)salir del programa');
    readln(opcion);
    case opcion of
    '1':circulo;
    '2':cuad;
    '3':rec;
    '4':tria;
    end;
    until opcion ='5';
end.

Programa de citas

 program cita;
  uses crt;
         var op:char;
procedure Ab;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(lightgray);
       writeln('Ir al cine con Abigail');
       end;
procedure Al;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(white-red);
       writeln('Ir a un restaurante con Alma');
       end;
procedure Va;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(black);
       writeln('Ir a bailar con Valeria');
       end;
procedure Da;
       begin
        textmode(lo(lastmode)+font8x8);
       textcolor(magenta);
       writeln('Ir por un helado con Daniela');
       end;
   begin
  repeat
       textmode(lo(lastmode)+font8x8);
       textcolor(brown);
       textbackground(blue);
      write(' Programa de Citas ');
      writeln('Elija una opci•n:  ');
     writeln('1)Abigail');
     writeln('2)Alma');
     writeln('3)Valeria');
     writeln('4)Daniela');
     writeln('5)ninguna');
     readln(op);
     case op of
     '1':Ab;
     '2':Al;
     '3':Va;
     '4':Da;
     end;
     until op ='5';
  end.

Programa para Operaciones Basicas

program operaciones;
uses crt;
var op:char;
procedure suma;
    var
       a,b,c: integer;
begin
     clrscr;
      textmode(lo(lastmode)+font8x8);
      textcolor(white-red);
     writeln('Para sumar');
     write('teclea un numero : ');
     readln(a);
     write('teclea otro numero : ');
     readln(b);
     c:=a+b;
     writeln('la suma es :  '  ,c );
  readln;
end;
procedure resta ;
var
   a,b,c :integer;
begin
   clrscr;
    textmode(lo(lastmode)+font8x8);
      textcolor(red);
   writeln('Para restar');
   write('teclea un n£mero : ');
   readln(a);
   write('teclea otro n£mero : ');
   readln(b);
   c:=a-b;
   writeln('el resultado es : ',c);
   readln;
end;
procedure multi;
   var
      a,b,c :integer;
begin
   clrscr;
    textmode(lo(lastmode)+font8x8);
      textcolor(blue);
   writeln('Para multiplicar');
   write('ingresa un n£mero : ');
   readln(a);
   write('ingresa otro n£mero : ');
   readln(b);
   c:=a*b;
   writeln('el resultado es :  ',c);
   readln;
end;
procedure divi;
     var
         a,b:integer;
     var
        resultado:real;
begin
     clrscr;
      textmode(lo(lastmode)+font8x8);
      textcolor(brown);
     writeln('Para dividir');
     write('teclea el dividendo :  ');
     readln(a);
     write('ingresa el divisor  :  ');
     readln(b);
     resultado:=a/b;
     writeln('el resultado es :  ',resultado:5:2);
     readln;
end;
begin
     repeat
      textmode(lo(lastmode)+font8x8);
      textcolor(black);
      textbackground(white);
      writeln('Programa de Operaciones Basicas ');
      writeln('Elija una opcion:  ');
     writeln('1)suma');
     writeln('2)resta');
     writeln('3)multiplicaci•n');
     writeln('4)divisi•n');
     writeln('5)terminar programa');
     readln(op);
     case op of
     '1':suma;
     '2':resta;
     '3':multi;
     '4':divi;
     end;
     until op ='5';
end.

Programa de Area del Circulo

program circulo;
uses crt;
var r:integer;
    a:real;
begin
    clrscr;
    write('teclea el radio del circulo: ');
    readln(r);
    a:=3.1416*(r*r);
writeln ('el area del circulo es: ',a:5:2);
readln;
end.

Programa Muestra de Nombre

program nombre;
uses crt;
     var Cesar, Lopez, Vargas: char;
begin
     clrscr;
     write('introduce una letra: ');
     readln(Cesar, Lopez, Vargas);
     writeln('el caracter introducido es :  Cesar, Lopez, Vargas' );
     readln;
end.

Programa de Recetas de Comida

program comida;
 uses crt;
        var opn:char;
 procedure pasi;
  begin
     textmode(lo(lastmode)+font8x8);
     textcolor(red);
     writeln('Ingredientes para preparar Pasta Italiana:');
     writeln;
     writeln('- 225 gramos de pasta al gusto');
     writeln('- Una cda. de aceite de oliva');
     writeln('- Una cda. de manteca');
     writeln('- 80 gramos de berro, picado');
     writeln('- 40 gramos de manzana');
     writeln('- sal y pimienta');
     end;
 procedure calma;
   begin
    textmode(lo(lastmode)+font8x8);
     textcolor(blue);
   writeln('Ingredientes para preparar Caldo de Mariscos:  ');
   writeln;
   writeln('- 5 cabezas de mojarra o bagre,grandes ');
   writeln('- 1/2 kg. de camaron crudo');
   writeln('- 4 filetes de mojarra de granja ');
   writeln('- 1/2 kg.l de surtido de mariscos');
   writeln('- tomates ,3 picados y 1 para licuar');
   writeln('- cebolla picada');
   writeln('- manojo de cilantro, picado');
   writeln('- chile verde,picado');
   writeln('- zanahorias , picadas');
   writeln('- varita de apio , picada');
   writeln('- chile morr•n ,picado');
   writeln('- aceite al gusto');
   end;
 procedure enru;
    begin
       textmode(lo(lastmode)+font8x8);
     textcolor(green);
    writeln('Ingredientes para preparar Ensalada Rusa:');
    writeln;
    writeln('- 4 papas chicas');
    writeln('- 2 zanahorias');
    writeln('- 1 huevo');
    writeln('- 300 g.  de jam•n cocido');
    writeln('- 100 gramos de arvejas (judas verdes)');
    writeln('- 100 g. de guisantes');
    writeln('- 1 lim•n');
    writeln('- aceite de oliva');
    writeln('- sal y pimienta');
    end;
 procedure torti;
   begin
    textmode(lo(lastmode)+font8x8);
     textcolor(red);
   writeln('Ingredientes para preparar Torta Inglesa:');
   writeln;
   writeln('- 5 huevos separados');
   writeln('- 150 g. de azucar');
   writeln('- 45 g. de almendras molidas');
   writeln('- 50 g. de mantequilla');
   writeln('- 325 g. de az—car de pasteleria ');
   writeln('- 300 g. de chocolate amargo derretido');
   writeln('- 1 cucharadita de extracto de almendra');
   writeln('- 2 cucharadas de mantequilla derretida');
   writeln('- 35 g. de almendras tostadas');
   end;
     begin
  repeat
      writeln;
          textmode(lo(lastmode)+font8x8);
     textcolor(yellow);
      writeln('--Programa de Recetas -- ');
      writeln;
        textmode(lo(lastmode)+font8x8);
     textcolor(yellow);
  writeln('¨Que quiere preparar? :  ');
      writeln;
        textmode(lo(lastmode)+font8x8);
     textcolor(red);
       writeln('1)Pasta Italiana');
        textmode(lo(lastmode)+font8x8);
     textcolor(blue);
       writeln('2)Caldo de Mariscos');
        textmode(lo(lastmode)+font8x8);
     textcolor(red);
       writeln('3)Ensalada Rusa');
       textmode(lo(lastmode)+font8x8);
     textcolor(blue);
       writeln('4)Torta Inglesa');
       textmode(lo(lastmode)+font8x8);
     textcolor(green);
  writeln('5)Salir');
     readln(opn);
     case opn of
     '1':pasi;
     '2':calma;
     '3':enru;
     '4':torti;
     end;
     until opn ='5';
  end.

tablas de multiplicar

program operacionestab;
uses crt;
var op:char;
 Procedure tabl;
          var a,b,n:integer;
       begin
 clrscr;
       textmode(lo(lastmode)+font8x8);
       writeln('');
       textcolor(red);
       write('Ingresa el n£mero de la tabla que quieras saber :');
       readln(a);
        textmode(lo(lastmode)+font8x8);
       writeln;
       textcolor(white-green);
       for n:=1 to 10 do
       begin
            b:=a*n;
            writeln(a,'x',n,'=',b );
       end;
       readln;
end;
begin
     repeat
      writeln;
       textmode(lo(lastmode)+font8x8);
       writeln('');
       textcolor(green);
      writeln('___ Programa de Tablas de Multiplicar ___ ');
      writeln;
      textmode(lo(lastmode)+font8x8);
       writeln('');
       textcolor(yellow);
     writeln('1)entrar');
      textmode(lo(lastmode)+font8x8);
      writeln;
      textcolor(white-green);
     writeln('2)salir');
     writeln;
     textcolor(red);
     readln(op);
     case op of
     '1':tabl;
     end;
     until op ='2';
end.