Créer jeu
Télécharger
Téléchargement SCORM
A utiliser dans un LMS (Moodle, Blackboard...)
Téléchargement régulier
Pour être publié sur un site Web ou un blog.
Le téléchargement du jeu est une fonctionnalité exclusive pour les utilisateurs avec un Plan Académique ou un Plan Commercial.
Obtenez votre Plan Académique ou Plan Commercial dès maintenant et commencez à intégrer vos jeux dans votre LMS, votre site Web ou votre blog.
Obtenir Plan Académique
Si vous le souhaitez, vous pouvez télécharger une jeu de test ici et tester son intégration:
Partager le jeu
Compléter
Compléter

Free Pascal procedure Ventas

Intégrez-le à votre plateforme
G. Classroom M. Teams
Vous pouvez intégrer le jeu dans un LMS compatible avec LTI 1.1 ou LTI 1.3 comme Canvas, Moodle ou Blackboard. Les scores seront ainsi automatiquement enregistrés dans le carnet de notes de la plateforme.
Télécharger
Vous avez dépassé le nombre maximum de jeux que vous pouvez intégrer à Google Classroom avec votre Plan actuel.

Pour intégrer autant de jeux que vous le souhaitez dans Google Classroom, vous avez besoin d’un Plan Académique ou un Plan Commerciel.

Obtenir Plan Académique
Vous avez dépassé le nombre maximum de jeux que vous pouvez intégrer à Microsoft Teams avec votre Plan actuel.

Pour intégrer autant de jeux que vous le souhaitez dans Microsoft Teams, vous avez besoin d’un Plan Académique ou un Plan Commerciel.

Obtenir Plan Académique
Le téléchargement du jeu est une fonctionnalité exclusive pour les utilisateurs avec un Plan Académique ou un Plan Commercial.

Obtenez votre Plan Académique ou Plan Commercial dès maintenant et commencez à intégrer vos jeux dans votre LMS, votre site Web ou votre blog.

Si vous le souhaitez, vous pouvez télécharger une jeu de test ici et tester son intégration:

Obtenir Plan Académique

Free Pascal procedure Ventas

Compléter

(2)
Parties jouées 140 %Précision 82 Temps moyen 03:18
Créer une copie

À propos de cette activité

Repaso de construcción de Ventas

Créé par

Misael Garcia Ovalle
Misael Garcia Ovalle
Guatemala

Téléchargez la version pour jouer sur papier

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

Top Jeux

 %
Anonyme
Anonyme
 %
%
%
Vous avez dépassé le nombre maximum de jeux que vous pouvez imprimer avec votre Plan actuel.

Pour imprimer autant de jeux que vous le souhaitez, vous avez besoin d’un Plan Académique ou un Plan Commerciel.

Obtenir Plan Académique
Imprimez votre jeu
Free Pascal procedure Ventas
 

Compléter

Free Pascal procedure VentasVersion en ligne

Repaso de construcción de Ventas

par 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 .










 
Voulez-vous vraiment quitter la page ?

En quittant la page, vous perdrez la progression du jeu.