1º12 Informatica | MDQ
 
ÍndicePortalFAQBuscarMiembrosGrupos de UsuariosRegistrarseConectarse
Buscar
 
 

Resultados por:
 
Rechercher Búsqueda avanzada
Últimos temas
» Ciclo Repeat
Miér Jul 09, 2008 2:56 pm por adminBraian

» Tarea De Algoritmoo
Dom Mayo 25, 2008 2:02 am por mika

» hernan en un cumple
Vie Mayo 16, 2008 7:01 pm por Enzox

» Modulo 1....
Vie Mayo 09, 2008 11:56 pm por adminBraian

» FOTOSSS 10/04/08
Lun Abr 28, 2008 9:20 pm por gonz@lo

» Tarea de Ingles
Mar Abr 22, 2008 9:19 pm por AdriX

» Tarea de Filosofia
Dom Abr 20, 2008 10:00 pm por adminBraian

» Formatiaste la PC ? Todos los Programas que nesesitas!
Dom Abr 20, 2008 6:32 pm por adminBraian

» Bill gates o la bestia ???
Sáb Abr 19, 2008 5:22 pm por gonz@lo

Navegación
Click aka
Visitas
Contadores Web

Septiembre 2018
LunMarMiérJueVieSábDom
     12
3456789
10111213141516
17181920212223
24252627282930
CalendarioCalendario

Comparte | 
 

 Ciclo Repeat

Ir abajo 
AutorMensaje
adminBraian
Admin


Cantidad de envíos : 17
Fecha de inscripción : 10/04/2008

MensajeTema: Ciclo Repeat   Miér Jul 09, 2008 2:31 pm

El repeat TAREA HECHA
Volver arriba Ir abajo
Ver perfil de usuario
adminBraian
Admin


Cantidad de envíos : 17
Fecha de inscripción : 10/04/2008

MensajeTema: Re: Ciclo Repeat   Miér Jul 09, 2008 2:56 pm

rogram REPETIR;
Uses
Crt;
Var
Opcion:Integer;
Num1,Num2,Suma,Resta,Multi,Division:Real;
Begin
ClrScr;
WriteLn('Ingrese el Primer Numero:');
ReadLn(Num1);
WriteLn('Ingrese el Segundo Numero:');
ReadLn(Num2);
WriteLn('Bienvenido:¨Que Desea Hacer?');

Repeat
WriteLn('1-Suma');
WriteLn('2-Resta');
WriteLn('3-Multiplicacion');
WriteLn('4-Division');
WriteLn('5-Salir');
ReadLn(Opcion);

Case Opcion of
1:Begin
Suma:=Num1+Num2;
WriteLn('La suma de los dos Numeros es: ',Suma:2:2);
End;

2:Begin
If Num1>Num2 then
Resta:=Num1-Num2
Else
Resta:=Num2-Num1;
WriteLn('La resta de los dos numeros es: ',Resta:2:2);
End;

3:Begin
Multi:=Num1*Num2;
WriteLn('La Multiplicacion de los dos Numeros es: ',multi:2:2);
End;

4:Begin
Division:=Num1/Num2;
WriteLn('La Division de los dos Numeros es: ',Division:2:2);
End;
End;
Until Opcion = 5;
ReadKey;
End.


Explicion...:
El ciclo Repeat.. Se usa para los menu que vamos a hacer en nuestros programas....Antes utilizabamos un if... Pero no era recomendable... El Ciclo Repeat Consta de Un: REPEAT ,, y un until
REPEAT(REPETIR);..
UNTIL (Significa repetir hasta)
En el UNTIL debemos expresar hasta cuando queremos que se repita.. como en el la tarea que el until sea = a 5 que 5 significa terminar el programa....
Lo necesario para un repeat...
es el Case... que significa ... Para tal condicion Hacer como esta visto en el ejemplo qe dice "CAse opcion OF" El case va a haer la tarea deseada en cuanto al numero que ingresemos..
Dentro del CASE ... Ingresaremos... 1:, 2: etc... Eso significa.. lo que van a hacer cuando ingrese el numero.... Sin dar mas vuelta ... Es como que hacemos programas dentro del programa si se dan cuenta... Siempre... SE pone dentro del NUmero un Begin y un END... ..
Y entre medio de los dos.. .Pondran lo qe tenga que haer....
Importante...
Dentro del case se puede meter FOR IF , While y demas...
Espero qe esta miniguia les alla servidooo..
Abrazoo
Braian
Volver arriba Ir abajo
Ver perfil de usuario
 
Ciclo Repeat
Volver arriba 
Página 1 de 1.
 Temas similares
-
» CICLO SUPERIOR
» El Trío San Javier presente en el Ciclo de Recitales de Verano 2010 de Vicente López.
» SAN ISIDRO: POSSE INAUGURA EL CICLO LECTIVO.
» Comenzó el ciclo lectivo en Malvinas Argentinas
» San Fernando: En una escuela del Delta, Andreotti dio inicio al ciclo lectivo.

Permisos de este foro:No puedes responder a temas en este foro.
1º12 Informatica :: Tareas !!!!!!!!!!!-
Cambiar a: