Pascal/Turbo Pascal - necesito una simulación de semaforos plisss

por favor
necesito una simulación de semaforos
que se vea el cambio de colores y tambien se distingan los semaforos
por favor si encuentran mandenmelo a mi mail
o mandenme el link donde se encuentra
gracias

Hola Carlitos.
Deberías darnos un poco más de detalles para el programa.
Si puedo te lo envío mañana lunes, pues tengo el tiempo un poco escazo.
Saludos.

Carlitos:
Hice este programita para tus cemáforos.
Disculpa la rudeza por falta de tiempo (ni siquiera cerré las gráficas pues supuse que lo corres en Windows); presiona una tecla insistentemente para salir.

Recuerda que para que te funcione debes poner el archivo egavga.bgi en el directorio donde tienes tu compilador.
El ejecutable tambien corre si está acompañado del mensionado arhcivo. También podría ser que necesites el parche para Pascal. Por si es así, bájalo de la página de Diego Romero.
Saludos!

Program Semaforo;
uses Crt, Graph;
var GraphDriver, GraphMode : Integer;

Procedure IniciaGraficas;
begin
GraphDriver := Detect;
InitGraph(GraphDriver, GraphMode,' ');
end;

begin
IniciaGraficas;
OutTextXY(250,5,'Programa Cem foro');
OutTextXY(200,450,'Presione una tecla para salir');

Rectangle(90,90,110,150);

Repeat
SetFillStyle(SolidFill, 0); {Borra colores}
PieSlice(100,100,0,360,10);
PieSlice(100,120,0,360,10);
PieSlice(100,140,0,360,10);

SetFillStyle(SolidFill, 4); {Pinta de rojo}
PieSlice(100,100,0,360,10);

delay(1000); {Tiempo en milisegundos}

SetFillStyle(SolidFill, 0); {Borra colores}
PieSlice(100,100,0,360,10);
PieSlice(100,120,0,360,10);
PieSlice(100,140,0,360,10);

SetFillStyle(SolidFill, 2); {Pinta de verde}
PieSlice(100,140,0,360,10);

delay(1000);

SetFillStyle(SolidFill, 0); {Borra colores}
PieSlice(100,100,0,360,10);
PieSlice(100,120,0,360,10);
PieSlice(100,140,0,360,10);

SetFillStyle(SolidFill, 14);{Pinta de amarillo}
PieSlice(100,120,0,360,10);

delay(1000);
Until KeyPressed;
end.

me aparece error 15: file not found <graph.tpu>
no entiendo como arreglarlo y tambien no se como poner el archivo egavga.bgi en el directorio donde tengo mi compiladortu compilador.
pido disculpas por la molestia
espero me respondas
gracias
carlitos

En tu compilador, o sea donde haces tus programas entra al menú Options, luego directories, luego revisa que tengas especificado dónde tienes tus archivos TPU.

Por ejemplo:

XE & TPU directory C:\TP\TPU
Unit directories C:\TP\UNITS

Si modificas esto, recuerda salvar los cambios haciendo clic en OPTIONS - save turbo.tp o tpx.tp

Sólamente busca el archivo Graph.tpu y para mayor seguridad cópialo a esos dos directorios.

Para el archivo egavga.bgi búscalo (normal mente está en C:\TP\BGI), cópialo y pégalo en el directorio
C:\TP\BIN.. si es que ahí tienes el archivo turbo.exe o tpx.exe

como es el link de la pagina de diego romero??

oye una pregunta? ese codigo es echo en pascal o en C?

Si pascal modo gráfico para ser exactos no texto.