[1] Comentário enviado por sabing em 26/07/2011 - 15:13h

ta ai o algoritmo do dispertador, quem quiser estudar ta ai o codigo

Program Dispertador;
var
h,m,s,i,j,l,a,b,c:integer;
messagem:string[100];
Begin
write('Digite a hora = ');
read(h);
write('Digite os minutos = ');
read(m);
write('Digite os segundos = ');
read(s);
clrscr;
writeln(' Ajustando o dispertador ');
write('Digite a hora = ');
read(a);
write('Digite os minutos = ');
read(b);
write('Digite os segundos = ');
read(c);
write('Digite a menssagem = ');
read(messagem);

if ((h > 23) or (m > 59) or (s > 59)) then
write('Valores icompativeis')
else
begin
for i:=h to 23 do
begin
for j:=m to 59 do
begin
for l:=s to 59 do
begin
write(h,':',m,':',s);
delay(1000);
s:=s+1;
clrscr;
case h of
0..11:
writeln('Bom Dia');
12..18:
writeln('Boa tarde');
19..23:
writeln('Boa noite');
end;
if ((h = a) and (m = b) and (s > c)) then
writeln('Messagem do dispertador = ',messagem);

end;
m:=m+1;
s:=0;
end;
h:=h+1;
m:=0;
if i = 23 then
i:=0;
h:=0;
end;
end;


End.

0 0