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

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.