Нужно отсортировать на 5 групп: Молочные изделия, Мясные изделия, Зелень, Овощи, Фрукты

@DeNcHik1231 · Регистрация: 11.03.2021

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
const
N = 50;
goods: array[1..N] of string =
("Груша", "Яблоки", "Огурец", "Помидор", "Укроп", "Петрушка", "Курица", "Твердый Сыр", "Масло",
"Молоко", "Сыр", "Капуста", "Морковь", "Лук", "Картофель", "Перец Болгарский", "Брокколи", "Овощи", "Баклажан", "Виноград", "Апельсин", " банан ",
"Абрикос", "Манго", "Маракуйя", "Голубика", "Мандарины", "Руккола", "Шпинат", "Сельдерей", "Базилик",
"Щавель", "Лук порей", "Кинза", "Салат Айсберг", "Сливки", "Сметана", "Кефир", "Йогурт",
"Спрэд-сливочный", "Маргарин", "Баранина", "Индейка", "Свинина", "Говядина", "Кролик",
"Перепел", "Утка", "Ветчина", "Стейк Рибай");
 
price: array[1..N] of real =
(40.50,31.20,21.80,35.00,150.00,145.00,200.00,400.00,81.40,53.35,
80.00,15.00,34.00,16.00,25.00,117.00,148.50,8.10,72.50,79.99,43.00,36.00,76.50,120.00,150.00,
350.00,50.40,165.00,50.00,14.50,450.00,50.00,47.50,165.00,420.00,41.85,
49.30,33.10,54.00,16.50,23.50,162.50,828.00,142.80,223.20,188.50,171.25,
69.50,263.25,517.50);
var
i, g: byte;
sum, q: real;
begin
for i:=1 to N do
writeln(i,'. ', goods[i], ' - ',price[i]:5:2,' грн');
writeln('(введите № продукта; если ничего, то 0)');
sum := 0;
while True do begin
write('Товар: '); readln(g);
if g = 0 then break;
write('Количество: '); readln(q);
sum := sum + price[g] * q;
 
end;
writeln('Сумма к оплате: ',sum:6:2);
end.

@Puporev · 13.04.2021, 09:28

В каком смысле отсортировать? Что нужно получить?

@DeNcHik1231 · 13.04.2021, 09:39 **[ТС]**

Должно получиться 5 строк и в первой строке Фрукты во второй строке Овощи, ну и так далее.

@Puporev · 13.04.2021, 09:42

Ну так сделайте вместо 1 массива 5.

Добавлено через 39 секунд
Вообще напишите точное и полное условие задачи.

@DeNcHik1231 · 13.04.2021, 10:51 **[ТС]**

Это и есть полная задача, сможете помочь?

@Puporev · 13.04.2021, 10:54

Нет, поскольку не понимаю. Вообще если условие задачи написано так

Сообщение от DeNcHik1231

Это и есть полная задача

то я пас. До свидания.

@DeNcHik1231 · 13.04.2021, 10:55 **[ТС]**

До свидания

@JuriiMW · 13.04.2021, 11:48

DeNcHik1231, у вас не достаточно данных.
Для сортировки по группам от куда-то нужно взять эти самые группы.
Добавьте ещё один массив с 50 элементами, в которые каждому товару соответствующую группу.

@DeNcHik1231 · 13.04.2021, 11:52 **[ТС]**

Можете это сделать? Пожалуйста

@JuriiMW · 13.04.2021, 11:59

Делать мне больше не чего!

@Sun Serega · 13.04.2021, 14:27

Сообщение от DeNcHik1231

Можете это сделать?

Это сначала должно быть описано в задании. А то что получается - нам придумывать задание и нам же его выполнять?
Если вам реально дали огрызок от задания - идите выясняйте с тем кто его задал. Но я тоже думаю что это вы тут хотите халяву, при этом даже не удосужившись нормально передать задание.

@DeNcHik1231 · 13.04.2021, 14:40 **[ТС]**

https://drive.google.com/open?... authuser=2

Вот вам полное задание

@JuriiMW · 13.04.2021, 14:42

Правила однозначно говорят:
5.19 Запрещено создавать темы в виде ссылок на задания или коды программ, расположенные на других сайтах.

@Sun Serega · 13.04.2021, 14:44

Давайте вы, для начала, правила форума перечитаете:
https://www.cyberforum.ru/pasc... ment3.html

@DeNcHik1231 · 13.04.2021, 15:35 **[ТС]**

Хорошо

Добавлено через 1 минуту
Ок,тогда вот

Формування вартості покупки (чек)

Необхідно створити базу даних (масив) для 50 товарів, вказавши номер,назву
і вартість (40 балів)
Касир задає товар по номеру. Задаючи номер, програма додає товар до
кошика і рахує загальну вартість. Програма ускладнена наступним:
1. На категорію окремих товарів (10 товарів зі списку) нараховується
знижка в розмірі 15% від вартості (10 балів)
2. Якщо покупка на суму більше 300 грн, то нараховується знижка 10 %
(10 балів)
3. Акція. Незалежна програма генератор генерує число для кожного
чеку*. Якщо це число співпадає із номером товару, що є в чеку, то на
вартість всього кошика нараховується знижка 50% (попередні знижку
анульовуються). (20 балів)
4. В кожному чеку після вартості виводиться афоризм (якщо вартість у
чеку до 50 грн один афоризм, 50-100 грн другий, 100-150 грн третій і т.д.)
(10 балів).
5. ОФОРМЛЕННЯ (10 балів) (Для красивого оформлення можна вивести
перелік товарів від найбільшого до найменшого).
Максимальна оцінка 100 балів.

@JuriiMW · 13.04.2021, 16:27

Сообщение от DeNcHik1231

Хорошо

Плохо!
Снова к правилам.

@ZX Spectrum-128 · 13.04.2021, 17:18

Сообщение от DeNcHik1231

Формування вартості покупки (чек)

Формирование хззнаетчего далее по-русски
DeNcHik1231, вы в самом деле предполагаете, что на российском форуме для программистов кто-то всерьёз будет переводить с украинского на русский?
Тем более что в Правилах четко указано какие именно официальные языки форума!

@DeNcHik1231 · 13.04.2021, 17:52 **[ТС]**

Формирование стоимости покупки (чек)

Необходимо создать базу данных (массив) для 50 товаров, указав номер, название
и стоимость (40 баллов)
Кассир задает товар по номеру. Задавая номер, программа добавляет товар в
корзины и считает общую стоимость. Программа осложнена следующим:
1. На категорию отдельных товаров (10 товаров из списка) начисляется
скидка в размере 15% от стоимости (10 баллов)
2. Если покупка на сумму более 300 грн, то начисляется скидка 10%
(10 баллов)
3. Акция. Независимая программа генератор генерирует число для каждого
чеке *. Если это число совпадает с номером товара, являющегося в чеке, то на
стоимость всего корзины насчитывается скидка 50% (предварительные скидку
анульовуються). (20 баллов)
4. В каждом чеке после стоимости выводится афоризм (если стоимость в
чеке до 50 грн один афоризм, 50-100 грн второй, 100-150 грн третий и т.д.)
(10 баллов).
5. Оформление (10 баллов) (для красивого оформления можно вывести
перечень товаров от самого маленького до самого).
Максимальная оценка 100 баллов.

Добавлено через 1 минуту
Формирование стоимости покупки (чек)

Необходимо создать базу данных (массив) для 50 товаров, указав номер, название
и стоимость (40 баллов)
Кассир задает товар по номеру. Задавая номер, программа добавляет товар в
корзины и считает общую стоимость. Программа осложнена следующим:
1. На категорию отдельных товаров (10 товаров из списка) начисляется
скидка в размере 15% от стоимости (10 баллов)
2. Если покупка на сумму более 300 грн, то начисляется скидка 10%
(10 баллов)
3. Акция. Независимая программа генератор генерирует число для каждого
чеке *. Если это число совпадает с номером товара, являющегося в чеке, то на
стоимость всего корзины насчитывается скидка 50% (предварительные скидку
анульовуються). (20 баллов)
4. В каждом чеке после стоимости выводится афоризм (если стоимость в
чеке до 50 грн один афоризм, 50-100 грн второй, 100-150 грн третий и т.д.)
(10 баллов).
5. Оформление (10 баллов) (для красивого оформления можно вывести
перечень товаров от самого маленького до самого).
Максимальная оценка 100 баллов.

Добавлено через 18 секунд
Формирование стоимости покупки (чек)

Необходимо создать базу данных (массив) для 50 товаров, указав номер, название
и стоимость (40 баллов)
Кассир задает товар по номеру. Задавая номер, программа добавляет товар в
корзины и считает общую стоимость. Программа осложнена следующим:
1. На категорию отдельных товаров (10 товаров из списка) начисляется
скидка в размере 15% от стоимости (10 баллов)
2. Если покупка на сумму более 300 грн, то начисляется скидка 10%
(10 баллов)
3. Акция. Независимая программа генератор генерирует число для каждого
чеке *. Если это число совпадает с номером товара, являющегося в чеке, то на
стоимость всего корзины насчитывается скидка 50% (предварительные скидку
анульовуються). (20 баллов)
4. В каждом чеке после стоимости выводится афоризм (если стоимость в
чеке до 50 грн один афоризм, 50-100 грн второй, 100-150 грн третий и т.д.)
(10 баллов).
5. Оформление (10 баллов) (для красивого оформления можно вывести
перечень товаров от самого маленького до самого).
Максимальная оценка 100 баллов.

Новые блоги и статьи Все статьи Все блоги /
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.04.2021, 09:28
	В каком смысле отсортировать? Что нужно получить? 0

@DeNcHik1231 0 / 0 / 0 Регистрация: 11.03.2021 Сообщений: 25
	13.04.2021, 09:39 [ТС]
	Должно получиться 5 строк и в первой строке Фрукты во второй строке Овощи, ну и так далее. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.04.2021, 09:42
	Ну так сделайте вместо 1 массива 5. Добавлено через 39 секунд Вообще напишите точное и полное условие задачи. 0

@DeNcHik1231 0 / 0 / 0 Регистрация: 11.03.2021 Сообщений: 25
	13.04.2021, 10:51 [ТС]
	Это и есть полная задача, сможете помочь? 0

@DeNcHik1231 0 / 0 / 0 Регистрация: 11.03.2021 Сообщений: 25
	13.04.2021, 10:55 [ТС]
	До свидания 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	13.04.2021, 11:48
	DeNcHik1231, у вас не достаточно данных. Для сортировки по группам от куда-то нужно взять эти самые группы. Добавьте ещё один массив с 50 элементами, в которые каждому товару соответствующую группу. 0

@DeNcHik1231 0 / 0 / 0 Регистрация: 11.03.2021 Сообщений: 25
	13.04.2021, 11:52 [ТС]
	Можете это сделать? Пожалуйста 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	13.04.2021, 11:59
	Делать мне больше не чего! 0

@DeNcHik1231 0 / 0 / 0 Регистрация: 11.03.2021 Сообщений: 25
	13.04.2021, 14:40 [ТС]
	https://drive.google.com/open?... authuser=2 Вот вам полное задание 0

@JuriiMW 5095 / 2661 / 2355 Регистрация: 10.12.2014 Сообщений: 10,060
	13.04.2021, 14:42
	Правила однозначно говорят: 5.19 Запрещено создавать темы в виде ссылок на задания или коды программ, расположенные на других сайтах. 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	13.04.2021, 14:44
	Давайте вы, для начала, правила форума перечитаете: https://www.cyberforum.ru/pasc... ment3.html 0

@DeNcHik1231 0 / 0 / 0 Регистрация: 11.03.2021 Сообщений: 25
	13.04.2021, 15:35 [ТС]
	Хорошо Добавлено через 1 минуту Ок,тогда вот Формування вартості покупки (чек) Необхідно створити базу даних (масив) для 50 товарів, вказавши номер,назву і вартість (40 балів) Касир задає товар по номеру. Задаючи номер, програма додає товар до кошика і рахує загальну вартість. Програма ускладнена наступним: 1. На категорію окремих товарів (10 товарів зі списку) нараховується знижка в розмірі 15% від вартості (10 балів) 2. Якщо покупка на суму більше 300 грн, то нараховується знижка 10 % (10 балів) 3. Акція. Незалежна програма генератор генерує число для кожного чеку*. Якщо це число співпадає із номером товару, що є в чеку, то на вартість всього кошика нараховується знижка 50% (попередні знижку анульовуються). (20 балів) 4. В кожному чеку після вартості виводиться афоризм (якщо вартість у чеку до 50 грн один афоризм, 50-100 грн другий, 100-150 грн третій і т.д.) (10 балів). 5. ОФОРМЛЕННЯ (10 балів) (Для красивого оформлення можна вивести перелік товарів від найбільшого до найменшого). Максимальна оцінка 100 балів. 0

@DeNcHik1231 0 / 0 / 0 Регистрация: 11.03.2021 Сообщений: 25
	13.04.2021, 17:52 [ТС]
	Формирование стоимости покупки (чек) Необходимо создать базу данных (массив) для 50 товаров, указав номер, название и стоимость (40 баллов) Кассир задает товар по номеру. Задавая номер, программа добавляет товар в корзины и считает общую стоимость. Программа осложнена следующим: 1. На категорию отдельных товаров (10 товаров из списка) начисляется скидка в размере 15% от стоимости (10 баллов) 2. Если покупка на сумму более 300 грн, то начисляется скидка 10% (10 баллов) 3. Акция. Независимая программа генератор генерирует число для каждого чеке . Если это число совпадает с номером товара, являющегося в чеке, то на стоимость всего корзины насчитывается скидка 50% (предварительные скидку анульовуються). (20 баллов) 4. В каждом чеке после стоимости выводится афоризм (если стоимость в чеке до 50 грн один афоризм, 50-100 грн второй, 100-150 грн третий и т.д.) (10 баллов). 5. Оформление (10 баллов) (для красивого оформления можно вывести перечень товаров от самого маленького до самого). Максимальная оценка 100 баллов. Добавлено через 1 минуту* Формирование стоимости покупки (чек) Необходимо создать базу данных (массив) для 50 товаров, указав номер, название и стоимость (40 баллов) Кассир задает товар по номеру. Задавая номер, программа добавляет товар в корзины и считает общую стоимость. Программа осложнена следующим: 1. На категорию отдельных товаров (10 товаров из списка) начисляется скидка в размере 15% от стоимости (10 баллов) 2. Если покупка на сумму более 300 грн, то начисляется скидка 10% (10 баллов) 3. Акция. Независимая программа генератор генерирует число для каждого чеке . Если это число совпадает с номером товара, являющегося в чеке, то на стоимость всего корзины насчитывается скидка 50% (предварительные скидку анульовуються). (20 баллов) 4. В каждом чеке после стоимости выводится афоризм (если стоимость в чеке до 50 грн один афоризм, 50-100 грн второй, 100-150 грн третий и т.д.) (10 баллов). 5. Оформление (10 баллов) (для красивого оформления можно вывести перечень товаров от самого маленького до самого). Максимальная оценка 100 баллов. Добавлено через 18 секунд* Формирование стоимости покупки (чек) Необходимо создать базу данных (массив) для 50 товаров, указав номер, название и стоимость (40 баллов) Кассир задает товар по номеру. Задавая номер, программа добавляет товар в корзины и считает общую стоимость. Программа осложнена следующим: 1. На категорию отдельных товаров (10 товаров из списка) начисляется скидка в размере 15% от стоимости (10 баллов) 2. Если покупка на сумму более 300 грн, то начисляется скидка 10% (10 баллов) 3. Акция. Независимая программа генератор генерирует число для каждого чеке *. Если это число совпадает с номером товара, являющегося в чеке, то на стоимость всего корзины насчитывается скидка 50% (предварительные скидку анульовуються). (20 баллов) 4. В каждом чеке после стоимости выводится афоризм (если стоимость в чеке до 50 грн один афоризм, 50-100 грн второй, 100-150 грн третий и т.д.) (10 баллов). 5. Оформление (10 баллов) (для красивого оформления можно вывести перечень товаров от самого маленького до самого). Максимальная оценка 100 баллов. 0