Pascal/Turbo Pascal - elaborar un programa en pascal

{Algo a sin}

program semafo;

uses

   crt;

  var

     rojo, verde, anvar : integer;

     tiempo : word;

  {marcamos paso peaton o coches}

 procedure peaton(x, y : integer;paso : boolean; c : integer);

 begin

    if paso then         {compruevo si es true o false}

    begin

      if c = 0 then       {si true entonces pongo color que se marco con c}

      TextBackground(4);

      if c = 1 then

      TextBackground(14);

      if c = 2 then

        TextBackground(10);

        gotoxy(x,y);write(' '); {pinto el color}

        TextBackground(0);     {restauro a negro fijaros que es color de

                                fondo}

      end

  else         {si false entonces  borro}

     begin

       TextBackground(0);     {con esto borro color o apago semaforo}

       gotoxy(x,y);write(' ');

     end;

  end;

procedure semaforo;   {dibujamos semaforo peaton y activamos secuencias}

var

cont : integer;

begin

gotoxy(18,3);write('Peaton');

gotoxy(9,4);write('---');

gotoxy(9,5);write('|');

gotoxy(11,5);write('|');

gotoxy(9,6);write('---');

gotoxy(9,7);write('|');

gotoxy(11,7);write('|');

gotoxy(9,8);write('---');       {dibujamos}

gotoxy(9,9);write('|');

gotoxy(11,9);write('|');

gotoxy(9,10);write('---');

gotoxy(9,11);write('| |');

gotoxy(9,12);write('| |');

gotoxy(9,13);write('| |');

gotoxy(7,14);write('-------');

gotoxy(7,16);write('Termina pulsando una tecla');

rojo := 4;

verde := 10;

anvar := 14;         {asignamos valores}

cont := 1;

tiempo := 6000 div 3;

repeat           {repetimos asta que se pulse una tecla}

case cont of { activamos segun valor de cont}

1 : begin

TextBackground(verde);

gotoxy(10,5);write(' ');  {posicion del cursor y pintado}

peaton(19,7,true,0);      {presento color}

TextBackground(0);

gotoxy(23,7);write('Espera');

delay(tiempo);                    { 1 peaton espera}

gotoxy(10,5);write(' ');

gotoxy(23,7);write(' ');

peaton(19,7,false,0);     {borro color}

end;

2 : begin

TextBackground(anvar);

gotoxy(10,7);write(' ');

peaton(19,7,true,1);      {presento color}

TextBackground(0);

gotoxy(23,7);write('Espera');      { 2 peaton espera}

delay(tiempo);

gotoxy(10,7);write(' ');

gotoxy(23,7);write(' ');

peaton(19,7,false,2);     {borro color}

end;

3 : begin

TextBackground(rojo);

gotoxy(10,9);write(' ');

peaton(19,7,true,2);     {presento color}

TextBackground(0);

gotoxy(23,7);write('Pasar');    { 3 peaton Pasa}

delay(tiempo);

gotoxy(10,9);write(' ');

gotoxy(23,9);write(' ');

peaton(19,7,false,1);       {borro color}

end;

end;

TextBackground(0);

cont := cont + 1;

if cont > 3 then    {si contador mayor de tres entonces cont lo pongo a 1}

cont := 1;

until keypressed;  {espero pulsacion tecla sino sigo}

end;

begin

clrscr;

semaforo;

end.