Free Pascal procedure Ventas

Completar Frases

(2)

Jugadas 140 %Acierto 82 Tiempo medio 03:18

Crear copia

Sobre esta actividad

Repaso de construcción de Ventas

Creada por

Misael Garcia Ovalle

Guatemala

Descarga la versión para jugar en papel

Top 10 resultados

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 VentasVersión en línea Repaso de construcción de Ventas por Misael Garcia Ovalle 1 Program EjemploVentas ; Uses Crt ; Var opc : Integer ; Var Total , p1 , p2 , p3 , p4 , T1 , t2 , t3 , t4 : ; Var pass , Producto , Tp1 , Tp2 , tp3 , Tp4 : String ; Procedure Prod1 ; Begin ( 'Memoria Usb 8gb Q . 50 . 000' ) ; WriteLn ( 'Ingrese cantidad a comprar' ) ; ReadLn ( p1 ) ; t1 : = p1 * 50 ; Total : = total + t1 ; Tp1 : = 'Memoria Usb 8gb Q . 50 . 000' ; Producto : = Producto + Tp1 + #13#10 ; End ; Procedure Prod2 ; WriteLn ( 'Disco duro tipo SD de 300gb Q . 250 . 00' ) ; WriteLn ( 'Ingrese cantidad a comprar' ) ; ( p2 ) ; t2 : = p2 * 250 ; Total : = total + t2 ; Tp2 : = 'Disco duro tipo SD de 300gb Q . 250 . 00' ; Producto : = Producto + Tp2 + ; End ; Procedure Prod3 ; Begin WriteLn ( 'Teclado multimedia Q . 150 . 00' ) ; ( 'Ingrese cantidad a comprar' ) ; ReadLn ( p3 ) ; t3 : = p3 * 250 ; Total : = total + t3 ; Tp3 : = 'Teclado multimedia Q . 150 . 00' ; Producto : = Producto + Tp3 + #13#10 ; End ; Procedure Prod4 ; Begin WriteLn ( 'Router TpLink Q . 600 . 00' ) ; WriteLn ( 'Ingrese cantidad a comprar' ) ; ReadLn ( p4 ) ; t4 : = p4 * 250 ; : = total + t4 ; Tp4 : = 'Router TpLink Q . 600 . 00' ; Producto : = Producto + Tp4 + #13#10 ; ; Procedure ; Begin WriteLn ( 'Menú de opciones' ) ; WriteLn ( '1 . Memoria Usb de 8gb' ) ; WriteLn ( '2 . Disco duri tipo SD de 300gb ' ) ; WriteLn ( '3 . Teclado multimedia' ) ; ( '4 . Router TpLink ' ) ; WriteLn ( '5 . Ver Total de compra ' ) ; WriteLn ( '6 . Salir' ) ; End ; Begin ClrScr ; : = 0 ; WriteLn ( 'Ingrese Contraseña para inresar al sistema' ) ; ReadLn ( pass ) ; if pass = 'a1a2' then Begin opc <> 6 do Begin ClrScR ; menu ; ; WriteLn ( ' ¿ Para comprara inngrese un número del menú ? ' ) ; ReadLn ( opc ) ; if opc = 1 then Prod1 Else If opc = 2 then Prod2 else If opc = 3 then Prod3 else if opc = 4 prod4 Else opc = 5 then Begin TextBackGround ( 6 ) ; TextColor ( 0 ) ; WriteLn ( 'Listado de productos comprados' ) ; WriteLn ; Writeln ( Producto ) ; WriteLn ( ' - - - - - - - - - - - - - - - - - - - - - - - ' ) ; WriteLn ( 'El total de su compra es : ' , total : 2 : 2 ) ; ReadKey End End ; End Else Begin ( 4 ) ; TextBackGround ( 15 ) ; WriteLn ( 'Contraseña incorrecta . . . ' ) ; End ; End .

Completar Frases

Free Pascal procedure VentasVersión en línea

Repaso de construcción de Ventas

Program EjemploVentas ;
Uses Crt ;
Var opc : Integer ;
Var Total , p1 , p2 , p3 , p4 , T1 , t2 , t3 , t4 : ;
Var pass , Producto , Tp1 , Tp2 , tp3 , Tp4 : String ;

Procedure Prod1 ;
Begin
( 'Memoria Usb 8gb Q . 50 . 000' ) ;
WriteLn ( 'Ingrese cantidad a comprar' ) ;
ReadLn ( p1 ) ;
t1 : = p1 * 50 ;
Total : = total + t1 ;
Tp1 : = 'Memoria Usb 8gb Q . 50 . 000' ;
Producto : = Producto + Tp1 + #13#10 ;
End ;

Procedure Prod2 ;

WriteLn ( 'Disco duro tipo SD de 300gb Q . 250 . 00' ) ;
WriteLn ( 'Ingrese cantidad a comprar' ) ;
( p2 ) ;
t2 : = p2 * 250 ;
Total : = total + t2 ;
Tp2 : = 'Disco duro tipo SD de 300gb Q . 250 . 00' ;
Producto : = Producto + Tp2 + ;
End ;

Procedure Prod3 ;
Begin
WriteLn ( 'Teclado multimedia Q . 150 . 00' ) ;
( 'Ingrese cantidad a comprar' ) ;
ReadLn ( p3 ) ;
t3 : = p3 * 250 ;
Total : = total + t3 ;
Tp3 : = 'Teclado multimedia Q . 150 . 00' ;
Producto : = Producto + Tp3 + #13#10 ;
End ;

Procedure Prod4 ;
Begin
WriteLn ( 'Router TpLink Q . 600 . 00' ) ;
WriteLn ( 'Ingrese cantidad a comprar' ) ;
ReadLn ( p4 ) ;
t4 : = p4 * 250 ;
: = total + t4 ;
Tp4 : = 'Router TpLink Q . 600 . 00' ;
Producto : = Producto + Tp4 + #13#10 ;
;

Procedure ;
Begin
WriteLn ( 'Menú de opciones' ) ;
WriteLn ( '1 . Memoria Usb de 8gb' ) ;
WriteLn ( '2 . Disco duri tipo SD de 300gb ' ) ;
WriteLn ( '3 . Teclado multimedia' ) ;
( '4 . Router TpLink ' ) ;
WriteLn ( '5 . Ver Total de compra ' ) ;
WriteLn ( '6 . Salir' ) ;
End ;

Begin
ClrScr ;
: = 0 ;
WriteLn ( 'Ingrese Contraseña para inresar al sistema' ) ;
ReadLn ( pass ) ;
if pass = 'a1a2' then
Begin
opc <> 6 do
Begin
ClrScR ;
menu ;
;
WriteLn ( ' ¿ Para comprara inngrese un número del menú ? ' ) ;
ReadLn ( opc ) ;
if opc = 1 then
Prod1
Else
If opc = 2 then
Prod2
else
If opc = 3 then
Prod3
else
if opc = 4
prod4
Else
opc = 5 then
Begin
TextBackGround ( 6 ) ;
TextColor ( 0 ) ;
WriteLn ( 'Listado de productos comprados' ) ;
WriteLn ;
Writeln ( Producto ) ;
WriteLn ( ' - - - - - - - - - - - - - - - - - - - - - - - ' ) ;
WriteLn ( 'El total de su compra es : ' , total : 2 : 2 ) ;
ReadKey
End
End ;
End
Else
Begin
( 4 ) ;
TextBackGround ( 15 ) ;
WriteLn ( 'Contraseña incorrecta . . . ' ) ;

End ;
End .

Puedes integrar el juego en un LMS compatible con LTI 1.1 o LTI 1.3 como Canvas, Moodle, o Blackboard. De esta manera podrás guardar las puntuaciones automáticamente en el libro de calificaciones de esa plataforma.

Free Pascal procedure Ventas

Completar Frases

Sobre esta actividad

Creada por

Descarga la versión para jugar en papel

Top juegos

Completar Frases

Ajuste de reacciones quimicas

Completar Frases

OPEN UP 4 - UNIT 3 GRAMMAR (Countable and uncountable nouns)

Completar Frases

Uso de HA y A

Completar Frases

Past Simple

Completar Frases

Escribe las letras que faltan

Completar Frases

Free Pascal procedure VentasVersión en línea

por Misael Garcia Ovalle

		%
	Anónimo	%
		%
		%