Estoy haciendo un programa que registre modelos de resistencias, un máximo de 100.
Mi problema es que quando quiero vaciar el almacen y borrar todas las resistencias registradas no lo hace, para ello uso un procedure. Utilizo el delphi 6 y programo en pascal estoy un poco verde porque me acabo de meter en este mundillo.
Tambien me gustaria saber como definir el numero de decimales que quiero que tenga un 'real'.
Por otra parte me gustaria poder añadir una acción en forma de funcion(por ejemplo BOOLEAN) que mire la estructura y diga si un codigo ya existe. Escribir una acción en forma de procedure para añadir los datos de una nueva resistencia a la estructura (verificar a su vez si el codigo aun no existe).
Escribir una acción en forma de procedure para visualizar el contenido de la estructura.
Lo que me gustaria es saber si me lo podeis explicar de una forma simple porque en los apuntes que tengo me explica muy poco de procedimientos y lo que explica no lo entiendo.
Llevo dias provando formas de hacer las cosas, aprendiendo de los errores que me da el programa al compilar pero voy a paso de tortuga y un poco a ciegas.
Porfavor cualquier respuesta que me podais dar me sera de gran ayuda, seguro
Muchas gracias.
Hos escribo el programa
program programa;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
max=100;
type
T_Contador=1..max;
T_Ficha=RECORD
Codigo:STRING[5];
Valor:INTEGER;
Tolerancia:INTEGER;
Potencia:REAL;
Existencias:INTEGER;
Precio_Unidad:REAL;
Ubicacion:STRING[8];
end;
T_Almacen=RECORD
T_Stock:ARRAY [T_Contador] OF T_Ficha;
N_Resistencias:INTEGER;
end;
procedure Vaciar_Almacen (Ficha:T_Almacen);
var
respuesta:CHAR;
N_Resistencias:INTEGER;
begin
while (respuesta<>'s')and(respuesta<>'n') do
begin
writeln('Realmente desea eliminar la informacion sobre el contenido del almacen? (S/N)');
readln(respuesta);
if respuesta='s' then
begin
Ficha.N_Resistencias:=0;
writeln('Ha eliminado toda la informacion respecto al contenido del almacen');
end;
if respuesta='n' then
writeln('No se ha eliminado la informacion respecto al contenido del almacen');
if (respuesta<>'s')and(respuesta<>'n') then
writeln('Introduzca una respuesta valida S/N');
end;
writeln;
writeln('Presione intro para volver al Menu');
readln;
end;
procedure Introducir_Resistencia (var Ficha:T_Almacen);
begin
Ficha.N_Resistencias:=Ficha.N_Resistencias+1;
writeln('Se dispone a introducir los datos de la RESISTENCIA numero ',Ficha.N_Resistencias);
writeln('Introduzca el CODIGO de la resistencia');
readln(Ficha.T_Stock[Ficha.N_Resistencias].Codigo);
writeln('Introduzca el VALOR de la resistencia (OHMS)');
readln(Ficha.T_Stock[Ficha.N_Resistencias].Valor);
writeln('Introduzca la TOLERANCIA de la resistencia (%)');
while
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>1)AND
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>2)AND
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>5)AND
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>10) do
begin
readln(Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia);
if
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>1)AND
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>2)AND
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>5)AND
((Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia)<>10) then
writeln('ERROR, Introduzca un valor correcto: 1,2,5,10')
end;
writeln('Introduzca la POTENCIA de la resistencia (WATTS)');
readln(Ficha.T_Stock[Ficha.N_Resistencias].Potencia);
writeln('Introduzca las EXISTENCIAS de la resistencia');
readln(Ficha.T_Stock[Ficha.N_Resistencias].Existencias);
writeln('Introduzca el PRECIO por UNIDAD de la resistencia (EUROS)');
readln(Ficha.T_Stock[Ficha.N_Resistencias].Precio_Unidad);
writeln('Introduzca la UBICACION de la resistencia (elija estante: del 1 al 8)');
readln(Ficha.T_Stock[Ficha.N_Resistencias].Ubicacion);
writeln('RESISTENCIA numero ',Ficha.N_Resistencias);
writeln('CODIGO: ',Ficha.T_Stock[Ficha.N_Resistencias].Codigo);
writeln('VALOR: ',Ficha.T_Stock[Ficha.N_Resistencias].Valor,' OHMS');
writeln('TOLERANCIA: ',Ficha.T_Stock[Ficha.N_Resistencias].Tolerancia,'%');
writeln('POTENCIA: ',Ficha.T_Stock[Ficha.N_Resistencias].Potencia,' WATTS');
writeln('EXISTENCIAS: ',Ficha.T_Stock[Ficha.N_Resistencias].Existencias,' Unidades');
writeln('PRECIO por UNIDAD: ',Ficha.T_Stock[Ficha.N_Resistencias].Precio_Unidad,' EUROS');
writeln('UBICACION: Estante ',Ficha.T_Stock[Ficha.N_Resistencias].Ubicacion);
writeln;
writeln('Presione intro para volver al Menu');
readln;
end;
var
Opcion:INTEGER;
N:T_Almacen;
N_Resistencias:INTEGER;
begin
Opcion:=-1;
while (Opcion<>0) do
begin
writeln('Menu, Que desea hacer?');
writeln('Opcion 1: Vaciar el almacen');
writeln('Opcion 2: Insertar una resistencia');
writeln('Opcion 3: (por definir)');
writeln('Opcion 0: Salir');
readln(Opcion);
case Opcion of
1 :begin
writeln('Ha elegido Vaciar el almacen');
Vaciar_Almacen(N)
end;
2 :begin
writeln('Ha elegido Insertar una resistencia');
Introducir_Resistencia(N)
end;
3 :writeln('Ha elegido la opcion 3');
0 :writeln('Gracias por actualizar su Stock de resistencias, ADIOS');
else
writeln('ERROR, Introduzca una opcion valida: 1,2,3,0')
end;
end;
readln;
end.
