Tablas de Multiplicar

El siguiente programa solicita N numero para realizar a este la Multiplicación hasta 10.

Proceso tablaNa10

Definir n,i,r Como Entero;

Escribir "Numero a realizar Tabla";

Leer n;

Para i<-1 Hasta 10 Con Paso 1 hacer 

r<-n*i;

Escribir n,"x",i,"=",r;

FinPara

FinProceso

Precio de Venta Producto

El siguiente programa solicita el Precio de un Producto y a este le agrega la Utilidad, finalmente imprime el Subtotal, el Iva y el Precio Total a Pagar.

Proceso preciodeventa

Definir costo,utilidad,pv,iva,pvp Como Entero;

Escribir "Precio del Articulo:";

Leer costo;

utilidad<-costo*30/100;

pv<-costo+utilidad;

iva<-pv*16/100;

pvp<-pv+iva;

Escribir "Subtotal: ",pv;

Escribir "Iva: ",iva;

Escribir "Total: ",pvp;

FinProceso

Múltiplos de N

El siguiente programa solicita N numero entero y solicita un Numero máximo para hallar en este cuales son los múltiplos de N numero.

Proceso multiplos

Definir n,nc,c Como Entero

n<-1

Escribir "Cual numero desea consultar?";

leer c;

Escribir "Hasta que numero?";

leer nc;

Repetir

si n mod c =0 Entonces

Escribir n;

FinSi

n<-n+1

Hasta Que n>nc

FinProceso

Factura

El siguiente programa solicita el nombre de un Producto, la Cantidad de este y su Valor Unitario, luego solicita si el usuario desea continuar y finalmente devuelve el Valor a Pagar y la Cantidad de productos comprados.

Proceso factura

Definir cant,vu,sub,total,con Como Entero

Definir rta,cod Como Caracter

con<-0;

total<-0;

c<-0;

Repetir

Escribir "Nombre Articulo:";

Leer cod;

Escribir "Cantidad:";

Leer cant;

c<-c+cant;

Escribir "Valor Unitario:";

Leer vu;

sub<-cant*vu;

Escribir "Subtotal de: ",cod," es ",sub;

con<-con+1;

total<-total+sub;

Escribir "Desea continuar s/n?";

Leer rta;

Hasta Que rta="n";

Escribir "Valor Total:",total;

Escribir "Ud Compro ",c," Productos";

FinProceso

Cantidad Dias Meses Años

El siguiente programa solicita N dias y clasifica cuantos Dias, Meses y Años equivale esa cantidad N.

Proceso añosmeseydias

Definir dias,a,m,d,r Como Entero;

Escribir "Cantidad de dias:";

Leer dias;

a<-dias/360;

r<-dias-a*360;

m<-r/30;

d<-r-m*30;

Escribir "Los dias son: ",d;

    Escribir "Los meses son: ",m;

Escribir "Los años son: ",a;

FinProceso

Ahorro en Meses

El siguiente programa solicita N meses y pide que sea ingresada una Cantidad de dinero, luego determina el Ahorro en N meses con un incremento del 3%.

Proceso ahorro

escribir "Cantidad de meses :";

leer n;

Escribir "Cantidad dinero :";

leer m;

i<-0;

para i<-1 hasta n*12 con paso 1

int<- m*3/100;

   suma<- int*n+m;

finpara

Escribir "El ahorro es ",suma; 

FinProceso

Vector para Ventas

El siguiente programa solicita 7 Cantidades y 7 Valores Unitarios, luego ubica las cantidades y los unitarios con su respectivo Costo Total.

Proceso vectorventas

Dimension cantidad[7]

Dimension vunitario[7]

Dimension vp[7]

Escribir "Digite datos de los articulos"

para i<-1 hasta 7 con paso 1 Hacer

Escribir "Cantidad ",i

Leer cantidad[i]

Escribir "Valor unitario ",i

Leer vunitario[i]

vp[i]<-cantidad[i]*vunitario[i]

FinPara

Escribir ""

Escribir " CANT VLOR UNIT VLOR PAGAR"
para i<-1 hasta 7 con paso 1 Hacer
Escribir i," ",cantidad[i]," ",vunitario[i]," ",vp[i]
finpara

FinProceso