Hace un inventario, altas, bajas, consultas, y modificaciones

¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
{-Victor De la Rocha}
{-Algoritmia@groups.msn.com}
{-www.myalgorithm.com}
{
-Programa 6-Programa que hace un inventario:
 altas,bajas,modificaciones,consultas,reportes!!!
}
uses
 crt;const
 ARCHIVO='AJENDA.TXT';{Unicamente lo leera, no lo modificara}
type
 F=TEXT;
var Letras,f2:F;
 Caracter:char;
 palabra:string;
procedure titulo(titulo:string;y:integer);
 begin  gotoxy(trunc((80/2)-(length(titulo))/2),y);
  write(titulo);
 end;{Procedure titulo}
 
begin{Programa Principal} ClrScr;
 titulo('Programa 6',1);
 titulo('>Agenda<',2);
 writeln;
 {*--->Asigno el ARCHIVO a Letras(El que voy a leer)<---*} assign(Letras,ARCHIVO);
 assign(f2,'copia5.txt');
 {*--->Intento crear los archivo<---*}
 {$I-}
  reset(Letras); {$I+}
  if ioresult=0 then {} else rewrite(Letras);
 reset(Letras);
 rewrite(f2);{creo el archivo dos o copia, como nuevo}
 reset(f2); {*---><---*}
 {append(f2);{abro f2, para escritura}
 {*--->Intento leer Letras caracter por caracter<---*}
  palabra:='';
  while not eof(Letras) do   begin
    while not eoln(Letras) do
     begin
      repeat
       append(f2);       read(Letras,Caracter);
       close(f2);
       caracter:=upcase(caracter);
       palabra:=concat(palabra,Caracter);
      until (caracter=' ') OR (eof(Letras)=true);       append(f2);
       write(f2,palabra);
       {*--->Mostra en pantalla palabra por palabra<---*}
       delay(50);write(palabra);
       {*---><---*}       palabra:='';
       close(f2)
     end;{while not eoln}
    readln(Letras);
    append(f2);    writeln(f2);
    close(f2);
   end;{while not eof}
  Close(Letras);
 {*---><---*} ReadKey;
end.

1.- Altas 2.- Bajas 3.- Modificaciones 4.- Consulta 5.- Salir opc: 1

Nombre: Victor De la Rocha
Apodo: Vyk

1.- Altas
2.- Bajas
3.- Modificaciones
4.- Consulta
5.- Salir
opc: 4

Reg 1: Victor Manuel, Alias el: Alexa

1.- Altas
2.- Bajas
3.- Modificaciones
4.- Consulta
5.- Salir
opc: 4

Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

  • Si es lenguaje C <code lang="c">Código en C</code>
  • Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.

De esta manera el código coloreas el código.

Deja un comentario

Suscribirse a los comentarios.