Programa de Restas

program resta ;
uses crt;
var
   a,b,c :integer;
begin
   clrscr;
   write('teclea un n£mero : ');
   readln(a);
   write('teclea otro n£mero : ');
   readln(b);
   c:=a-b;
   writeln('el resultado es : ');
   writeln(c);
   readln;
end.

Programa de Mltiplicaciòn

program multi;
uses crt;
   var
      a,b,c :integer;
begin
   clrscr;
   write('ingresa un n£mero : ');
   readln(a);
   write('ingresa otro n£mero : ');
   readln(b);
   c:=a*b;
   writeln('el resultado es :  ');
   writeln(c);
   readln;
end.

Programa de area del rectangulo

program rec;
uses crt;
   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.

Programa de area del triangulo

program tria ;
uses crt;
     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.

Programa de area del cuadrado

program cuad;
uses crt;
   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.

Programa de Sumas

program suma;
uses crt;
    var
       a,b,c: integer;
begin
     clrscr;
     write('teclea un numero : ');
     readln(a);
     write('teclea otro numero : ');
     readln(b);
     c:=a+b;
     writeln('la suma es :  '  ,c );
  readln;
end.

Programa de Division

program divi;
uses crt;
     var
         a,b:integer;
     var
        resultado:real;
begin
     clrscr;
     write('teclea el dividendo :  ');
     readln(a);
     write('ingresa el divisor  :  ');
     readln(b);
     resultado:=a/b;
     writeln('el resultado es :  ',resultado:5:2);
     readln;
end.

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.