Информатика, срочно плиз!!!
В киоске продаются цветы: розы по 120 рублей, Герберы по 100 рублей и хризантемы по 70 рублей. Написать программу для электронного киоска, выводящую результат в виде:
Здравствуйте! Какой букет Вы хотите собрать?
Розы? ….J
Герберы? ....
Хризантемы? .....
Стоимость букета ...руб.
Введите наличные: ....
Сдача: ... руб
Математическая модель:
R - кол-во роз
G - кол-во гербер
Н - кол-во хризантем
St - стоимость букета
SteR*120+G*100+H*70
Nal - наличные
Sd - сдача
Sda=Nal-St
По дате
По рейтингу
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
IDENTIFICATION DIVISION.
PROGRAM-ID. KIOSK.
AUTHOR. DMITRIY.
INSTALLATION. MyLocalComputer.
DATE-WRITTEN. 13/12/2023.
DATE-COMPILED. 13/12/2023.
SECURITY. GPL.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. X-86-64.
OBJECT-COMPUTER. X-86-64.
DATA DIVISION.
WORKING-STORAGE SECTION.
1 WS-G PICTURE IS 999999999.
1 WS-H PICTURE IS 999999999.
1 WS-R PICTURE IS 999999999.
1 WS-NAL PICTURE IS 999999999.
1 WS-HR PICTURE IS 999999999.
1 WS-SD PICTURE IS 999999999.
1 WS-ST PICTURE IS 999999999.
1 WS-STG PICTURE IS 999999999.
1 WS-STH PICTURE IS 999999999.
1 WS-STR PICTURE IS 999999999.
PROCEDURE DIVISION.
BEGIN.
DISPLAY 'Здравствуйте!',
'Какой букет Вы хотите собрать?'.
DISPLAY 'Розы? '.
ACCEPT WS-R.
DISPLAY 'Герберы? '.
ACCEPT WS-G.
DISPLAY 'Хризантемы? '.
ACCEPT WS-HR.
MULTIPLY WS-R BY 120 GIVING WS-STR.
MULTIPLY WS-G BY 100 GIVING WS-STG.
MULTIPLY WS-HR BY 70 GIVING WS-STH.
ADD WS-STG WS-STH WS-STR TO WS-ST.
DISPLAY 'Стоимость: ', WS-ST, ' руб.'.
DISPLAY 'Наличные: '.
ACCEPT WS-NAL.
IF WS-NAL LESS THAN WS-ST DISPLAY
'Вам не хватает денег. До свидания.'
ELSE SUBTRACT WS-ST FROM WS-NAL GIVING WS-SD.
IF NOT WS-NAL LESS THAN WS-ST DISPLAY
'Сдача: ', WS-SD, ' руб.'.
STOP RUN.
Больше по теме
