| Автор | поздравляю всех программистов с днем великого! |
|---|
великих успехов всем, побольше удачных проэктов, тараканов поменьше, да клиентов побольше!
и по данному поводу хотелось бы обьявить конкурс :
первый написавший правильный ответ получит меч/посох для своего уровня.
итак, опишите что выведет на экран данная программа в 3 случаях.
IDENTIFICATION DIVISION.
PROGRAM-ID. CONGRATULATIONS.
DATA DIVISION.
WORKIND-STORAGE SECTION.
01 WS-DAY
05 WS-YEAR PIC 9(4).
05 WS-MOTH PIC 9(2).
05 WS-DATE PIC 9(2).
PROCEDURE DIVISION.
PERFORM ELABORA THRU EX-ELABORA.
ELABORA.
FROM SYSTEM ACCEPT WS-DAY
IF WS-DAY > 20130913
DISPLAY ''LOOSER! GO TO WORK!"
END-IF
IF WS-DAY < 20130913
DISPLAY ''WELL, LETS WAYTING"
PERFORM ELABORA THRU EX-ELABORA
END-IF
IF WS-DAY = 20130913
PERFORM PROGRAMERS_DAY THRU EX-PROGRAMERS_DAY
END-IF.
DISPLAY "DONT WORRY, HAVE FUN!".
EX-ELABORA.
EXIT.
PROGRAMERS_DAY.
DISPLAY ''CONGRATULATIONS! LETS FUN! ''
DISPLAY "WE WANT TO MEET YOU TODAY AT 17:00 ON OUR "
DISPLAY "CONFERENCE ROOM. GL TO YOU! HAVE FUN!"
FROM SYSTEM ACCEPT WS-DAY
IF WS-DAY = 20130913
PERFORM PROGRAMERS_DAY THRU EX-PROGRAMERS_DAY
ELSE
DISPLAY ''WELL, LETS GO TO WORK''
END-IF.
EX-PROGRAMERS_DAY.
EXIT.
неполный ответ будет считаться неверным.
ответ должен быть в форме:
1) .....
2) .....
3) .....
еще раз поздравляю всех и желаю удачи ! |
уу, а я просто оставлю тут "спасибо" =))
И присоединюсь к поздравлениям) |
1- определение числа (тоесть дня недели в числовом виде типа год.день месяц из биоса)
2- если сегодня не 13.09.2013г то -> если меньше то жди если больше то работай если равно то празнуй.
3- после наступления 17.00 можно праздновать при этом раздастся звуковой сигнал |
| Дринк! |
для GarryOrc:
1)некая правда есть но также есть ошибки. 3-й пункт в корне неправильный.
2) желательно написать конкретно что она выведет на экран в каждом случае ;)
если все исправете то меч уже летит ;) |
| *исправите. извините опечатка |
1. если день больше 20130913
то ''Лузер ! иДИТЕ РАБОТайте!"
2,если день меньше 20130913
то ну не ростраюйтесь, не волнуйтесь, розвлекатесь
3. если день = 20130913
то запустетца следующее
МЫ ХОТИМ ВСТРЕТИТЬ ВАС СЕГОДНЯ В 17:00 НА НАШЕМ
КОНФЕРЕНЦ-ЗАЛ. ГК ВАМ! ВЕСЕЛО ПРОВЕСТИ ВРЕМЯ |
есть ошибка
2,ну не ростраюйтесь,
3.НЕ ВОЛНУЙТЕСЬ, ВЕСЕЛО ПРОВОДИТЕ ВРЕМЯ
потом уж МЫ ХОТИМ ВСТРЕТИТЬ ВАС СЕГОДНЯ В 17:00 НА НАШЕМ
КОНФЕРЕНЦ-ЗАЛ. ГК ВАМ! ВЕСЕЛО ПРОВЕСТИ ВРЕМЯ |
| поздравляю моих любимых мальчиков- программёров! :3 |
| спс за подзравления ) |
Желаю всем компиляции без ошибок, ребята.
С праздником! |
| для Хетага: а девочкам тока борщ и котлеты?) |
поскольку день прошел но никто так и не ответил правильно :
1) в случае если дата больше чем 13:
LOOSER! GO TO WORK!
DONT WORRY, HAVE FUN!
2) дата меньше чем 13:
WELL, LETS WAYTING - н-ое кол-во раз пока дата не будет равна 13. если дата равна 13 то:
3)CONGRATULATIONS! LETS FUN!
WE WANT TO MEET YOU TODAY AT 17:00 ON OUR
CONFERENCE ROOM. GL TO YOU! HAVE FUN! - н-ое кол-во раз пока дата не будет больше 13-ти. после этого
WELL, LETS GO TO WORK
DONT WORRY, HAVE FUN!
поощрительный приз в виде амулета удачи получает janjak
поскольку праздник прошел тему закрываю . будем ждать 512-го дня года ) |
| тема закрыта by 4OPT92 (2013-09-14 02:18:31) |
|---|
