נושא: שאלה בStructured Language

"האינסטלטור המהיר" חברה צעירה המספקת שירותי שרברבות באיזור תל אביב.

לקוח מתקשר למוקד החברה מציין מהות הבעיה ואת כתובתו. החברה מפנה את השרברב לביצוע העבודה.

התעריף עבור שעת עבודה נקבע בהתאם למועד ביצוע העבודה ומשך זמן העבודה,

מחיר זה אינו כולל חומרים.

מחיר שעת עבודה 180 שח.

 עבור עבודה המבוצעת בין השעות 20:00 לשעה 06:00 בבוקר יש לשלם תוספת 20%.

 עבור עבודה המבוצעת בשבתות או חגים יגבה תשלום נוסף של 30% מעבר לסכום המחושב.

 לקוח שמקום מושבו מרוחק מעל 36 ק"מ ישלם תוספת נסיעה המחושבת

 כמרחק בקיזוז 36 ק"מ כפול 0.6 שקלים לק"מ.

כתוב נוהל בשפת מובנית לחישוב תעריף שעת העבודה.

תשובה:

DO

READ CALC_HOUR_COST

BEGIN IF

IF DISTANCE > 36 KM

     THEN SELECT CASE (DAY)

     CASE1 (WEEKDAY_MORNING)                        

     DO HOUR_COST = 180 INS + (DISTANCE * 0.6)

           CASE2 (WEEKDAY_NIGHT)

           DO HOUR_COST = 180 INS + (DISTANCE * 0.6) + 20%

           CASE3 (HOLIDAY_MORNING)

           DO HOUR_COST = 180 INS + (DISTANCE * 0.6) + 30%

           CASE4 (HOLIDAY_NIGHT)

           DO HOUR_COST = 180 INS + (DISTANCE * 0.6) + 20% + 30%

ELSE DISTANCE < 36 KM         

        THEN SELECT CASE (DAY)

                CASE1 (WEEKDAY_MORNING)                         

                               DO HOUR_COST = 180 INS

                                CASE2 (WEEKDAY_NIGHT)

                               DO HOUR_COST = 180 INS + 20%

                               CASE3 (HOLIDAY_MORNING)

                              DO HOUR_COST = 180 INS + 30%

                                 CASE4 (HOLIDAY_NIGHT)

                                 DO HOUR_COST = 180 INS + 20% + 30%

     ENDIF

                                                                                                                              until end of file

האם זה נכון????