0 / 0 / 0
Регистрация: 19.04.2015
Сообщений: 8

Записи: выяснить max и min сроки хранения товаров на складе; max и min цену товаров до уценки и после уценки

19.04.2015, 18:53. Показов 2311. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Торговый склад производит уценку хранящейся продукции. Если продукция хранится на складе дольше п месяцев, то она уценивается в 2 раза, а если срок хранения превысил т(т< п) месяцев, но не достиг п, то — в 1,5 раза. Ведомость уценки товаров должна содержать следующую информацию: наименование товара, количество товара, цена товара до уценки, срок хранения товара, цена товара после уценки, общая стоимость товара до уценки, общая стоимость товаров после уценки. Выяснить максимальный и минимальный сроки хранения товаров на складе; максимальную и минимальную цену товаров до уценки и после уценки.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.04.2015, 18:53
Ответы с готовыми решениями:

Найти max и min элементы массива y и сформировать массив z из элементов массива y, находящихся между max и min y. Записать массив z в обратном порядке
Дан массив Х{80 элементов}. Вычислить {y}_{i}=sin\sqrt{{x}_{i}}+{cos}^{2}{{x}_{1}}^{2} Найти max и min элементы массива y и...

Найти min(max(x, y), max(x, z), max(z, d))
Пожалуйста помогите написать программу на Паскале, так-как я в этом не силен прошу знающих людей помочь! Даны различные действительные...

Найти max{min(a,b), min(c,d)}
Найти max{min(a,b), min(c,d)}. написать в Паскале.Помогите очень надо до завтра!

2
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
19.04.2015, 21:14
Лучший ответ Сообщение было отмечено Alex Radionchik как решение

Решение

кое-что конечно можно подкорректировать, но сути это не изменит.
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
const
    line = '---------------------------------------------------------';
type
    TTowar = record
        nazwa: String[50];
        ilosc: Word;
        cenaPrzed, cenaPo: Extended;
        czas: Byte;
    end;
    TTowarA = Array[Byte] Of TTowar;
    TTowarArray = record
        arr: TTowarA;
        m: Byte;
    end;
 
procedure WL3();
begin
    WriteLn; WriteLn; WriteLn;
end;
 
procedure Add(var a: TTowarArray);
var
    i, n: Byte;
begin
    with a do
    begin
        repeat
            Write('How much? ');
            ReadLn(n);
            if (n + a.m > 255)
            then
                WriteLn('Too much!');
        until ((n > 0) And (n + a.m <= 255));
        for i := m to m + n - 1 do
            with arr[i] do
            begin
                Write('Product name: '); ReadLn(nazwa);
                Write('Product count: '); ReadLn(ilosc);
                Write('Product price: '); ReadLn(cenaPrzed);
                cenaPo := 0;
                Write('Storage period: '); ReadLn(czas);
            end;
        Inc(m, n);
    end;
    WL3();
end;
 
procedure PriceReduction(const a: TTowarArray);
var
    i, n, t: Byte;
    sumAfter, sumBefore: Extended;
begin
    Write('n='); ReadLn(n);
    repeat
        Write('t=');
        ReadLn(t);
    until (t < n);
    WriteLn; WriteLn; WriteLn;
    with a do
    begin
        WriteLn(line);
        WriteLn('|        name        |count|  before  |period|   after  |');
        WriteLn(line);
        sumBefore := 0; sumAfter := 0;
        for i :=  0 to m - 1 do
            with arr[i] do
            begin
                if (czas >= n)
                then
                    cenaPo := cenaPrzed / 2
                else
                    if (czas >= t)
                    then
                        cenaPo := 2 * cenaPrzed / 3;
                WriteLn('|', nazwa:20, '|', ilosc:5, '|', cenaPrzed:10:2, '|', czas:6, '|', cenaPo:10:2, '|');
                sumBefore := sumBefore + cenaPrzed * ilosc;
                sumAfter := sumAfter + cenaPo * ilosc;
            end;
        WriteLn(line);
        WriteLn('|                           ', sumBefore:10:0, '        ', sumAfter:10:0, '|');
        WriteLn(line);
    end;
    WL3();
end;
 
procedure MaxMinPeriod(const a: TTowarArray);
var
    i, max, min: Byte;
begin
    with a do
    begin
        max := arr[0].czas; min := max;
        for i := 1 to m - 1 do
            with arr[i] do
            begin
                if (max < czas)
                then
                    max := czas;
                if (min > czas)
                then
                    min := czas;
            end;
    end;
    WriteLn('Min Period: ', min);
    WriteLn('Max Period: ', max);
    WL3();
end;
 
procedure MaxMinPrice(const a: TTowarArray);
var
    i: Byte;
    maxB, minB, maxA, minA: Extended;
begin
    with a do
    begin
        maxB := arr[0].cenaPrzed; minB := maxB;
        maxA := arr[0].cenaPo; minA := maxA;
        for i := 1 to m - 1 do
            with arr[i] do
            begin
                if (maxB < cenaPrzed)
                then
                    maxB := cenaPrzed;
                if (minB > cenaPrzed)
                then
                    minB := cenaPrzed;
                if (maxA < cenaPo)
                then
                    maxA := cenaPo;
                if (minA > cenaPo)
                then
                    minA := cenaPo;
            end;
    end;
    WriteLn('Min price before: ', minB:0:3);
    WriteLn('min price after: ', minA:0:3);
    WriteLn('Max price before: ', maxB:0:3);
    WriteLn('Max price after: ', maxA:0:3);
    WL3();
end;
 
var
    a: TTowarArray;
    ans: 1..5;
begin
    a.m := 0;
    repeat
        WriteLn('1. Add to array');
        WriteLn('2. Price reduction');
        WriteLn('3. Max/Min storage period');
        WriteLn('4. Max/Min price before & after PR');
        WriteLn('5. Exit');
        ReadLn(ans);
        case ans of
            1: Add(a);
            2: PriceReduction(a);
            3: MaxMinPeriod(a);
            4: MaxMinPrice(a);
        end;
    until (ans = 5);
end.
1
19.04.2015, 22:54
 Комментарий модератора 
Закрыто по причине аналогичной темы во фрилансе.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.04.2015, 22:54
Помогаю со студенческими работами здесь

Вычислить y=min(a,b+c)+max(ac,b)+min(a2,c)
Даны целые числа a, b, c. Вычислить у-сумму. y=min(a,b+c)+max(ac,b)+min(a2,c) ????

Вычислить: (MIN(Ai+Bi)+MAX(Ai-Bi)/(MIN(Ai)+MAX(Bi)
Дано векторы a и b, состоящие из десяти компонентов. Вычислить: (MIN(Ai+Bi)+MAX(Ai-Bi))/(MIN(Ai)+MAX(Bi)) Программа должна быть сделана...

Найти x=min (min (b, c), max (a, d)-a)
Program Extremum; {Определение максимального или минимального значения с использованием структур &quot;выбор&quot; и &quot;обход&quot;....

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))
Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c)) с помощью использования процедур.

Найти max и min элементы в массиве и номер элемента, близкого к среднему арифметическому min и max.
Привет всем! Очень прошу помочь в решении задачи на определение характеристик одномерного массива. Задача такова: Дана последовательность...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Закрытая тема Создать тему
Опции темы

Новые блоги и статьи
Чем асинхронная логика (схемотехника) лучше тактируемой, как я думаю, что помимо энергоэффективности - ещё и безопасность.
Hrethgir 14.05.2025
Помимо огромного плюса в энергоэффективности, асинхронная логика - тотальный контроль над каждым совершённым тактом, а значит - безусловная безопасность, где безконтрольно не совершится ни одного. . .
Многопоточные приложения на C++
bytestream 14.05.2025
C++ всегда был языком, тесно работающим с железом, и потому особеннно эффективным для многопоточного программирования. Стандарт C++11 произвёл революцию, добавив в язык нативную поддержку потоков,. . .
Stack, Queue и Hashtable в C#
UnmanagedCoder 14.05.2025
Каждый опытный разработчик наверняка сталкивался с ситуацией, когда невинный на первый взгляд List<T> превращался в узкое горлышко всего приложения. Причина проста: универсальность – это прекрасно,. . .
Как использовать OAuth2 со Spring Security в Java
Javaican 14.05.2025
Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .
Анализ текста на Python с NLTK и Spacy
AI_Generated 14.05.2025
NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .
Реализация DI в PHP
Jason-Webb 13.05.2025
Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .
Обработка изображений в реальном времени на C# с OpenCV
stackOverflow 13.05.2025
Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .
POCO, ACE, Loki и другие продвинутые C++ библиотеки
NullReferenced 13.05.2025
В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C#
UnmanagedCoder 13.05.2025
Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .
Создаем CLI приложение на Python с Prompt Toolkit
py-thonny 13.05.2025
Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru