New game
Download
SCORM download
To be used in an LMS (Moodle, Blackboard...)
Regular download
To be published on a website or blog.
Downloading games is an exclusive feature for users with an Academic Plan or a Commercial Plan.
Get your Academic Plan or your Commercial Plan now and start integrating your games into your LMS, website or blog.
Get Academic Plan
If you wish, you can download a demo game here and test its integration:
Share game
Fill in the Blanks
Fill in the Blanks

Free Pascal procedure Ventas

Integrate it into your platform
G. Classroom M. Teams
You can integrate the game into an LMS compatible with LTI 1.1 or LTI 1.3 such as Canvas, Moodle, or Blackboard. This way, the scores will be automatically saved into the platform’s gradebook.
Download
You have exceeded the maximum number of games you can integrate into Google Classroom with your current Plan.

To integrate as many games as you want in Google Classroom, you need an Academic Plan or a Commercial Plan.

Get Academic Plan
You have exceeded the maximum number of games you can integrate into Microsoft Teams with your current Plan.

To integrate as many games as you want in Microsoft Teams, you need an Academic Plan or a Commercial Plan.

Get Academic Plan
Downloading games is an exclusive feature for users with an Academic Plan or a Commercial Plan.

Get your Academic Plan or your Commercial Plan now and start integrating your games into your LMS, website or blog.

If you wish, you can download a demo game here and test its integration:

Get Academic Plan

Free Pascal procedure Ventas

Fill in the Blanks

(2)
Played 140 %Accuracy 82 Average time 03:18
Create copy

About this activity

Repaso de construcción de Ventas

Created by

Misael Garcia Ovalle
Misael Garcia Ovalle
Guatemala

Download the paper version to play

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

Top Games

 %
Anonymous
Anonymous
 %
%
%
You have exceeded the maximum number of games you can print with your current Plan.

To print as many games as you want, you need an Academic Plan or a Commercial Plan.

Get Academic Plan
Print your game
Free Pascal procedure Ventas
 

Fill in the Blanks

Free Pascal procedure VentasOnline version

Repaso de construcción de Ventas

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










 
Are you sure you want to leave the page?

If you leave the page, you will lose your game progress.