Programacion Análisis de Problema
Enviado por Ninoka • 22 de Diciembre de 2017 • 5.861 Palabras (24 Páginas) • 446 Visitas
...
Sino
SUN1+N2+N3;
Escribir "El valor de la suma es de: ", SU;
Fin Si
Fin.
Diagrama N-S
[pic 5]
Diagrama de Flujo
[pic 6]
Código en Pascal
Program tresnumeros;
Var
N1, N2, N3, PR, SU: Real;
Begin
Writeln ('Ingrese el primer número');
Readln (N1);
Writeln ('Ingrese el segundo número');
Readln (N2);
Writeln ('Ingrese el tercer número');
Readln (N3);
If N1
PR:= N1*N2*N3;
Writeln ('El valor del producto es de: ', PR);
End
Else Begin
SU: = N1+N2+N3;
Writeln ('El valor de la suma es de: ', SU);
End;
End.
- Escriba un Programa que lea dos números y calcule la suma de ellos.
Análisis de problema
Entrada: A: Primer Numero
B: Segundo Numero
SU: Suma de los dos números.
Proceso: SU:=A+B
Salida: SU
Diagrama N-S
[pic 7]
Diagrama de Flujo
[pic 8]
Pseudocodigo
Inicio
Escribir 'Ingrese el primer valor a sumar'
Leer A
Escribir 'Ingrese el segundo valor por sumar'
Leer B
SUA+B
Escribir 'El valor de la suma es: ', SU
Fin.
Código en pascal
Program suma;
Var
A, B, SU: Real;
Begin
Writeln ('Ingrese el primer valor a sumar');
Readln(A);
Writeln ('Ingrese el segundo valor por sumar');
Readln (B);
SU:= A+B;
Writeln ('El valor de la suma es: ', SU);
End.
- Escribir un programa que calcule el salario de un trabajador teniendo en cuenta las horas trabajadas durante la semana y el valor por hora de estas, teniendo en cuenta que si
Después de las 40 horas, las horas se valoran como horas extras y su valor por hora es el doble que el del inicio.
Análisis de Problema
Entrada: HT: Horas trabajadas durante la semana
VH: Valor por hora
Proceso: Si HT>40 Calcular lo siguiente:
HE:=HT-40
S:=(40)*(HT)+ (HE)*(2)*(VH)
En caso contrario
S:=HT*VH
Salida: HE: Horas extras del trabajador
S: Salario del Trabajador
Diagrama de Flujo[pic 9]
Diagrama N-S
[pic 10]
Pseudocodigo
Inicio
Escribir "Ingrese las horas trabajadas por el empleador, durante la semana"
Leer HT
Escribir "Ingrese el valor por hora"
Leer VH
Si HT>40 Entonces
HEHT-40
S(40)*(HT) + (HE)*(2)*(VH)
Sino
SHT*VH
Fin Si
Escribir "El salario del trabajador es de: ", S
Fin.
Código en Pascal
PROGRAM SUELDO;
USES CRT;
VAR HT, VH, HE, S: INTEGER;
BEGIN
WRITE ('INGRESE LAS HORAS TRABAJADAS POR EL EMPLEADOR DURANTE LA SEMANA');
READLN (HT);
WRITE ('INGRESE EL VALOR POR HORA');
READLN (VH);
IF (HT>40) THEN
BEGIN
HE: =HT-40;
S :=( 40)*(HT) + (HE)*(2)*(VH);
...