Pascal/Turbo Pascal - urgente ayuda con programa en turbo pascal

   
Vista:

urgente ayuda con programa en turbo pascal

Publicado por skarlett (1 intervención) el 28/07/2010 18:00:24
buanas necesito urgente ayuda tengo que realizar un programa en turbo pasacal que haga lo siguiente

Realice un programa en Turbo Pascal para la una agencia de loterías:
a) Trabajan 4 vendedores en la agencia
b) Se venden 4 loterías (Chance, Triple Zodiacal, Triple León y Caracas)
c) Para Chance y Caracas hay 3 sorteos (12m, 4pm y 7pm); para las otras, hay sólo 2 sorteos (12m y 8pm)
d) Jugada mínima por cada triple: 1BsF; jugada máxima: 100BsF)
e) Sólo se venden triples: desde 000 hasta 999
f) Al final de cada jugada se debe mostrar la lotería, sorteo, triple y monto jugado
g) Se debe calcular el total a cancelar
h) Debe aparecer en pantalla un ticket con la fecha, nombre del vendedor, jugadas realizadas y total a cancelar

Importante:
• Agregue mensajes de bienvenida, de instrucciones y de error donde sea necesario

ya lo he empezado a hacer pero no logro hacer que al seleccionar el usuario el nombre me salga en la pantalla estos dos modelos son los que llevo hasta ahora...

program loteriakeyoro;
uses crt;
var
usuario4,loteria,sorteo: integer;
USUARIO:STRING;
jugada,triple: real;

begin
clrscr;
writeln ('Hola, bienvenido a la loteria KEYORO');
writeln ('Por favor coloque su usuario');
readln (usuario4);
case usuario4 of
1:USUARIO:='usuario1';
2:USUARIO:='usuario2' ;
3:USUARIO:='usuario3';
4:USUARIO:='usuario4';
if (USUARIO4>=1) AND (USUARIO4<=4) THEN
WRITELN ('BIENVENIDO ',USUARIO,'.')
ELSE
WRITELN ('USUARIO DESCONOCIDO');
end;
readln;
Writeln ('Bienvenido ',1);
writeln ('Por favor, elija la loteria');
Writeln ('Loterias: 1=Chance, 2=Triple Zodiacal, 3=Triple Leon,4=Caracas');
readln (Loteria);
If(loteria<1) or (loteria>4) then
begin
repeat
Writeln ('Loteria desconocida');
writeln ('Por favor, elija la correcta');
readln (Loteria);
until (Loteria=1) or (loteria=2) or (loteria=3) or (loteria=4);
end;
if (loteria =1) or (loteria=4) then
begin
writeln ('Elija el Sorteo');
writeln ('Sorteos: 1= 12:00 pm, 2= 4:00 pm, 3= 7:00 pm');
readln (Sorteo);
if (Sorteo<1) or (sorteo>3) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=1) or (sorteo=2) or (sorteo=3);
end;
end
else
if (loteria=2) or (loteria=3) then
begin
writeln ('Elija el sorteo');
writeln ('Sorteos: 4= 12:00 pm, 5= 8:00 pm');
readln (Sorteo);
If (Sorteo<4) or (Sorteo >5) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=4) or (sorteo=5);
end;
end;
If (sorteo=1) or (sorteo=2) or (sorteo=3) or (sorteo=4) or (sorteo=5) then
Begin
Writeln ('Por favor indique el valor de la jugada');
Writeln ('La jugada no debe ser mayor a 100 bsf, ni menor a 1 bsf');
readln (Jugada);
if (jugada>100) or (jugada<1) then
begin
repeat
writeln ('Jugada sobre pasa el limite establecido');
writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Jugada);
until (jugada>=1) and (jugada<=100);
end;
end;
If (Jugada>=1) or (jugada<=100) then
Begin
Writeln ('Registre el triple a jugar');
Readln (Triple);
If (Triple >999) or (Triple<0) then
Begin
repeat
Writeln ('Triple sobre pasa el parametro establecido');
Writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Triple);
until (triple<=999) and (triple>=0);
end;
end;
Begin
Writeln(loteria,' ',sorteo, ' ',triple, ' ',jugada,' .');
end;
end. ;
readln;
End.


y este es el segundo:

program loteriakeyoro;
uses crt;
var
usuario,loteria,sorteo: integer;
jugada,triple: real;

begin
clrscr;
writeln ('Hola, bienvenido a la loteria KEYORO');
writeln ('Elija su usuario');
writeln ('Usuarios: 1= Usuario1, 2= Usuario2, 3= Usuario3, 4= Usuario4');
readln (usuario);
if (usuario<1) or (usuario>4) then
begin
repeat
Writeln ('Usuario desconcido');
Writeln ('Por favor, elija su usuario correspondiente');
readln (usuario);
until (usuario= 1) or (usuario=2) or (usuario=3) or (usuario=4);
end;
if (usuario= 1) or (usuario=2) or (usuario=3) or (usuario=4) then
begin
writeln ('Bienvenido ', usuario);
writeln ('Por favor, elija la loteria');
Writeln ('Loterias: 1=Chance, 2=Triple Zodiacal, 3=Triple Leon,4=Caracas');
readln (Loteria);
If(loteria<1) or (loteria>4) then
begin
repeat
Writeln ('Loteria desconocida');
writeln ('Por favor, elija la correcta');
readln (Loteria);
until (Loteria=1) or (loteria=2) or (loteria=3) or (loteria=4);
end;
if (loteria =1) or (loteria=4) then
begin
writeln ('Elija el Sorteo');
writeln ('Sorteos: 1= 12:00 pm, 2= 4:00 pm, 3= 7:00 pm');
readln (Sorteo);
if (Sorteo<1) or (sorteo>3) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=1) or (sorteo=2) or (sorteo=3);
end;
end
else
if (loteria=2) or (loteria=3) then
begin
writeln ('Elija el sorteo');
writeln ('Sorteos: 4= 12:00 pm, 5= 8:00 pm');
readln (Sorteo);
If (Sorteo<4) or (Sorteo >5) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=4) or (sorteo=5);
end;
end;
If (sorteo=1) or (sorteo=2) or (sorteo=3) or (sorteo=4) or (sorteo=5) then
Begin
Writeln ('Por favor indique el valor de la jugada');
Writeln ('La jugada no debe ser mayor a 100 bsf, ni menor a 1 bsf');
readln (Jugada);
if (jugada>100) or (jugada<1) then
begin
repeat
writeln ('Jugada sobre pasa el limite establecido');
writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Jugada);
until (jugada>=1) and (jugada<=100);
end;
end;
If (Jugada>=1) or (jugada<=100) then
Begin
Writeln ('Registre el triple a jugar');
Readln (Triple);
If (Triple >999) or (Triple<0) then
Begin
repeat
Writeln ('Triple sobre pasa el parametro establecido');
Writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Triple);
until (triple<=999) and (triple>=0);
end;
end;
Begin
Writeln(loteria,' ',sorteo, ' ',triple, ' ',jugada,' .');
end;
end;
readln;
End.


por favor que alguien me ayude es para mañana 29/07/2010

urgenteeeeeeee......
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:urgente ayuda con programa en turbo pascal

Publicado por martín (74 intervenciones) el 30/07/2010 11:12:09
Hola Karlett:
Tepaso el código fuente obtenido despues de lagunas rectificaciones y otros agregados.

program loteriakeyoro;
uses Dos, crt;
Const
DIAS:ARRAY[0..6] of string[9] = ('DOMINGO','LUNES','MARTES','MIERCOLES',
'JUEVES','VIERNES','SABADO');

var
usuario4,loteria,sorteo: integer;
USUARIO:STRING;
jugada,triple: integer;
H,Mi,S,C,A,M,D,DDs : Word;{Hora,minutos,segundos,centesimas,año,mes dia,
dia de la semana}

begin
clrscr;
writeln ('Hola, bienvenido a la loteria KEYORO');
repeat
writeln ('Por favor coloque su usuario');
readln (usuario4);
case usuario4 of
1:USUARIO:='usuario1';
2:USUARIO:='usuario2' ;
3:USUARIO:='usuario3';
4:USUARIO:='usuario4'
end;
if (usuario4<1) or (usuario4>4) then
WRITELN ('Usuario desconocido')
until (usuario4>=1) and (usuario4<=4);
writeln ('Por favor, elija la loteria');
Writeln ('Loterias: 1=Chance, 2=Triple Zodiacal, 3=Triple Leon,4=Caracas');
readln (Loteria);
If(loteria<1) or (loteria>4) then
begin
repeat
Writeln ('Loteria desconocida');
writeln ('Por favor, elija la correcta');
readln (Loteria);
until (Loteria=1) or (loteria=2) or (loteria=3) or (loteria=4);
end;
if (loteria =1) or (loteria=4) then
begin
writeln ('Elija el Sorteo');
writeln ('Sorteos: 1= 12:00 pm, 2= 4:00 pm, 3= 7:00 pm');
readln (Sorteo);
if (Sorteo<1) or (sorteo>3) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=1) or (sorteo=2) or (sorteo=3);
end;
end
else
if (loteria=2) or (loteria=3) then
begin
writeln ('Elija el sorteo');
writeln ('Sorteos: 4= 12:00 pm, 5= 8:00 pm');
readln (Sorteo);
If (Sorteo<4) or (Sorteo >5) then
begin
repeat
Writeln ('Sorteo Incorrecto');
Writeln ('Por favor, elija el sorteo correcto');
readln (sorteo);
until (Sorteo=4) or (sorteo=5);
end;
end;
If (sorteo=1) or (sorteo=2) or (sorteo=3) or (sorteo=4) or (sorteo=5) then
Begin
Writeln ('Por favor indique el valor de la jugada');
Writeln ('La jugada no debe ser mayor a 100 bsf, ni menor a 1 bsf');
readln (Jugada);
if (jugada>100) or (jugada<1) then
begin
repeat
writeln ('Jugada sobre pasa el limite establecido');
writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Jugada);
until (jugada>=1) and (jugada<=100);
end;
end;
If (Jugada>=1) or (jugada<=100) then
Begin
Writeln ('Registre el triple a jugar');
Readln (Triple);
If (Triple >999) or (Triple<0) then
Begin
repeat
Writeln ('Triple sobre pasa el parametro establecido');
Writeln ('Por favor, registre un valor que este dentro del parametro antes senalado');
readln (Triple);
until (triple<=999) and (triple>=0);
end;
end;
clrscr;
gotoxy(2,10);
write('F A C T U R A');
gotoxy(2,11);
write('-------------');
gettime(h,m,s,c);
gotoxy(2,12);
write(H,':',Mi,':',S);
GetDate(A,M,D,DDs);
gotoxy(2,13);
write(Dias[DDs],', ',D:3,'-',M:0,'-',A:0);
gotoxy(2,14);
gotoxy(2,15);
write('Le atiende el Usuario ',Usuario4);
gotoxy(2,16);
write('Tipo loteria ',loteria);
gotoxy(2,17);
write('Sorteo ',sorteo);
gotoxy(2,18);
write('Triple ',triple);
gotoxy(2,19);
write('Jugada ',jugada)

end.

Un saludo y espero te resuelva el problema.
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