Pprocesos Secuenciales
Pprocesos Secuenciales
Pprocesos Secuenciales
Inicio
Proceso 1
Proceso 2
Proceso 3
Fin
Interpretacin: Se llama proceso de secuencia debido a que su ejecucin consiste en realizar un proceso tras otro no dependiendo de alguna condicin que haga variar su secuencia Entindase que un proceso puede ser una actividad, o un bloque de actividades (delimitados por inicio fin). Una actividad puede consistir en una asignacin, un ingreso de datos, un calculo o simplemente una sentencia para mostrar resultados. Por ejemplo, observe la secuencia del siguiente bloque de actividades: Inicio Ingresar datos Calcular formulas Mostrar resultados Fin ENUNCIADO 01: Determinar la suma de las N primeros nmeros enteros de acuerdo a la siguiente formula
PSEUDOCODIGO: Inicio Ingresar un numero entero N Calcular suma por formulas Escribir suma Fin DIAGRAMA DE FLUJO:
Inicio
Ingresar N
Suma=N(N+1)/2
Escribir suma
Inicio
ENUNCIADO 02: Calcular el inters generado por un capital depositado durante cierta cantidad de periodos a una tasa de inters determinada y expresada en porcentajes Aplicar las siguientes formulas:
Inters =Monto capital Donde, tasa es el porcentaje de inters por periodo. Un periodo puede ser un dia, un ao, etc.
DEFINICIONES DE E/S: Entradas : capital Tasa de inters (tasa) Numero de periodos (NumPer) : inters ganado (inters)
Salidas PSEUDOCODIGO:
Inicio Ingresar capital Ingresar tasa de inters: tasa Ingresar Nmero de periodos: NumPer Calcular Monto de acuerdo a la formula
Calcular valor de los intereses: Inters= Monto- capital Escribir inters Fin DIAGRAMA DE FUJO:
Inicio
Ingresar Capital
Ingresar Tasa
Ingresar NumPer
Fin
ENUNCIADO 03: Calcular el rea de un triangulo; conociendo 2 lados y el ngulo que lo forma, en grados sexagesimales. Aplique la siguiente formula: rea= (Lado1*lado2*SEN (Angulo))/2 Donde, el ngulo debe estar expresado en RADIANES
DEFINICION DE E/S: Entradas Salidas PSEUDOCODIGO: Inicio Ingresar dos lados y el ngulo; Lado1, Lado2, ngulo Convertir ngulo a radianes AngRad=PI*Angulo/180 Calcular el rea del triangulo: rea = (Lado1*Lado2*SENO (AngRad))/2 Escribir rea Fin : : 2 lados (lado1, lado2) Angulo rea
DIAGRAMA DE FLUJO:
Inicio
AngRad=PI*Angulo/180
Escribir rea
Fin
ENUNCIADO 04: Convertir un numero real, que representa horas, a su equivalente en horas, minutos, segundos y decimos de segundo. DEFINICIONES DE E/S: Entradas Salidas : : un numero real (NumReal) Horas (Hor) Minutos (Min) Segundos (Seg) Decimos de segundo (Dseg)
PSEUDOCODIGO: Inicio Ingresar un nmero real: NumReal Conversin a unidades pedidas: Hor =Entero (NumReal) NumReal =Fraccin (NmReal)*60 Min =Entero (NumReal) NumReal =Fraccin (numReal)*60 Seg =Entero (NumReal) NumReal =Fraccin (NumReal)*60 Dseg =Entero (NumReal) Escribir resultado: Hor, Min, seg, Dseg Fin
Inicio Ingresar NumReal Hor= Entero= (NumReal) NumREAL= Fraccin (NumReal)*60 Min= entero (NumReal) NumReal= Fraccin (NumReal)*60
DIAGRAMA DE FLUJO:
Seg= Entero (NumReal) NumReal= Fraccin (NumReal)*60 Dseg= Entero (NumReal) Escribir Hor, Min, Seg, Dseg Fin
ENUNCIADO 05: Estimar el nmero de pginas de un texto que puede almacenar en la memoria de un computador u promedio de 300 palabras por pagina y 10 caracteres por palabra. Asumir que un carcter ocupa un (1) Byte. El tamao de la memoria del computador debe ingresarse expresado en Kbytes
DEFINICION DE E/S: Entradas Salidas : tamao de memoria (TamMem) : Numero de paginas (NumPag)
PSEUDOCODIGO: Definir constantes: CarPorPal =10 (caracteres por palabra) PalPorPag =300 (palabras por pagina) Inicio Ingresar tamao de memoria en Kbytes: TamMem Convertir TamMem de Kbytes a bytes: Bytes = TamMen*1024 Calcular el nmero de caracteres por pgina; CarPorPag= CarPorPal*PalPorPag Calcular nmero de pginas; NumPag =Bytes/CarPorPag Escribir NumPag Fin DIAGRAMA DE FLUJO:
Inicio
CarPorPag = CarPorPal*PalPorPag
Fin
ENUNCIADO 06: Distribuir una cantidad expresada en nuevos soles, en billetes de 20, 10, 5 y 1 sol; y para los decimales en monedas de 0.50, 0.20, 0.10 y 0.05 cntimos Entradas Salidas : Cantidad : Distribucin de billetes: (b20, b10, b01) Distribucin de monedas: (m50, m20, m10, m01)
PSEUDOCODIGO: Inicio Ingresar cantidad Separa parte entera y parte decimal PartEnt = Entero de cantidad Decimal= Fraccin de cantidad Distribucin de la parte entera; b20 = entero de ParEnt/20 {20 soles} PartEnt = Residuo de PartEnt/20 b10 = Entero de PartEnt/10 {10 soles} PartEnt = Residuo de PartEnt/10 b05 = Entero de PartEnt/05 {05 soles} PartEnt = Residuo de PartEnt/05 B01 = PartEnt {1 sol} Distribucin de la parte decimal: PartDec = Entero de (decimal*1000) m50 = Entero de PartDec/500 PartDec = Residuo de ParDec/500 m20 = Entero de PartDec/200 PartDec = Residuo de PartDec/200 m10 = Entero de PartDec/100 PartDec = Residuo de PartDec/100 M05 = Entero de PartDec/50 PartDec = Residuo de ParteDec/50 m01 = Entero de PartDec/10 Escribir distribucin: b20, b10, b05, b01 m50, m20, m10, m01 Fin
DIAGRAMA DE FUJO:
Decimal = Fraccion(cantidad) b20 = Entero(PartEnt/20) PartEnte = Residuo (PartEnt/20) b10 = Enteros(PartEnt/109 PartEnt = Residuo (PartEnt/10) b05 = Entero (PartEnt/5) PartEnt = Residuo (PartEnt/5)
b01 = PartEnt
PartDec = Redondeo (decimal*1000)
Escribir b20, b10, b05, b01 M50, m20, m10, m05, m01
Fin
ALGORITMOS PROPUESTOS 1. Convertir en grados centgrados a grados farenheit a partir de la siguiente formula GradosFar =1.8*GradosCent+32 2. Calcular el rea de un triangulo conociendo sus tres lados, aplicando la siguiente formula
Area Donde P = semiperimetro A, B, C = Lados Considerar el valor absoluto de la diferencia entre el semiperimetro y cada uno de los lados. 3. La nota final de un curso d programacin se obtiene de acuerdo a las siguientes formulas: PF = (Ep+2Ef+Pp)/4 Ef = (2Pe+Py)/3 Pp = (2Pa+Pc)/3 Donde PF, promedio final Ep, Examen parcial Ef Examen final Pp promedio de prctica Pe Prueba escrita del examen final Py Proyecto Pa Promedio de prctica de aula Pc Promedio de notas de concepto del profesor Segn reglamento, la nota mnima probatoria es de 10.5 y los promedios parciales no se redondean. U alumno, sumamente preocupado, desea saber cuanto deber sacar como nota en la prueba escrita del examen final para aprobar dicho curso si ys sabe todas las dems notas. 4. De acurdo aun principio aritmtico, un numero es mltiplo de 5 si termina en 0 o el 5 aplicando este principio determinar este principio determinar si un numero entero es mltiplo de 5. 5. Determinar el valor de la HIPOTENUSA de un triangulo rectngulo aplicando el teorema de Pitgoras, el permetro y el rea que representa conociendo solamente el valor de sus lados
Resolucin En Visual Basic de Algunos problemas Propuestos y Resueltos 1.- La nota final de un curso d programacin se obtiene de acuerdo a las siguientes formulas: PF = (Ep+2Ef+Pp)/4 Ef = (2Pe+Py)/3 Pp = (2Pa+Pc)/3 Donde PF, promedio final Ep, Examen parcial Ef Examen final Pp promedio de prctica Pe Prueba escrita del examen final Py Proyecto Pa Promedio de prctica de aula Pc Promedio de notas de concepto del profesor Segn reglamento, la nota mnima probatoria es de 10.5 y los promedios parciales no se redondean. U alumno, sumamente preocupado, desea saber cuanto deber sacar como nota en la prueba escrita del examen final para aprobar dicho curso si ys sabe todas las dems notas.
Private Sub Command1_Click() Dim Pe, Ep, Pp, Py As Single Ep = Val(Text1) Pp = Val(Text3) Py = Val(Text4) Pe = 4 / 3 * (42 - Ep - Pp) - Py / 2 Text2 = Pe End Sub
2.- Distribuir una cantidad expresada en nuevos soles, en billetes de 20, 10, 5 y 1 sol; y para los decimales en monedas de 0.50, 0.20, 0.10 y 0.05 cntimos Entradas Salidas : Cantidad : distribucin de billetes: (b20, b10, b01) Distribucin de monedas: (m50, m20, m10, m01)
Private Sub cmd_calcular_Click() Dim num As Single num = Val(txt_num) If num >= 0 Then txt_20 = num \ 20 r1 = num - (num \ 20) * 20 txt_10 = r1 \ 10 r2 = r1 - (r1 \ 10) * 10 txt_5 = r2 \ 5 r3 = r2 - (r2 \ 5) * 5 txt_1 = r3 \ 1 r4 = r3 - (r3 \ 1) * 1 a = r4 * 100 txt_50cent = a \ 50 a1 = a - (a \ 50) * 50 txt_20cent = a1 \ 20 a2 = a1 - (a1 \ 20) * 20 txt_10cent = a2 \ 10 a3 = a2 - (a2 \ 10) * 10 txt_5cent = a3 \ 5 Else MsgBox "Las Cantidades deben ser positivas", vbCritical, "Conteo de Billetes y Monedas" End If End Sub
Private Sub cmd_nuevo_Click() txt_num = "" txt_100 = "" txt_50 = "" txt_20 = "" txt_10 = "" txt_5 = "" txt_1 = "" txt_50cent = "" txt_20cent = "" txt_10cent = "" txt_5cent = "" txt_num.SetFocus End Sub Private Sub cmd_salir_Click() rpta = MsgBox("Realmente desea salir?", vbOKCancel + vbQuestion, "Cantidad de dinero de cada unidad") If rpta = vbOK Then End Else txt_num.SetFocus End If End Sub
3.- Calcular el rea de un triangulo conociendo sus tres lados, aplicando la siguiente formula Area Donde P A, B, C = = semiperimetro Lados
Private Sub Command1_Click() Dim a, b, c As Single a = Val(Text1) b = Val(Text2) c = Val(Text3) p = (a + b + c) / 2 s = (p * (p - a) * (p - b) * (p - c)) ^ (1 / 2) Text4 = s
If Text1 = "" Or Text2 = "" Or Text3 = "" Then rpt = MsgBox("Digite un los lados del triangulo", vbOKCancel + vbCritical, "Teorema ") If rpt = vbOK Then Text1.SetFocus End If End If End Sub.