Sistema Taller de Mecanica - Pascal

PROGRAM Mecanica;

{Autor :
Ubicacion :
Fecha :
Proposito : Este sistema maneja las operaciones principales para el
registro de los datos de un grupo de clientes y la generacion
de informes sobre los mismos.}

USES CRT ,
DOS ;

CONST
DIST = 30;

Sistema = 'SISTEMA DE REGISTRO DE CLIENTES';
Compania ='MECANICA GENERAL';

CantCliente = 30;
TamAno = 4;
TamModelo = 10;
TamEntrada = 10;
TamNombre = 20;

OpcAnadir = 1;
OpcModificar = 2;
OpcEliminar = 3;
OpcInspec = 4;
OpcInfGen = 5;
OpcSalida = 6;

TYPE
StrAno = STRING [TamAno];StrModelo = STRING [TamModelo];
StrEntrada = STRING [TAmEntrada];
StrNombre = STRING [TamNombre];

Cliente = RECORD
Ano : StrAno;
Marca : Integer;
Modelo : StrModelo;
Entrada : StrEntrada;
Nombre : StrNombre
END; {Record}

ArrCliente = ARRAY [1..CantCliente] OF Cliente;


{-------------------------------------------------------------------------- }

PROCEDURE BusquedaBinaria ( AnoBuscado : StrAno;
ElCliente : ArrCliente;
Cantidad : INTEGER;
VAR Encontrado : BOOLEAN;
VAR Indice : INTEGER );
VAR
Lo ,
Hi ,
Mid : INTEGER;

BEGIN
Encontrado := FALSE;Lo := 1;
Hi := Cantidad;
WHILE (Lo Y) OR (Year < 1975) THEN
WRITELN ('El a¤o entrado es incorrecto...')
ELSE
STR (Year :4, ElAno);
END;

{ -------------------------------------------------------------------------- }

PROCEDURE LeerEntrada (LaEntrada : StrEntrada);

BEGIN
WRITE ('Entre la fecha de entrada del vehiculo: ')END;

{ -------------------------------------------------------------------------- }

PROCEDURE LeerNombre (VAR ElNombre : StrNombre );

VAR
Indice ,
Posicion ,
Longitud ,
CantidadEspacios : INTEGER;

BEGIN
WRITE ('Indique el Nombre y Apellido: ');
READLN (ElNombre);
FOR Posicion := 1 to LENGTH (ElNombre) DO
ElNombre[Posicion] := UPCASE (ElNombre [Posicion]);
Longitud := Length (ElNombre);

FOR CantidadEspacios := (Longitud + 1) TO TamNombre DO
ElNombre := Concat (ElNombre, ' ');

END; {LeerNombre}

{ -------------------------------------------------------------------------- }

PROCEDURE LeerMarca ( VAR LaMarca : Integer);

BEGIN
REPEAT
CLRSCR;WRITELN ;
WRITELN ('':DIST,'MARCAS');
WRITELN ;
WRITELN ('':DIST - 20,' 1. Acura 7. Hyundai 13. Mitsubishi ');
WRITELN ('':DIST - 20,' 2. Audi 8. Infiniti 14. Nissan ');
WRITELN ('':DIST - 20,' 3. Bmw 9. Isusu 15. Saab ');
WRITELN ('':DIST - 20,' 4. Chrysler 10.Lexus 16. Subaru ');
WRITELN ('':DIST - 20,' 5. Geo 11. Mazda 17. Toyota ');
WRITELN ('':DIST - 20,' 6. Honda 12. Mercedes-Benz 18. Volkswagen ');
WRITELN ('':DIST - 20,' 19. Volvo ');
WRITELN ;
WRITE ('':DIST - 10,'Indique la marca: ');READLN (LaMarca);

IF (LaMarca 1) AND (LaMarca 2) AND (LaMarca 3)
AND (LaMarca 4) AND (LaMarca 5) AND (LaMarca 6)
AND (LaMarca 7) AND (LaMarca 8) AND (LaMarca 9)
AND (LaMarca 10) AND (LaMarca 11) AND (LaMarca 12)
AND (LaMarca 13) AND (LaMarca 14) AND (LaMarca 15)
AND (LaMarca 16) AND (LaMarca 17) AND...