1.- PROGRAMA QUE CALCULA LA SUMA DE 1 HASTA "N"
program suma;
uses
crt;
var
a,b,N:byte;
begin
clrscr;
writeln(' Programa que suma de 1 hasta "N"');
writeln;
writeln('Hasta que numero quieres sumar:');
readln(N);
writeln;
for b:=1 to N do
begin
a:=a+b;
writeln(a);
end;
readkey;
end.
CORRIDA DEL PROGRAMA.
2.- PROGRAMA QUE MUESTRA LOS NUMEROS IMPARES DEL 1 HASTA 999.
program impares;
uses
crt;
var
a,b:integer;
begin
clrscr;
writeln(' Programa que muestra los numeros impares');
writeln(' del 1 al 999 ');
b:=1;
readkey;
for a:=0 to 499 do
begin
writeln(b);
b:=b+2;
end;
readkey;
end.
CORRIDA DEL PROGRAMA.
3.- PROGRAMA QUE CALCULAR EL FACTORIAL DE 1 NUMERO.
program factorial;
uses
crt;
var
a,b,N:byte;
begin
clrscr;
writeln(' Programa que calcula el factorial de 1 No.');
writeln;
writeln('Dame el numero:');
readln(N);
writeln;
a:=1;
b:=1;
for N:=N downto 1 do
begin
a:=a*b;
b:=b+1;
end;
writeln('El factorial de ',N,' es: ',a);
readkey;
end.
CORRIDA DEL PROGRAMA.
4.- PROGRAMA QUE MUESTRA LOS NUMEROS PARES DEL 1000 AL 0.
program pares;
uses
crt;
var
a,b:integer;
begin
clrscr;
b:=1000;
for a:=0 to 500 do
begin
writeln(b);
b:=b-2;
end;
readkey;
end.
CORRIDA DEL PROGRAMA.
5.- PROGRAMA QUE DESPLIEGA LAS TABALS DE MULTIPLICAR.
program tablas;
uses
crt;
var
a,x:byte;
b:integer;
begin
clrscr;
writeln('Programa que visuliza la tabla de multiplicar que tu quieras.');
writeln;
writeln('Dime el numero de la tabla:');
readln(x);
b:=0;
writeln;
for a:=1 to 10 do
begin
b:=x*a;
writeln(x,' * ',a,' = ',b);
end;
readkey;
end.
CORRIDA DEL PROGRAMA.
6.- PROGRAMA QUE LEE "N" NUMEROS Y CALCULA SU PROMEDIO.
program Promedio;
uses
crt;
var
c,n,v,s:byte;
begin
clrscr;
writeln('Programa que lee "n" numeros y calcula el promedio.');
writeln;
writeln('Inntroduce los numeros a leer:');
readln(n);
writeln;
s:=0;
for c:=1 to n do
begin
write('Dame el valor ',c,' : ');
readln(v);
s:=s+v;
end;
writeln;
writeln('La suma de los numeros es: ',s);
writeln;
writeln('El promedio de la suma de los numeros es: ',s/n:0:2);
readkey;
end.
CORRIDA DEL PROGRAMA.
Nombre del almno: Luis Alberto Jaime Parra
Bach. Tec. 16 -- 4-B
N.L: 16