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