Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Buenas, estoy haciendo un programa para el trabajo, el cual al introducir el número del camión, te devuelva todos los demás datos. Hasta este paso lo tengo bien y consigo lo que quiero con este código.

program portas;

var
numporta: real;

begin

writeln('Escribe el numero del porta');
readln(numporta);
writeln;
writeln;
writeln ('=============================');

//Portavehiculos 000
if (numporta = 000)
   then
   begin
        writeln('Nombre conductor');
        writeln('Portavehiculos 000');
        writeln('Matricula: 000-XYZ');
        writeln('EXT:00000');
        writeln('Movil: 000000000');
        writeln ('=============================');
   end

//Portavehiculos 001
if (numporta = 001)
   then
   begin
        writeln('Nombre conductor');
        writeln('Portavehiculos 001');
        writeln('Matricula: 000-XYZ');
        writeln('EXT:00000');
        writeln('Movil: 000000000');
        writeln ('=============================');
   end

else writeln('No es un numero de porta valido');

   writeln;
   writeln;
   writeln('Pulsa ENTER para salir');
   readln


end.



De ese modo tengo metidos todos los camiones y me devuelve justo lo que necesito, ahorrando mucho tiempo y siendo mucho más cómodo que tener que buscar en un papelito.

El problema es cuando quiero dar una vuelta más y quiero poder buscar esos mismos vehículos por matrícula. Lo primero que pensé es que tendría que modificar el tipo de variable y hice esto:

[code]
program portas;

var
numporta: string;

begin

writeln('Escribe el numero del porta');
readln(numporta);
writeln;
writeln;
writeln ('=============================');

//Portavehiculos 000
if (numporta = 000 or 000XYZ)
   then
   begin
        writeln('Nombre conductor');
        writeln('Portavehiculos 000');
        writeln('Matricula: 000-XYZ');
        writeln('EXT:00000');
        writeln('Movil: 000000000');
        writeln ('=============================');
   end

//Portavehiculos 001
if (numporta = 001 or 000XYZ)
   then
   begin
        writeln('Nombre conductor');
        writeln('Portavehiculos 001');
        writeln('Matricula: 000-XYZ');
        writeln('EXT:00000');
        writeln('Movil: 000000000');
        writeln ('=============================');
   end

else writeln('No es un numero de porta valido');

   writeln;
   writeln;
   writeln('Pulsa ENTER para salir');
   readln


end.



Pero no estará bien definida la variable porque me saltan errores por todos lados. A ver si alguien me puede ayudar.

Un saludo