Programacion.

...

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);