1º12 Informatica
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.


1º12 Informatica | MDQ
 
ÍndicePortalÚltimas imágenesBuscarRegistrarseConectarse
Buscar
 
 

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

» Tarea De Algoritmoo
Ciclo Repeat I_icon_minitimeDom Mayo 25, 2008 2:02 am por mika

» hernan en un cumple
Ciclo Repeat I_icon_minitimeVie Mayo 16, 2008 7:01 pm por Enzox

» Modulo 1....
Ciclo Repeat I_icon_minitimeVie Mayo 09, 2008 11:56 pm por adminBraian

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

» Tarea de Ingles
Ciclo Repeat I_icon_minitimeMar Abr 22, 2008 9:19 pm por AdriX

» Tarea de Filosofia
Ciclo Repeat I_icon_minitimeDom Abr 20, 2008 10:00 pm por adminBraian

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

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

Navegación
Click aka
Visitas
Contadores Web

Marzo 2024
LunMarMiérJueVieSábDom
    123
45678910
11121314151617
18192021222324
25262728293031
CalendarioCalendario

 

 Ciclo Repeat

Ir abajo 
AutorMensaje
adminBraian
Admin



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

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

El repeat TAREA HECHA
Volver arriba Ir abajo
adminBraian
Admin



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

Ciclo Repeat Empty
MensajeTema: Re: Ciclo Repeat   Ciclo Repeat I_icon_minitimeMié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
 
Ciclo Repeat
Volver arriba 
Página 1 de 1.

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