Pascal/Turbo Pascal - AYUDA PROGRAMA+TIPOS DEFINIDOS POR EL USUARIO

   
Vista:

AYUDA PROGRAMA+TIPOS DEFINIDOS POR EL USUARIO

Publicado por CARO (4 intervenciones) el 26/05/2008 21:36:51
Se lee la siguiente información de ventas de un supermercado: nº de venta, monto total, fecha, nombre del cajero, nº de cliente. Se lee información hasta que llega el nº de venta 789 la cual debe procesarse.

Informar:

a) La cantidad de ventas realizadas.

b) El promedio de ventas realizadas.

c) El nº de cliente y el nº de venta que tiene mayor monto total.


program super;
type
venta=record
numventa:integer;
mtotal:integer;
fecha:integer;
nomcajero:string[20];
nomcliente:string[20];
end;
var
v:venta;
cantv:integer;
prom:real;
BEGIN
leerReg(v);
while(v.numventa>789)do
....
...
...
END.
Procedure leerReg(var ven.venta); begin
read(ven.numventa);
if(ven.venta<>789)then
begin
read(ven.mtotal);
read(ven.fecha);
read(ven.nomcajero);
read(ven.nomcliente);
end;




ALGUEIN ME PUEDE GUIAR O AYUDARME PARA SEGUIR CON EL PROGRAMA!!
XQ LA VERDAD S EME COMPLICO JAJA.....MUCHISIMAS GRAX!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA PROGRAMA+TIPOS DEFINIDOS POR EL USUARIO

Publicado por caro (4 intervenciones) el 26/05/2008 22:41:19
Porq nadie me contesta? jaja
soy una principiante y necesito un empujoncito!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar