Ensayo impotancia de llamarse ernesto

ALGORITMO | DIAGRAMA DE FLUJO | PROGRAMA |
1.-Elavora un algoritmo para lograr como resultado el numero 35. Inicio |
E 20,100,50,70,30,5 |
Proceso |
(((100/2)*2)-70)+5 |
Salir (Fin) |
35 |
| 1.-Muneno 35Inicio
a,b,c,d,f,g,l: Decimal
Dame el valor de : a
Dame el valorde : b
Dame el vlor de : c
Fin
35
(((100/2)*2)-70)+5
Dame el vaolr de : g
Dame el valor de : f
Dame el valor de : d
| Dim a,b,c,d,f,g as Decimal a=CDBL(textbox1.text) b=CDBL(textbox2.text) c=CDBL(textbox3.text) d=CDBL(textbox4.text) f=CDBL(textbox5.text) g=CDBL(textbox6.text) (((100/2)*2)-70)+5Messagebox.show(Correcto es 35)ELSEMessagebox.show(Lo siento vuelvelo hacer)ENDIR |2.-El area de un cuadrado. Inicio |
E Solicitar el valor de =L Calcular el =a Calcular =p |
Proceso |
a=L*L p=L+L+L+L |
Salida (Fin) |
a p |
| FIN
A
P=L+L+L+L
A=L*L

DAME EL VELOR DE LADO :L
P,L,A: INTEGRALInicio
2.-Cuadrado | Dim P , L, A as Integral P= CDBL(textbox1.text) L=CDBL(textbox2.text) A=CDBL(textbox3.text) P=L+L+L+L A=L*LMessagebox1.show(Tu perimetro es correcto)ThenMessagebox1.show(Erros regresa )ENDIRMessagebox2.show(Tu area es correcta)ELSEMessagebox.show(Erros regresa )ENDIR |

3.-Calcula el area de un triangulo. Inicio |
E Solicitar =b Solicitar=h Calcular =a |
Proceso |
a=b*h/2 |
Salida (Fin) |
a |
| Fin
A
A=(B*H)/2
Dame el valor de la altura :H
Dame el valor de la base :B
B,A,H:Integral
Inicio
3.-Triangulo
| Dim B , A , H as Integral B= CDBL(textbox1.text) A=CDBL(textbox2.text) H=CDBL(textbox3.text)A=(B*H)/2Messagebox.show(Correcto lo has hecho bien )ELSEMessagebox.show(Losiento vuelvelo hacer)ENDIR |

4.-Rectangulo Inicio |
E Solicitar =b Solicitar =h Calcular =a |
Proceso |
a=b*h |
Sallida (Fin) |
a |
| 4.-Rectangulo Inicio
Fin
a
a=(b*h)
b,h,a:Integral
Dame el valor de la altura:h
| Dim b , h , a as Integral b= CDBL(textbox1.text) h=CDBL(textbox2.text)a=CDBL(textbox3.text)a=(b*h)Messagebox.show(Tu area es correcta)ELSEMessagebox.show(Tu areas esta mal,observa bien)ENDIR |

5.-Construye el algoritmo para el siguiente ejercicio: En un almacen voy a comprar unas botas,pantalones,blusas,sacos ¿Cuanto me voy a gastar? Inicio |
E Solicitar =b Solicitar =p Solicitar =s Solicitar =l Calcular =t Calcular =d |
Proceso |
t=b+p+s+l d=(.15*t)|
Salida (Fin) |
t d |
| 5.-ComprasInicio
B,p,bl,s:Integral
D,t:Decimal

Dame el valor de las botas:b
Dame el valor de los pantalones:p
Dame el valor de la blusa:bl
Dame el valor del saco :s
d=(b+p+bl+s)*15
t=b(b+p+bl+s)-1

d,t
Fin

| Dim b , p , bl , s as Integral Dim d , t as Decimal b=CDBL(textbox1.text) p=CDBL(textbox2.text) bl=CDBL(textbox3.text)d=CDBL(textbox4.text) t=CDBL(textbox5.text)d=(b+p+bl+s)*15t=b(b+p+bl+s)-1Messagebox1.show(Descuento correcto)ThenMessagebox1.show(Descuento incorrecto)ENDIRMessagebox2.show(Perfecto total)ELSEMessagebox.show(No, regresa esta mal)ENDIR |

6.-Sacar el promedio de un alumno de tres unidades. Inicio |
E Solicitar =a Solicitar =b Solicitar =c Calcular = p |
Proceso |p=(a+b+c)/3 |
Salida (Fin) |
p |
| Inicio
6.-Promedio a,b,c,p:Integral
Dame el valor de la calificacion : a
Dame el valor de la calificacion:b
Dame el valor de la calificacion :c

Fin
p
p=(a+b+c)/3
| Dim a, b, c, p as Decimala=CDBL(textbox1.text) b=CDBL( textbox2.text)c=CDBL( textbox3.text)p=(a+b+c)/3Messagebox.show(Felicidades te...