Algoritmos

Ejemplos de algoritmos y diagramas de flujo

a) Realiza un algoritmo, un programa en pascal y un diagrama de flujo para calcular la multiplicación de 3 números.

AlgoritmoInicio

Leer N1

Leer N2

Leer N3

Multiplicación=N1*N2*N3

Escribe el resultado de Multiplicación

Fin




PascalProgram Multiplicación;

Uses crt;

Var

N1,N2,N3,Multi:Integer;

Begin

Clrscl;

Writeln(‘Escribe Numero 1’);

Readln(N1);Writeln(‘Escribe Numero 2’);

Readln(N2);

Writeln(‘Escribe Numero 3’);

Readln(N3);

Multi:=(N1*N2*N3);

Writeln(‘Escribe el resultado es:’,Multi’);End.

























Diagrama de Flujob) Realizar un algoritmo, un diagrama en pascal y un diagrama de flujo para calcular el promedio de 5 personas.

AlgoritmoInicio

Leer P1

Leer P2

Leer P3

Leer P4

Leer P5

Promedio=(P1+P2+P3+P4+P5)/5

Escribe el resultado de Promedio

FinPascal

Program Promedio;

Uses crt;

Var

P1,P2,P3,P4,P5,Prom: Integer;

Begin

Clrscl;

Writeln(‘Escribepromedio 1’);

Readln(P1);

Writeln(‘Escribe promedio 2’);

Readln(P2);

Writeln(‘Escribe promedio 3’);

Readln(P3);

Writeln(‘Escribe promedio 4’);Readln(P4);

Writeln(‘Escribe promedio 5’);

Readln(P5);

Prom:=(P1+P2+P3+P4+P5)/5;

Writeln(‘Escribe el resultado es:’,Prom’);

End....