Free Pascal procedure Operaciones

Completar Frases

Jugadas 87 %Acierto 94 Tiempo medio 03:21

Crear copia

Repaso de subprocesos con suma, resta, multiplicación, división

Misael Garcia Ovalle

Guatemala

Todavía no hay resultados para este juego. ¡Sé el primero en aparecer en el ranking! Inicia sesión para identificarte.

Crea tu propio juego gratis desde nuestro creador de juegos

Compite contra tus amigos para ver quien consigue la mejor puntuación en esta actividad

Crear reto


Completar Frases Free Pascal procedure OperacionesVersión en línea Repaso de subprocesos con suma, resta, multiplicación, división por Misael Garcia Ovalle 1 Program Operaciones ; Uses ; a , b , c , opc : ; Procedure Eje1 ; Begin WriteLn ( 'Ingrese dos números' ) ; ReadLn ( a , b ) ; C : = a + b ; WriteLn ( 'El resultado de ' , a , ' + ' , b , 'Es : ' , c ) ; End ; Procedure Eje2 ; Begin WriteLn ( 'Ingrese dos números' ) ; ( a , b ) ; C : = a - b ; WriteLn ( 'El resultado de ' , a , ' - , b , 'Es : ' , c ) ; ReadKey End ; Procedure Eje3 ; Begin WriteLn ( 'Ingrese dos números' ) ; ReadLn ( a , ) ; C : = a * b ; WriteLn ( 'El resultado de ' , a , ' * ' , b , 'Es : ' , c ) ; ReadKey ; Procedure Eje4 ; Begin WriteLn ( 'Ingrese dos números' ) ; ReadLn ( a , b ) ; C : = a Div ; ( 'El resultado de ' , a , ' / ' , b , 'Es : ' , c ) ; ReadKey End ; Procedure ; Begin WriteLn ( '1 . Suma' ) ; ( '2 . Resta' ) ; WriteLn ( '3 . Multiplicación' ) ; WriteLn ( '4 . División' ) ; WriteLn ( '5 . ) ; End ; Begin ClrScr ; Opc : = 0 ; opc <> 5 Begin ClrsCr ; menu ; WriteLn ; WriteLn ( ' ¿ Qué opción desea del menú ? ' ) ; ReadLn ( opc ) ; if opc = 1 eje1 else if opc = 2 then else if opc = 3 eje3 else if opc = 4 then eje4 ; End ; .