Repaso..!
# include = Estas son Bibliotecas o librerías que siempre se utilizan.
#include
Int Main()=Inicio
{= Aqui comienza el Algoritmo.
Float xkm,xcm;
Clrscr(); = Limpiar Pantalla
Printf("digite la cantidad de km a convertir");= Escriba
scanf("%f",&xkm);=Lea
xcm=xkm*100000;=Proceso
printf("\n la cantidad de km en cm es%f", xcm);
getch();= Presione una tecla para continuar
}= Aqui termina el algoritmo
Desarrolla 2 algoritmo en lenguaje de Programaciión:
#include
#include
int main()
{
Clrscr();
Int t;p,dto;
float pd;
printf("digite la tarifa de un articulo");
scanf(%d",&t);
printf("digite el precio de un articulo");
scanf(%d",&p);
dto=t-p;
pd=dto*100/t;
printf("\n el porcentaje del descuento es: %f", pd);
getch();
}
#include
#include
int main()
{
Clrscr();
Int dmillas, dmetros, mill-metros;
printf("digite la distancia en millas");
scanf(%d",&dmillas);
dmetros=dmillas*mill-metros;
printf("\n la distancia en metros es%f", xcm);
getch();
}
pseudocodigo:
Inicio
precio, nart, pv, iva, pb, d, pn:real
leer precio, nart
pv=precio*nart
iva=pv*0.15}
pb=pv+iva
d=(pb*5)/100
pn=pb-d
escribir pv, iva, pb, d, pn
Lenguaje de Programacion:
#include
#include
int main()
{
clrscr();
float precio, nart, pv, iva, pb, d, pn;
printf("digite el precio");
scanf("%f",&precio);
printf ("digite el numero de ariculos");
scanf("%F,&nart);
pv=precio*nart;
iva= pv*0.15;
pb=pv*iva;
d=(pb*5)/100;
pn=pb-d;
printf("\n el precio de venta es: %f", pv);
printf("\n el valor agregado es: %f", iva);
printf("\n el precio bruto es: %f", pb);
printf("\n el descuento es: %f", d);
printf("\n el precio neto es: %f", pn);
getch();
}
Pseudocodigo:
Inicio
cm.pul, cm, pulgadas:real
Cm.pul=2,54
leer cm
pulgadas=cm/cm.pul
Escriba"el valor en pulgadas es"; pulgadas-
Fin
Programación:
Escriba"un valor en centimitros"
#include
#include
int main()
{
clrscr();
float cm.pul,cm,pulgadas;
cm.pul 2,57;
printf("digite un valor en centimitros");
scabf(%f"&cm);
pulgadas=cm/cm.pul;
printf("\n el valor en pulgadas es: "; pulgadas);
getch();
}
Trabajo 1:
Private Sub CommandButton1_Click()
Dim Puntos As Integer
If ComboBox1 = "santos" Then
Puntos = Puntos + 20
End If
If ComboBox2 = "juan" Then
Puntos = Puntos + 20
End If
If ComboBox3 = "oro" Then
Puntos = Puntos + 20
End If
If ComboBox4 = "gat" Then
Puntos = Puntos + 20
End If
If ComboBox5 = "Shakira" Then
Puntos = Puntos + 20
End If
If ComboBox6 = "voleibal" Then
Puntos = Puntos + 20
End If
If ComboBox7 = "jose" Then
Puntos = Puntos + 20
End If
If ComboBox8 = "carlos" Then
Puntos = Puntos + 20
End If
If ComboBox9 = "jaime" Then
Puntos = Puntos + 20
End If
If ComboBox10 = "I.T.C.D." Then
Puntos = Puntos + 20
End If
If ComboBox11 = "Anuar" Then
Puntos = Puntos + 20
End If
If ComboBox12 = "cuarto" Then
Puntos = Puntos + 20
End If
If ComboBox13 = "margarita" Then
Puntos = Puntos + 20
End If
If ComboBox14 = "Presidente" Then
Puntos = Puntos + 20
End If
If ComboBox15 = "sobrino" Then
Puntos = Puntos + 20
End If
If ComboBox16 = "Parqueadero" Then
Puntos = Puntos + 20
End If
If ComboBox17 = "cuchara" Then
Puntos = Puntos + 20
End If
If ComboBox18 = "solido" Then
Puntos = Puntos + 20
End If
If ComboBox19 = "Proton" Then
Puntos = Puntos + 20
End If
If ComboBox20 = "20 años" Then
Puntos = Puntos + 20
End If
MsgBox "Total de Puntos" + Str(Puntos)
End Sub
Trabajo2:
Private Sub CommandButton1_Click()
Dim puntos As Integer
If OptionButton1 = True Then
puntos = puntos + 20
End If
If OptionButton6 = True Then
puntos = puntos + 20
End If
If OptionButton11 = True Then
puntos = puntos + 20
End If
If OptionButton14 = True Then
puntos = puntos + 20
End If
If OptionButton19 = True Then
puntos = puntos + 20
End If
If OptionButton22 = True Then
puntos = puntos + 20
End If
If OptionButton25 = True Then
puntos = puntos + 20
End If
If OptionButton30 = True Then
puntos = puntos + 20
End If
If OptionButton33 = True Then
puntos = puntos + 20
End If
If OptionButton37 = True Then
puntos = puntos + 20
End If
If OptionButton42 = True Then
puntos = puntos + 20
End If
If OptionButton47 = True Then
puntos = puntos + 20
End If
If OptionButton49 = True Then
puntos = puntos + 20
End If
If OptionButton55 = True Then
puntos = puntos + 20
End If
If OptionButton59 = True Then
puntos = puntos + 20
End If
If OptionButton62 = True Then
puntos = puntos + 20
End If
If OptionButton66 = True Then
puntos = puntos + 20
End If
If OptionButton71 = True Then
puntos = puntos + 20
End If
If OptionButton75 = True Then
puntos = puntos + 20
End If
If OptionButton79 = True Then
puntos = puntos + 20
End If
MsgBox "ver puntos" + Str(puntos)
End Sub
