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

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

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

Торговый склад производит уценку хранящейся продукции. Если продукция хранится на складе дольше п месяцев, то она уценивается в 2 раза, а если срок хранения превысил т(т< п) месяцев, но не достиг п, то — в 1,5 раза. Ведомость уценки товаров должна содержать следующую информацию: наименование товара, количество товара, цена товара до уценки, срок хранения товара, цена товара после уценки, общая стоимость товара до уценки, общая стоимость товаров после уценки. Выяснить максимальный и минимальный сроки хранения товаров на складе; максимальную и минимальную цену товаров до уценки и после уценки.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
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} Найти...

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

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

Вычислить 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) ????

2
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
19.04.2015, 21:14 2
Лучший ответ Сообщение было отмечено 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
BumerangSP
19.04.2015, 22:54     Записи: выяснить max и min сроки хранения товаров на складе; max и min цену товаров до уценки и после уценки
  #3
 Комментарий модератора 
Закрыто по причине аналогичной темы во фрилансе.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2015, 22:54

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

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

Процедура: Даны три числа 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
Закрытая тема Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru