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