Tengo que guardar un "código" del "precio" mas barato en un programa de pascal, la cosa es que el profesor sabía menos que yo, y no lo probó el programa que hice, solo lo leyó y me dijo que estaba bien, pero lo estoy probando y me lee cualquier cosa, bueno, acá dejo todo el programa de pascal (lenguaje mas bugueado que este imposible.)
program eje9;
procedure codigoprecio(var codigo, precio:real;var tipo:String);
{var masbarato,preciobarato,codigobarato:real;}
begin
Write('codigo,precio y tipo : ');Readln(codigo);
ReadLn(precio);
{
preciobarato:=precio;
codigobarato:=codigo;
if precio<=preciobarato then
begin
masbarato:=codigobarato;
end;
}
Read(tipo);
//WriteLn('mas barato:',masbarato);
//WriteLn(codigo,' ',precio,' ',tipo);
end;
type cadena=String [15];
var i:Integer;
codigo,precio:real; tipo:cadena ; cantpan:Integer;
masbarato,preciobarato,codigobarato:real;
begin
masbarato:=0;
for i:=1 to 2 do begin
codigoprecio(codigo,precio,tipo);
preciobarato:=precio;
codigobarato:=codigo;
if precio<=preciobarato then
begin
preciobarato:=precio;
codigobarato:=codigo;
end;
end;
WriteLn('mas barato:' ,codigobarato);
//WriteLn(codigo,' ',precio,' ',tipo);
if (tipo='pantalon') then begin
cantpan:=cantpan+1;
end;
end.
Lo que me doy cuenta es que SIEMPRE entra al if
y por eso no guarda el valor que tendría que guardar, y no se como arreglarlo, no me doy cuenta.
Realizar un programa que lea datos de 100 productos de una tienda de ropa. Para cada producto debe leer el
precio, código y tipo (pantalón, remera, camisa, medias, campera, etc.). Informar:
- El código del producto más barato.
- El código del producto de tipo “pantalón” más caro.