Free Pascal procedure Operaciones

Compléter

Parties jouées 87 %Précision 94 Temps moyen 03:21

Créer une copie

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

Misael Garcia Ovalle

Guatemala

Il n'y a toujours pas de résultats pour ce jeu. Soyez le premier à apparaître dans le classement! Connectez-vous pour vous identifier.

Créez votre propre jeu gratuite à partir de notre créateur de jeu

Affrontez vos amis pour voir qui obtient le meilleur score dans ce jeu

Créer un défi


Compléter Free Pascal procedure OperacionesVersion en ligne Repaso de subprocesos con suma, resta, multiplicación, división par 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 ; .