PROGRAMACIÓN VISUAL BASIC

DIM PUNTOS AS INTEGER
IF COMBOBOX1 = "ALVARO URIBE" THN
PUNTOS = PUNTOS + 20
END IF
MSGBOX "TOTAL DE PUNTOS" + STR (PUNTOS)

EJERCICIO:

- diseñe un algoritmo que calcule el valor a pagar de una factura donde esta depende del valor del articulo y de la cantidad del mismo.
si el valor de la factura es mayor que 20.000 se le aplica un descuento del 40% en otro caso del 15%

DE: va, ca
PRO: tf: va * ca
si tf > 20. 000 entonces tf * 0,4
tf: tf - d
sino d: tf * 0,15
tf: tf - d
DS: tf

inicio
d, va, ca, tf: real
escriba ("digite el valor del articulo")
lea (vt)
escriba ("digite la cantidad del articulo")
lea(ca)
si (tf > 20. 000) entonces
d: tf * 0,4
tf: tf - d
escriba ("el valor a pagar es", tf)
sino
d: tf * 0,15
tf: tf - d
escriba ("el valor a pagar es", tf)
fin
fin

#include
#include
int main()
{
clrscr();
float va, d, ca, tf;
printf ("digite el valor del articulo");
scanf ("%f", &va);
printf ("digite la cantidad del articulo");
scanf ("%f", &ca);
tf: va * ca;
if (tf > 20. 000) }
d: tf * 0,4;
tf: tf - d;
printf ("\n el valor a pagar es %f", tf);
elsc
d: tf * 0,15;
tf: tf - d;
printf ("\n el valor a pagar es %f", tf);
}
getch();
}