LuisCastellanos

Guía de Matemáticas I

Planificación Detallada

Guía de Sistemas de Información III

Planificación Detallada 8vo Semestre Ing Sistemas UJGH

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.

A pesar de no ser lo siguiente lo que se exige en la redacción de Monografías y Ensayos, lo mínimo que debe llevar un Trabajo de Investigación, de acuerdo a mi criterio, es lo siguiente:

1. Introducción (debe llevar al menos: objetivo del trabajo, metodología seguida para elaborar el trabajo, limitaciones presentadas para elaborar el trabajo).
2. Esquema (puede tener numeración de las páginas)
3. Contenido
4. Conclusiones (debe llevar al menos: si el objetivo trazado se cumplió, de no haberse cumplido explicar las razones, un breve resumen de lo investigado, recomendaciones).
5. Referencias (si es de un texto: APELLIDO, Nombre: “Título del texto”. Editorial. Ciudad, Año. Si es de página Web: Nombre de la Página Web: Dirección completa y fecha).

En las Referencias, colocar “google.com”, “yahoo.com” o “monografias.com” no es suficiente.