Ciclo While
Ciclo While
Ciclo Mientras ... Hacer (While ... Do)
CÓDIGO
program ciclo_While; Uses Crt; Var Opcion:char; Numero:Integer; Begin ClrScr; Numero:=1; Opcion:='s'; While Opcion='s' Do Begin Writeln; Writeln('Vuelta ',Numero); Numero:=Numero+1; Writeln; WriteLn('Deseas otra Vuelta [s/n]'); Readln(Opcion); End; writeln; writeln('Presiona Enter p/Salir'); Readln; End.
No hay comentarios:
Publicar un comentario
Inicio
Suscribirse a:
Entradas (Atom)
No hay comentarios:
Publicar un comentario