Locadora de Carros

[fdantas]

/*LOCADORA DE ALTOMÓVEIS COM 20 CARROS*/
DEF VAR SIT AS CHAR NO-UNDO EXTENT 20.
DEF VAR CAR AS CHAR NO-UNDO EXTENT 20.
DEF VAR NCAR AS INT NO-UNDO.
DEF VAR ACAO AS CHAR NO-UNDO.
DEF VAR SN AS CHAR NO-UNDO.
DEF VAR I AS INT NO-UNDO.

ASSIGN CAR[1] = 'GOL'
CAR[2] = 'GOL'
CAR[3] = 'GOL'
CAR[4] = 'GOL'
CAR[5] = 'GOL'
CAR[6] = 'GOL'
CAR[7] = 'FOX'
CAR[8] = 'FOX'
CAR[9] = 'FOX'
CAR[10] = 'FOX'
CAR[11] = 'PARATI'
CAR[12] = 'PARATI'
CAR[13] = 'PALIO'
CAR[14] = 'PALIO'
CAR[15] = 'PALIO'
CAR[16] = 'PALIO'
CAR[17] = 'ESTILO'
CAR[18] = 'ESTILO'
CAR[19] = 'CELTA'
CAR[20] = 'CELTA'.

DO I = 1 TO 20:
ASSIGN SIT[I] = 'D'.
END.


DISP "GARAGEM - LOCADORA DE CARROS".
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.
DISP "SITUAÇÕES ( A= ALUGADO - D= DISPONIVEL - C= CONCERTO )".
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.
DISP "NºCARRO / MODELO / SITUAÇÃO " SKIP.
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.
DISP " 1 GOL " SIT[1] LABEL '' SKIP.
DISP " 2 GOL " SIT[2] LABEL '' SKIP.
DISP " 3 GOL " SIT[3] LABEL '' SKIP.
DISP " 4 GOL " SIT[4] LABEL '' SKIP.
DISP " 5 GOL " SIT[5] LABEL '' SKIP.
DISP " 6 GOL " SIT[6] LABEL '' SKIP.
DISP " 7 FOX " SIT[7] LABEL '' SKIP.
DISP " 8 FOX " SIT[8] LABEL '' SKIP.
DISP " 9 FOX " SIT[9] LABEL '' SKIP.
DISP " 10 FOX " SIT[10] LABEL '' SKIP.
DISP " 11 PARATI " SIT[11] LABEL '' SKIP.
DISP " 12 PARATI " SIT[12] LABEL '' SKIP.
DISP " 13 PALIO " SIT[13] LABEL '' SKIP.
DISP " 14 PALIO " SIT[14] LABEL '' SKIP.
DISP " 15 PALIO " SIT[15] LABEL '' SKIP.
DISP " 16 PALIO " SIT[16] LABEL '' SKIP.
DISP " 17 ESTILO " SIT[17] LABEL '' SKIP.
DISP " 18 ESTILO " SIT[18] LABEL '' SKIP.
DISP " 19 CELTA " SIT[19] LABEL '' SKIP.
DISP " 20 CELTA " SIT[20] LABEL '' SKIP.

DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.

DO WHILE ACAO <> 'S' :

DISP " OLÁ USUÁRIO " SKIP
" AÇÕES L = LOCAR AUTOMOVEL "SKIP
" D = DEVOLUÇÃO DE ALTOMÓVEL"SKIP
" B = BUSCAR CARRO NA OFICINA"SKIP
" S = SAIR DO PROGRAMA"SKIP.
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.
DISP " DIGITE A AÇÃO DESEJADA".

UPDATE ACAO .
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.
IF ACAO = 'L' THEN DO:
DISP "DIGITE O Nº DO CARRO".
UPDATE NCAR .
IF SIT[NCAR] = 'D' THEN DO:
MESSAGE 'O 'CAR[NCAR] ' JÁ PODE SER RETIRADO' VIEW-AS ALERT-BOX.
ASSIGN SIT[NCAR] = 'A' .
END.
ELSE IF SIT[NCAR] = 'A' THEN DO:
MESSAGE ' O 'CAR[NCAR] ' JÁ ESTÁ ALUGADO' VIEW-AS ALERT-BOX.
END.
ELSE IF SIT[NCAR] = 'C' THEN DO:
MESSAGE ' O 'CAR[NCAR] ' ESTÁ NA OFICINA' VIEW-AS ALERT-BOX.


END.
END.
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.


IF ACAO = 'D' THEN DO:
DISP "".
UPDATE NCAR .
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.
DISP " O CARRO ESTÁ EM CONDIÇÕES DE SER ALUGADO NOVAMENTE ? <S/N> ".
UPDATE SN.
IF SN = 'S' THEN DO:
MESSAGE 'O 'CAR[NCAR] ' JÁ PODE SER ALUGADO NOVAMENTE' VIEW-AS ALERT-BOX.
ASSIGN SIT[NCAR] = 'D' .
END.
ELSE IF SIT[NCAR] = 'A' THEN DO:
MESSAGE ' O 'CAR[NCAR] ' DEVE SER EMCAMINHADO PARA OFICINA' VIEW-AS ALERT-BOX.
ASSIGN SIT[NCAR] = 'C'.
END.
END.
DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.

IF ACAO = 'B' THEN DO:
DISP "".
UPDATE NCAR .
ASSIGN SIT[NCAR] = 'D'.
MESSAGE 'O 'CAR[NCAR] ' JÁ PODE SER ALUGADO NOVAMENTE' VIEW-AS ALERT-BOX.
END.

DISP "---------------------------------------------------------------------------------------------------------------------------------" SKIP.


DISP SIT[1] LABEL '' SKIP.
DISP SIT[2] LABEL '' SKIP.
DISP SIT[3] LABEL '' SKIP.
DISP SIT[4] LABEL '' SKIP.
DISP SIT[5] LABEL '' SKIP.
DISP SIT[6] LABEL '' SKIP.
DISP SIT[7] LABEL '' SKIP.
DISP SIT[8] LABEL '' SKIP.
DISP SIT[9] LABEL '' SKIP.
DISP SIT[10] LABEL '' SKIP.
DISP SIT[11] LABEL '' SKIP.
DISP SIT[12] LABEL '' SKIP.
DISP SIT[13] LABEL '' SKIP.
DISP SIT[14] LABEL '' SKIP.
DISP SIT[15] LABEL '' SKIP.
DISP SIT[16] LABEL '' SKIP.
DISP SIT[17] LABEL '' SKIP.
DISP SIT[18] LABEL '' SKIP.
DISP SIT[19] LABEL '' SKIP.
DISP SIT[20] LABEL '' SKIP.
END.