febrero 18, 2019, 12:01:09 am

Noticias:

Por motivos de la actualización realizada en Septiembre 2018, es necesario restablecer la contraseña. Si tienes problemas, escribe a [email protected]


Buscar en el sitio


Consejos para documentar

Iniciado por ring, abril 19, 2006, 03:33:33 pm

« anterior - próximo »

0 Usuarios y 1 Visitante están viendo este tema.

Ir Abajo

ring

qué aconsejan para hacer una documentación interna y externa COMPLETA  de un programilla en PASCAL?

JorgeAVM


ring

pues lo hice pero no sé qué àja comentar

necesito agregarle documentación, pero como es tan sencillo y no sé qué pasos se acostumbran, he leído que se ocupan para documentacion interna o se debe poner precondiciones, postcondiciones, explicacion de los parametros y valores de retorno mas un comentario de q hace el procedimiento, pero como es tan sencillo, no sé qué inventar, es elemental, se lo voy a postear.

Codificación
A continuación se transcribe:

{Comentario: este programa responde al planteamiento de la Tarea 4}

Program Libros (input, output);
(* Recibe 100 libros como máximo de libros leídos y devuelve la información de cuántos son de los noventas y cuantos del 2000 en adelante *)

Uses crt;

Const
  CANTIDAD_LIBROS = 100;

Type

  TLibro = record
    titulo : string;
    autor : string;
    precioCompra: real;
    añoEdicion : integer;
  end;

var
  arregloLibros : array [1..CANTIDAD_LIBROS] of TLibro;
  masLibros : integer;
  indice : integer;

procedure reportarAño90(cantidadLibrosLeidos : integer);
var
  cantidadLibros : integer;
  i : integer;
begin
  cantidadLibros := 0;
  for i := 1 to cantidadLibrosLeidos do
     begin
      if ((arregloLibros.añoEdicion >= 1990) and (arregloLibros.añoEdicion < 2000)) then
        begin
          inc(cantidadLibros);
        end;
    end;
  write('Cantidad de libros de los 90s: ');
  writeln(cantidadLibros);
end;

procedure  reportarDespues2000(cantidadLibrosLeidos : integer);
var
  cantidadLibros : integer;
  i : integer;
begin
  cantidadLibros := 0;
  for i := 1 to cantidadLibrosLeidos do
    begin
      if (arregloLibros.añoEdicion >= 2000) then
        begin
          inc(cantidadLibros);
        end;
    end;
  write('Cantidad de libros del 2000 en adelante: ');
  writeln(cantidadLibros);
end;
procedure reportarResultados(cantidadLibrosLeidos : integer);
begin
  reportarAño90(cantidadLibrosLeidos);
  reportarDespues2000(cantidadLibrosLeidos);
end;
begin
  clrscr;
  masLibros := 1;
  indice := 0;
  while ((masLibros = 1) and (indice <= 100)) do
    begin
      inc(indice);
      write('INFORMACION DEL LIBRO: ');
      writeln(indice);
      write('titulo: ');
      readln(arregloLibros[indice].titulo);
      write('autor: ');
      readln(arregloLibros[indice].autor);
      write('precio: ');
      readln(arregloLibros[indice].precioCompra);
      write('a¤o edicion: ');
      readln(arregloLibros[indice].añoEdicion);
      write('mas libros? (0 : no, 1 : si): ');
      readln(masLibros);
    end;
  reportarResultados(indice);
  writeln('Presione una tecla para continuar ...');
  readkey;

end.

JorgeAVM

Bien, la documentación interna, es agregar comentarios en el código del programa que ayuden a comprender qué hace el código en cada parte importante.
Por ejemplo:

Centre Me ' Centra el form
Dev_CAFF.VerEBAIS  'Cargar información del EBAIS
If Dev_CAFF.rsVerEBAIS.RecordCount > 1 Then MsgBox "Error de Base de Datos, tabla: Caff_Ebais. Hay más de un Ebais. Consulte con el proveedor del Sistema", vbCritical
Txt_IdeEbais.Text = Dev_CAFF.rsVerEBAIS.Fields(0).Value
Txt_DscEbais.Text = Dev_CAFF.rsVerEBAIS.Fields(3).Value
Txt_IdeArea.Text = Dev_CAFF.rsVerEBAIS.Fields(1).Value
Txt_IdeRegion.Text = Dev_CAFF.rsVerEBAIS.Fields(2).Value
Dev_CAFF.rsVerEBAIS.Close
'------------------------


En este ejemplo, el texto en rojo representa la documentación interna.

La documentación externa, es mucho más elaborada que eso, dependiendo del caso puede requerir un manual de usuario, en el cual explica paso a paso cómo usar el programa. También podría requerir un manual técnico en el cual pueden ir cosas tal como la instalación del programa y sus requisitos de equipo.

gin

Es importante no llenar de comentarios reduntantes, solo aquellos procedimientos o instrucciones un poco extraños o complicados, que luego de 3 años intendo saber para que lo hicimos.  :D

Por cierto que tiene que ver este mensaje con el subforo  :?
blog.mbrenes.com

No hay vida en este cuerpo Yo soy nada, sin vida, sin alma ... odiado y temido, estoy muerto para todo el mundo. Escuchame... yo soy el monstruo al que los ho

JorgeAVM


Link

Porque esa pregunta este subforo es de Pascal, Delphi y el pregunta como documentar un codigo en Pascal. Yo no veo nada mal.

gin

Ahora si.

Pero que raro lo vi en Juegos y Emuladores de Consolas  :shock:
blog.mbrenes.com

No hay vida en este cuerpo Yo soy nada, sin vida, sin alma ... odiado y temido, estoy muerto para todo el mundo. Escuchame... yo soy el monstruo al que los ho

Link


JorgeAVM


Ir Arriba
 

Redes Sociales

Bienvenido, Invitado.
Por favor inicia sesión o regístrate.
 
 
 
¿Olvidó su contraseña?

Buscar en el sitio

Powered by EzPortal