Free Pascal procedure Operaciones

Fill in the Blanks

Played 87 %Accuracy 94 Average time 03:21

Create copy

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

Misael Garcia Ovalle

Guatemala

There are still no results for this game. Be the first to stay in the ranking! Log in to identify yourself.

Make your own free game from our game creator

Compete against your friends to see who gets the best score in this game

Make challenge


Fill in the Blanks Free Pascal procedure OperacionesOnline version Repaso de subprocesos con suma, resta, multiplicación, división by 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 ; .