miércoles, 13 de julio de 2011

Programa que muestra los numeros multiplos de un rango cualquiera.

PROGRAM MULTIPLO;
USES CRT;
VAR x,y,z,s:INTEGER;
begin
ClrScr;
write('ESCRIBA EL NUMERO DE LIMITE INFERIOR: ');
readln(y);
writeln(' ');
write('ESCRIBA EL NUMERO DE LIMITE SUPERIOR: ');
readln(s);
writeln(' ');
write('ESCRIBA EL NUMERO MULTIPLO: ');
readln(z);
writeln(' ');
FOR x:=y to s do
BEGIN
if x mod z=0 then
writeLN(x);
writeln(' ');
delay(10);
end;
readln
end.

TABLA DE MULTIPLICAR DEL 1 AL 10 DE UN NUMERO CUALQUIERA (.pas).

PROGRAM TABLA_DE_MULTIPLICAR;
USES CRT;
VAR x,y:INTEGER;
begin
ClrScr;
write('ESCRIBA UN NUMERO: ');
readln(y);
x:=0;
while x<10 do
begin
x:=x+1;
writeln(y,' x ',x,' = ',y*x);
end;
readln
end.

martes, 21 de junio de 2011

lunes, 20 de junio de 2011

PROGRAMACION

Favor distribuir dicha información a todos los integrantes del salón. Gracias!! 

El dia martes habra clase en el salon y alli entregare el Trabajo Final y se daran las pautas a seguir.

Saludos!!
Nos vemos el martes

lunes, 6 de junio de 2011

Laboratorio de Programacion.

El archivo contiene:

  • Clase 1 de laboratorio de programacion.
  • Practica 1 de laboratorio.
  • Practica 2 de laboratorio.




Seguidores