LuisCastellanos

Para hacer Diagrama de Flujo, Pseudo Código y Programación cuando corresponda:

1. Mostrar su Nombre y su Apellido
2. Mostrar el Nombre y Apellido de cualquier persona de quien se introduzcan los datos.
3. Sumar 2 + 2 y mostrar el resultado (por pantalla, por impresora, por pantalla e impresora)
4. Sumar 2 números cualesquiera.
5. Dados 2 números, estar en capacidad de sumarlos, restarlos, multiplicarlos y dividirlos.
6. Dados los coeficientes de una Ecuación de 2do Grado, calcular y mostrar x1 y x2.
7. Calcular la Serie de Fibonacci hasta un número dado.
8. Calcular la edad
   • fácil: al introducir sólo el año de nacimiento
   • mediano: al introducir el mes y año de nacimiento
   • complejo: al introducir el día, mes y año de nacimiento
9. Calcular la nota definitiva para 5 alumnos, tomando en cuenta las ponderaciones siguientes:
   • 1er Parcial: 30%
   • 2do Parcial: 25%
   • 3er Parcial: 20%
   • 4to Parcial: 25%
10. Calcular el sueldo quincenal, tomando en cuenta los siguientes parámetros:
    • Bs 450.000 por quincena
    • Bono de 10% de profesionalización a los que tienen título universitario
    • Bono quincenal de transporte de Bs 70.000
    • Bono de alimentación de Bs 5.000 por día laborado
    • Deducciones:
      • 2% Seguro Colectivo
      • 1% Paro Forzoso
      • 2% Seguro Social
      • 2% Caja de Ahorro
11. Calcular los números primos en un rango dado
12. Calcular la suma de todos los números enteros impares, en un rango dado.
13. Calcular el factorial de un número.

program primos; uses crt;

uses crt;
var
   n, residuo, contador: integer;
begin

   clrscr;
   contador:=0;
   n:=0;
   residuo:=0;
   writeln(’Programa para Mostrar 50 Numeros Impares’);
   writeln;

   while residuo=0 do
     begin
        writeln(’Ingrese el numero a partir del cual se va a mostrar la serie: ‘);
        readln(n);
        residuo:=n mod 2;
        if residuo=0 then
           writeln(’El numero debe ser impar… Vuelva a intentarlo…’);
     end;
   writeln;
   write(’(1)’,n,’ ‘);
   while contador<49 do
     begin
        contador:=contador+1;
        n:=n+2;
        write(’(',contador+1,’)',n,’ ‘);

     end;
   writeln;
   writeln(’Fin del programa…’);
   writeln(’Presione cualquier tecla para continuar.’);
   readkey;
end.

Programa sencillo:

 Program Factorial;
uses crt;
var
  numero,cota:longint;
  contador:integer;
begin
  clrscr;
  write(’Escriba un n£mero: ‘);
  read(cota);
  contador:=1;
  numero:=1;
 repeat
    numero:=numero*contador;
    contador:=contador+1;
 until
    contador>cota;
    writeln(’El factorial del n£mero es: ‘,numero);
    readkey;
end.

Programa un poco más elaborado:

program factorial_numero;

    uses crt;

    var
    n,m,contador:integer;
    factorial:int64;
    bandera:boolean;
    seguir:char;

begin
 bandera:=true;
 while bandera do
   begin
     clrscr;
     writeln(’Programa para Calculo de Factorial de un Numero’);
     writeln;
     contador:=1;
     n:=0;
     factorial:=1;
     while n=0 do
       begin
        write(’Ingrese el numero al cual se le va a calcular el factorial: ‘);
        readln(n);
        writeln;
        if n<1 then
           writeln (’Numero debe ser mayor que 1. Ingrese nuevamente.’);
       end;
     writeln;
     m:=n+1;
     while contador<m do
       begin
           factorial:=factorial*contador;
           contador:=contador+1;
       end;
     writeln(’El Factorial de ‘,n,’ es: ‘,factorial);
     writeln;
     write(’¨Desea calcular otro Factorial? (s/n)’);
     readln (seguir);
     if seguir<>’s’ then
        bandera:=false;
   end;

end.

 program fibonacci;

  uses crt;

   var

   a,b,c:int64;
   n,contador:integer;
   bandera:boolean;
   bandera1:boolean;
   seguir:char;

begin
  clrscr;
  bandera:=true;

  while bandera do
    begin
      contador:=3;
      bandera1:=false;
      clrscr;
      writeln(’Calculo de Serie de Fibonacci.’);
      writeln;
      write(’Ingrese numero de terminos de la serie a calcular: ‘);
      readln(n);
      writeln;
      while n<1 do
        begin
          write(’Ingrese numero mayor que 0…’);
          readln(n);
          writeln;
        end;
      a:=0;
      b:=1;
      c:=a+b;
      writeln(’Serie de Fibonacci con ‘,n,’ terminos:’);
      writeln;
      if n=1 then
         writeln(a);
      if n=2 then
         writeln(a,’ ‘,b);
      if n=3 then
         writeln(a,’ ‘,b,’ ‘,c);
      if n>3 then
           while contador<n do
             begin
               if bandera1=false then
                  begin
                    write(a,’ ‘,b,’ ‘,c,’ ‘);
                    bandera1:=true;
                  end;
               a:=b;
               b:=c;
               c:=a+b;
               write(c,’ ‘);
               contador:=contador+1;
             end;

     writeln;
     writeln;
     writeln(’Desea continuar? (s/n) ‘);
     readln(seguir);
     if seguir <> ’s’ then
        bandera:=false;
  end;
end.

Diagrama de Flujo para calcular si un Número es Primo:

Diagrama de Flujo sencillo para la Serie de Fibonacci.

Diagrama de Flujo para Ecuación de Segundo Grado.

Diagrama de Flujo para calcular el Factorial de un número.

       CBM4-B          CBM4-G         CBM-4I

(Haga click sobre las imágenes para agrandar)

Para hacer Diagrama de Flujo, Pseudo Código y Programación cuando corresponda:

1. Mostrar su Nombre y su Apellido
2. Mostrar el Nombre y Apellido de cualquier persona de quien se introduzcan los datos.
3. Sumar 2 + 2 y mostrar el resultado (por pantalla, por impresora, por pantalla e impresora)
4. Sumar 2 números cualesquiera.
5. Dados 2 números, estar en capacidad de sumarlos, restarlos, multiplicarlos y dividirlos.
6. Dados los coeficientes de una Ecuación de 2do Grado, calcular y mostrar x1 y x2.
7. Calcular la Serie de Fibonacci hasta un número dado.
8. Calcular la edad
   • fácil: al introducir sólo el año de nacimiento
   • mediano: al introducir el mes y año de nacimiento
   • complejo: al introducir el día, mes y año de nacimiento
9. Calcular la nota definitiva para 5 alumnos, tomando en cuenta las ponderaciones siguientes:
   • 1er Parcial: 30%
   • 2do Parcial: 25%
   • 3er Parcial: 20%
   • 4to Parcial: 25%
10. Calcular el sueldo quincenal, tomando en cuenta los siguientes parámetros:
    • Bs 450.000 por quincena
    • Bono de 10% de profesionalización a los que tienen título universitario
    • Bono quincenal de transporte de Bs 70.000
    • Bono de alimentación de Bs 5.000 por día laborado
    • Deducciones:
      • 2% Seguro Colectivo
      • 1% Paro Forzoso
      • 2% Seguro Social
      • 2% Caja de Ahorro
11. Calcular los números primos en un rango dado
12. Calcular la suma de todos los números enteros impares, en un rango dado.
13. Calcular el factorial de un número.
14. Determinar si un número es primo.
15. Dados 5 números, ordenarlos de menor a mayor.
16. Empleando matrices, dados 5 números, ordenarlos de menor a mayor.
17. Multiplique dos Matrices dadas.
18. Sume dos Matrices dadas.
19. Invierta una Matriz dada.

• 1er Corte:
  • Investigar para el 1er Trabajo.
• 2do Corte:
  • Investigar para el 2do Trabajo
  • Leer la Guía de Algoritmos (completa)
  • Hacer los Diagramas de Flujo y Algoritmos asignados
• 3er Corte
  • Investigar para el 3er Trabajo
  • Tiempo en Laboratorio
• 4to Corte
  • Investigar para el 4to Trabajo
  • Tiempo en Laboratorio

De acuerdo a lo acordado, acá está el Cronograma de Evaluaciones:

• 1er Parcial (20%) y 1er Trabajo (5%): 29ENE07 - 03FEB07
• 2do Parcial (20%) y 2do Trabajo (5%): 19FEB07 - 24FEB07
• 3er Parcial (20%) y 3er Trabajo (5%): 12MAR07 - 17MAR07
• 4to Parcial (20%) y 4to Trabajo (5%): 16ABR07 - 21ABR07

Los Trabajos deben estar conformados por: Introducción, Contenido, Conclusiones, Bibliografía. Deben estar hechos a mano, y el contenido debe tener no menos de 5 páginas y no más de 10.

• 1er Trabajo: Evolución Histórica de los Computadores
• 2do Trabajo: Evoluciòn de los Lenguajes de Programación
• 3er Trabajo: Datos. Datos complejos. Pilas. Colas. Listas. Grafos. Arboles.
• 4to Trabajo: Archivos Secuenciales y Aleatorios