ETAPA DE TEMPORIZACION
Enviado por Daj0 • 16 de Septiembre de 2014 • Síntesis • 302 Palabras (2 Páginas) • 266 Visitas
ETAPA DE TEMPORIZACION
La etapa de temporización crea un tren de pulsos y esto provoca que los contadores de la siguiente etapa funcionen
ETAPA DE CONTADOR
Esta etapa convierte el tren de pulsos del 555 en un código BDC para el bloque de decodificación
ETAPA DE DECODIFICACIÓN
Esta etapa convierte el código del contador al deseado
ETAPA DE DESPLIEGUE
esta etapa se muestran los números de 0-99 los cuales son el resultado de la decodificación de los dispositivos anteriores
Program procedimiento;
uses crt;
var
a,b,c:integer;
procedure cuadro;
begin
textcolor(4);
gotoxy(25,10);
writeln('**************');
gotoxy(25,15);
writeln('**************');
gotoxy(25,11);
writeln('* *');
gotoxy(25,12);
writeln('* *');
gotoxy(25,13);
writeln('* *');
gotoxy(25,14);
writeln('* *');
end;
procedure cuadro1;
begin
textcolor(3);
gotoxy(25,9);writeln('**************');
gotoxy(25,16);writeln('**************');
gotoxy(25,10);writeln('* *');
gotoxy(25,11);writeln('* *');
gotoxy(25,12);writeln('* *');
gotoxy(25,13);writeln('* *');
gotoxy(25,14);writeln('* *');
gotoxy(25,15);writeln('* *');
end;
procedure cuadro2;
begin
textcolor(2);
gotoxy(25,8);writeln('**************');
gotoxy(25,17);writeln('**************');
gotoxy(25,11);writeln('* *');
gotoxy(25,12);writeln('* *');
gotoxy(25,13);writeln('* *');
gotoxy(25,14);writeln('* *');
gotoxy(25,15);writeln('* *');
gotoxy(25,16);writeln('* *');
gotoxy(25,10);writeln('* *');
gotoxy(25,9);writeln('* *');
end;
begin
clrscr;
cuadro;
gotoxy(27,20);writeln('Ingrese 1 numero');
gotoxy(30,12);readln(a);
clrscr;
cuadro;
gotoxy(27,20);writeln('Ingrese otro numero');
gotoxy(30,12);readln(b);
clrscr;
cuadro;
c:=a+b;
gotoxy(28,12);writeln(a,'+',b,'=',a+b);
delay(2000);
cuadro2;
delay(2000);
cuadro1;
delay(2000);
cuadro;
delay(2000);
gotoxy(28,12);writeln(a,'+',b,'=',a+b);
readln;
end.
...