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.
miércoles, 7 de marzo de 2012
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.
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.
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.
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.
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.
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.
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.
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.
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.
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.
Suscribirse a:
Entradas (Atom)