Три магазина заказывают на складе книжки. если магазин заказывает больше 30 экземпляров какой-либо книги, склад уменьшает стоимость заказа на 10%. составить таблицу, которая содержит такую информацию: магазин, название книги, автор, цена за одну книгу, заказанное количество, стоимость заказа, сумма к оплате (с учетом скидки), дата заказа. в столбце «стоимость заказа» написать формулу, которая вычисляет стоимость заказанного количества книг. в столбце «сумма к оплате» написать формулу, по которой вычисляется стоимость заказа со скидкой, если магазин имеет скидку, или записывается стоимость заказа, если скидки нет. для столбцов «магазин», «автор», «название книги» создать раскрывающиеся списки для ввода данных. вычислить общее количество заказанных экземпляров книг, общую стоимость заказов и общую сумму к оплате. вычислить на какую сумму всего склад сделал скидки магазинам. вычислить среднюю стоимость одного экземпляра книги. количество экземпляров и размер скидки должны быть записаны в отдельных ячейках, адреса которых использовать в формулах. решить в екселе,
type
base = record
id: integer;
ball: integer;
end;
var
t: text;
a: array of array of integer;
n: integer;
st, tmp: string;
err: integer := 1;
database: base;
begin
readln(n);
setlength(a, n);
for i: integer := low(a) to high(a) do
setlength(a[i], 2);
for i: integer := low(a) to high(a) do
begin
readln(st);
tmp := st;
delete(tmp, pos(' ', tmp, err), tmp.Length - pos(' ', tmp, err) + 1);
database.id := strtoint(tmp);
tmp := st;
delete(tmp, 1, pos(' ', tmp, err));
database.ball := strtoint(tmp);
a[i, 0] := database.id;
a[i, 1] := database.ball;
end;
var j: integer := 0;
assign(t, 'output.txt');
rewrite(t);
while (j <= high(a)) do
begin
if (j + 1 < high(a)) and (a[j, 1] = a[j + 1, 1]) then
if (a[j, 0] < a[j + 1, 0]) then begin
write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');
write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');
end else begin
write(t, inttostr(a[j + 1, 0])); write(t, ' '); write(t, inttostr(a[j + 1, 1])); writeln(t,'');
write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');
end;
if (j+1=n) then
write(t, inttostr(a[j, 0])); write(t, ' '); write(t, inttostr(a[j, 1])); writeln(t,'');
inc(j, 2);
end;
close(t);
end.