50б !! Создать рабочую книгу MS Excel, на первом листе которой создать таблицу с даными по заказам, в которой должны быть следующие поля(столбцы): вид товара, наименование товара, дата заказа, количество, цена за единицу, заказчик. Все данные должны быть получены из внешнего источника - базы данных формата MS Access. Запросы сделать на сортировку, фильтрацию, перекрёстный. На этом же рабочем листе должны быть добавлены два столбца, содержащие формулы - "год" и "цена товара", и все данные организованы в виде списка данных. Результаты запросов сохранить на отдельных листах. По сводным таблицам построить диаграммы.
// Внимание! Если программа не работает, обновите версию!
1. Решение без проверки вводимых данных
begin
var a,b:integer;
Read(a,b);
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
Пример
2 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
2. Решение с контролем ввода
begin
var a:=ReadInteger('Введите a от 1 до 30:');
if a<1 then begin Writeln('Неверно'); Exit end;
var b:=ReadInteger('Введите b от '+a.ToString+' до 30:');
if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end;
var P:=ArrFill(30,0);
for var i:=a-1 to b-1 do P[i]:=2;
P.Println
end.
Пример
Введите a от 1 до 30: 2
Введите b от 2 до 30: 10
0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0