Составить программу, которая подсчитывала бы, какую литературу покупают больше

@Petro29 · Регистрация: 30.04.2016

Студворк — интернет-сервис помощи студентам

Составить программу, которая подсчитывала бы, какую
литературу покупают в книжном магазине больше: худо-
жественную или техническую в течение двух дней.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
CLS
Xyd = 0   ‘До начала распродажи
Tex = 0   ‘ Тоже 
   FOR I = 1 TO 2
     PRINT “  ‘; i; “- день”
INPUT “ Сколько куплено худож.  литер-ы? ”, X
INPUT “ Сколько куплено технич. литер-ы? ”, T
    Xyd = Xyd + X
     Tex = Tex + T
   NEXT  i: PRINT
PRINT “ Худож. литер-ы куплего “; Xyd; “шт”
PRINT “ Технич. литер-ы куплено “, Tex; “шт”
   IF Xyd  > Tex THEN
      X = Xyd – Tex
PRINT “ Худож. литер-ы куплнго больше на “; X; “шт”
       END IF
   IF Tex > Xyd THEN
       T = Tex – Xyd
PRINT “ Технич. литер-ы куплнго больше на “; T; “шт”
      ELSE
PRINT “ Худ. и техн. книг было продано поровну”
       END IF
END

На выходе имеем:

QBasic/QuickBASIC
1
2
3
4
5
6
  1- й  день
Сколько куплено худож. литер-ы?  15
Сколько куплено технич. литер-ы?  11
   2- й  день
Сколько куалено худож. литер-ы?  14
Сколько куплено технич. литеры?  12

QBasic/QuickBASIC
1
2
3
4
Худож. литер-ы куплено  29 шт 
Технич. литер-ы куплено  23 шт
Худож. литер-ы куплено больше на  6 шт
Худ. и техн. книг было продано поровну

А вот и вопрос: Почему здесь печатается последняя строка?

@кот Бегемот · 19.05.2019, 20:31

Потому что Вы не понимаете как работает оператор IF и неверно его используете.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
Xyd = 0   ‘До начала распродажи
Tex = 0   ‘ Тоже 
   FOR I = 1 TO 2
     PRINT “  ‘; i; “- день”
INPUT “ Сколько куплено худож.  литер-ы? ”, X
INPUT “ Сколько куплено технич. литер-ы? ”, T
    Xyd = Xyd + X
     Tex = Tex + T
   NEXT  i: PRINT
PRINT “ Худож. литер-ы куплего “; Xyd; “шт”
PRINT “ Технич. литер-ы куплено “, Tex; “шт”
   IF Xyd  > Tex THEN PRINT “ Худож. литер-ы куплено больше на “; Xyd-Tex; “шт”
      ELSE
   IF Tex > Xyd THEN PRINT “ Технич. литер-ы куплено больше на “; Tex-Xyd;“шт”
      ELSE
PRINT “ Худ. и техн. книг было продано поровну”
       END IF
END

@Petro29 · 09.06.2019, 20:59 **[ТС]**

Ваша программа от 19. 05. 2019:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
CLS
Xyd = 0  ‘До начала распродажи
Tex = 0  ‘То же
   FOR I = 1 TO 2
     PRINT “  “; i; “-й день”
INPUT “ Сколько куплено худож. литер-ры? “, X
INPUT “ Сколько куплено технич. литер-ры: , T
    Xyd = Xyd + X
     Tex = Tex + T
   NEXT i: PRINT 
PRINT “ Худож. литер-ры куплено “; Xyd; “шт”
PRINT “ Технич. литер-ры куплено “; Tex; “шт”
      PRINT
IF Xyd > Tex THEN PRINT “ Худ. литер. куплено больше на “; Xyd-Tex; “шт”
      ELSE
IF Tex > Xyd THEN PRINT “ Тех. литер. куплено больше на “; Tex-Xyd; “шт”
      ELSE
PRINT “ Худ. и техн. книг было продано поровну”
   END IF
END

При запуске – вот такая табличка:

QBasic/QuickBASIC
1
2
       ELSE  без  IF
         <   OK  >      <  Справка  ?

Почему то в таком исполнении программа отказала. А стоит перенести
строки PRINT “ ……” после THEN на нижележащие строки, всё заработало.
А почему же в заданном исполнении отказывает?
В вашей программе оператор IF – однострочный и оператор PRINT
должен печататься на этой же строке. А он отказал. Почему?
В итоге сделал условный оператор IF многострочным и тоже всё заработало.

@кот Бегемот · 10.06.2019, 14:49

Я просто случайно не закрыл блок ветвления. Допишите после 19 строки ещё один

QBasic/QuickBASIC
1
END IF

А ветвление у меня блоковое

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
Xyd = 0   ‘До начала распродажи
Tex = 0   ‘ Тоже 
   FOR I = 1 TO 2
     PRINT “  ‘; i; “- день”
INPUT “ Сколько куплено худож.  литер-ы? ”, X
INPUT “ Сколько куплено технич. литер-ы? ”, T
    Xyd = Xyd + X
     Tex = Tex + T
   NEXT  i: PRINT
PRINT “ Худож. литер-ы куплего “; Xyd; “шт”
PRINT “ Технич. литер-ы куплено “, Tex; “шт”
   IF Xyd  > Tex THEN 
PRINT “ Худож. литер-ы куплено больше на “; Xyd-Tex; “шт”
      ELSE
   IF Tex > Xyd THEN 
PRINT “ Технич. литер-ы куплено больше на “; Tex-Xyd;“шт”
      ELSE
PRINT “ Худ. и техн. книг было продано поровну”
       END IF
END IF
END

@Petro29 · 28.05.2020, 12:13 **[ТС]**

Допиcал после 19 строки ещё один END. Но и с третьим END IF программа отказала. Что то здесь не то.
А с многострочным оператором IF программа работает. В ней вместо одной длинной строки сделано две строки:

QBasic/QuickBASIC
1
2
   IF Xyd > Tex THEN
  PRINT “ Худ. литер-ры куплено больше на: “; Xyd – Tex; “шт”

@кот Бегемот · 28.05.2020, 13:30

Какой третий END IF? Вы что издеваетесь?
Вам же дали рабочую программу. Что вы голову морочите?

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
Xyd = 0   ‘До начала распродажи
Tex = 0   ‘ Тоже 
   FOR I = 1 TO 2
     PRINT “  ‘; i; “- день”
INPUT “ Сколько куплено худож.  литер-ы? ”, X
INPUT “ Сколько куплено технич. литер-ы? ”, T
    Xyd = Xyd + X
     Tex = Tex + T
   NEXT  i: PRINT
PRINT “ Худож. литер-ы куплего “; Xyd; “шт”
PRINT “ Технич. литер-ы куплено “, Tex; “шт”
   IF Xyd  > Tex THEN 
PRINT “ Худож. литер-ы куплено больше на “; Xyd-Tex; “шт”
      ELSE
   IF Tex > Xyd THEN 
PRINT “ Технич. литер-ы куплено больше на “; Tex-Xyd;“шт”
      ELSE
PRINT “ Худ. и техн. книг было продано поровну”
       END IF
END IF
END

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .