Яндакс лицей напишите функцию export_check(text), которая принимает на вход текст, где каждая строка состоит из: названия товара (строка) цены за единицу товара (вещественное число) количества единиц товара (целое число) (значения внутри строки разделены символом табуляции). ваша программа должна обработать полученные данные и создать документ excel res.xlsx, в котором будут следующие столбцы: «товар», «цена за единицу товара», «количество товара», «общая стоимость товара» (названия столбцов выводить не надо) в столбце «общая стоимость товара» должна содержаться формула, которая рассчитывает общую стоимость товара как произведение цены и количества товара (с использованием простого перемножения ячеек). последней строкой должно идти «итого», c пустыми значениями в столбцах «цена за единицу товара» и «количество товара». в столбце «общая стоимость товара» должна содержаться формула, которая считает общую сумму покупок. (с использованием функции excel сумм)
var
a, b: array[1..20]of integer;
i, s,n: integer;
begin
writeln('Массив А:');
randomize;
for i := 1 to 20 do
begin
a[i] := random(100) - 50;
write(a[i],' ');
if (a[i] > 0) and (i mod 2 = 0) then
begin
n:=n+1;
b[n]:= a[i];
s := s + b[n] * b[n];
end;
end;
writeln();
writeln('Массив В:');
for i:=1 to n do write(b[n]);
writeln;
writeln('S = ', s);
end.
destinations = 'СЗЮВСЗЮВСЗЮВ'; {Предварительно сформированная строка ориентаций}
var
C : char;
N1, N2, Position : integer;
begin
write('Исходная ориентация локатора: ');
readln(C);
write('Первая команда поворота: ');
readln(N1);
write('Вторая команда поворота: ');
readln(N2);
Position := Pos(C, destinations) + 4; {Устанавливаем позицию на положение заданного направления}
Position := Position + N1; {Направление после первого поворота (Определяется destinations[Pos])}
Position := Position + N2; {Направление после второго поворота (Определяется destinations[Pos])}
writeln('Конечная ориентация: ', destinations[Position]);
end.