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.
Accedi a tutti gli appunti
Tutor AI: studia meglio e in meno tempo
Appunto