1.- PROGRAMA
uses
crt;
var
x:integer;
procedure UDC;
begin
writeln(' Programa que muestra 100 veses UDC.');
readkey;
begin
for x:=1 to 100 do
begin
writeln(x,'.- UNIVERSIDAD DE COLIMA.');
end;
end;
end;
begin
clrscr;
UDC;
readkey;
end.
CORRIDA DEL PROGRAMA.
2.- PROGRAMA
uses
crt;
var
x,y,a:real;
procedure AREATRIANGULO (x,y,a:real);
begin
writeln('Programa que da el Area de un Triangulo.');
writeln;
begin
writeln('Base:');
readln(x);
writeln('Altura:');
readln(y);
a:=x*y/2;
writeln('Area del Triangulo:');
writeln(a:8:2);
end;
end;
begin
clrscr;
AREATRIANGULO(x,y,a);
readkey;
end.
CORRIDA DEL PROGRAMA.
3.- PROGRAMA
uses
crt;
var
x,y:integer;
procedure COLORES(x,y:integer);
begin
writeln('PROGRAMA QUE DONDE PONES LOS COLORES DE TEXTO Y FONDO.');
writeln;
begin
writeln('EL NUMERO DE COLOR DE TEXTO:');
readln(x);
writeln('EL NUMERO DE COLOR DE FONDO:');
readln(y);
textcolor(x);
textbackground(y);
clrscr;
writeln('EL COLOR DE TEXTO Y DE FONDO QUE ESCOGISTE SON LOS QUE ESTAN PRESENTES');
end;
end;
begin
clrscr;
COLORES(x,y);
readkey;
end.
CORRIDA DEL PROGRAMA.
4.- PROGRAMA
uses
crt;
var
x,y:real;
procedure OPERACIONES (x,y:real);
begin
clrscr;
writeln('Programa que REALIZA Las 4 Operaciones Basicas de 2 Numeros. ');
writeln;
readkey;
begin
clrscr;
writeln('Escribe el Primer No.: ');
readln(x);
writeln('Escribe el Segundo No.:');
readln(y);
writeln;
writeln('SUEMA: ');
writeln(x+y:8:2);
writeln('RESTA: ');
writeln(x-y:8:2);
writeln('MULTIPLICACION: ');
writeln(x*y:8:2);
writeln('DIVICION: ');
writeln(x/y:8:2);
end;
end;
begin
clrscr;
OPERACIONES(x,y);
readkey;
end.
CORRIDA DEL PROGRAMA.
5.- PROGRAMA
uses
crt;
var
a,b,N:byte;
procedure FACTORIAL( a,b,N:byte);
begin
writeln('Programa que da el Factorial de un numero.');
writeln;
begin
writeln('Dame el numero:');
readln(N);
writeln;
a:=1;
b:=1;
for N:=N downto 1 do
begin
a:=a*b;
b:=b+1;
gotoxy(1,10);
writeln('El factorial es: ',a);
end;
end;
end;
begin
clrscr;
FACTORIAL( a,b,N);
readkey;
end.
CORRIDA DEL PROGRAMA.
6.- PROGRAMA
uses
crt;
var
a,b,c,d:real;
procedure MAYOR (a,b,c,d:real);
begin
clrscr;
writeln('Programa que da el No. mayor de Tres No.');
writeln;
begin
write('Primer numero: ');
readln(a);
write('Segundo numero: ');
readln(b);
write('Tercero numero: ');
readln(c);
if (a<b) and (b<c) then
d:=b;
if (c<a) and (a>b) then
d:=a;
if (b<c) and (c>a) then
d:=c;
writeln(d:8:2,' es mayor que los demas Numeros.');
end;
end;
begin
clrscr;
MAYOR(a,b,c,d);
readkey;
end.
CORRIDA DEL PROGRAMA.
7.- PROGRAMA
uses
crt;
var
a,b,N:byte;
procedure SUMA(a,b,N:byte);
begin
clrscr;
writeln(' Programa que suma de 1 hasta "N"');
writeln;
writeln('Hasta que numero quieres sumar:');
readln(N);
writeln;
a:=1;
for b:=1 to N do
begin
a:=a+b;
gotoxy(1,10);
writeln('La suma de uno hasta ',N,' es: ',a);
end;
end;
begin
clrscr;
SUMA(a,b,N);
readkey;
end.
CORRIDA DEL PROGRAMA.
WEB March 29, 2004
