Ominide 30 punti

Pascal - Semaforo

Semaforo. Inserire il colore del semaforo e in base a questo verrà visualizzato in output se si può attraversare, se si deve rallentare o se bisogna fermarsi.

program semaforo;
uses crt;
var colore,verde,giallo,rosso:string;
begin
clrscr;
writeln('inserisci un colore tra rosso, giallo e verde');
readln(colore);
if (colore='rosso') then
begin
writeln('fermati');
readln;
end;
if(colore='giallo') then
begin
writeln('rallenta ma attraversa');
readln;
end;
if (colore='verde') then
begin
writeln('attraversa');
readln;
end;
if (colore<>'verde') and (colore<>'rosso')then
begin
if (colore<>'verde') and (colore<>'giallo') then
writeln('inserisci un colore tra rosso, giallo e verde');
readln;
end;
end.

Registrati via email