simulador de un ascensor

Ver el tema anterior Ver el tema siguiente Ir abajo

simulador de un ascensor

Mensaje  Israfel el Dom Feb 13, 2011 4:17 pm

programa que simula un ascensor de un edificio de 20 pisos, indicando tiempo de llegada..

program prueba;
uses crt;
var
piso,ascensor,ingresar,llegada,llamar,ingreso,destino:integer;
begin
clrscr;
sg:=0;
repeat
Writeln('Diga el piso en que se encuentra,recuerde que solo hay 20 pisos:');
read(piso);
if(piso>20)or(piso=0)then
Writeln('el piso marcado no existe,por favor ingrese un piso valido');
until
(piso>0)and(piso<=20);
writeln('¨Desea llamar al ascensor? 1)Si 2)No');
read(llamar);
if(llamar=1)and (piso=1)then begin
Writeln('Desea ingresar: 1)Si 2)No');
read(ingreso);
if(ingreso=1)then
repeat
Writeln('Ingrese el piso de destino:');
read(destino);
piso:=3*destino;
until
(destino<=20)and(destino>0);
repeat
clrscr;
Writeln(' llegararemos en ',piso,' segundos');
piso:=piso-1;
delay(1000);
until
(piso=0);
if(piso=0)then
Writeln('Hemos llegado, hasta luego.');
readkey;
end
else
if(llamar=1)and(piso<>1) then begin
llegada:=piso*3;
repeat
clrscr;
Writeln(' llegara en ',llegada,' segundos');
llegada:=llegada-1;
delay(1000);
until
(llegada=0);
Writeln('El ascensor a llegado');
Writeln('¨desea ingresar?: 1)si 2)No');
read(ingresar);
if(ingresar=1)then begin
repeat
Writeln('Ingrese el piso de destino:');
read(destino);
piso:=3*destino;
until
(destino<=20)and(destino>0);
repeat
clrscr;
Writeln(' llegara en ',piso,' segundos');
piso:=piso-1;
delay(1000);
until
(piso=0);
Write('Hemos llegado, Hasta luego...');
readkey;
end;
end;
end.

Israfel

Mensajes: 28
Fecha de inscripción: 12/02/2011
Edad: 25

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

Permisos de este foro:
No puedes responder a temas en este foro.