Таблица №1. Составить и заполнить таблицу бланка товарного счѐта. Вычислить суммы, затраченные на каждый вид товара и итоговую
сумму покупки. Рассчитать среднюю цену товара.
A B C D E F G
1 Расчетный счет
2 Курс 1 у.е. рублей
3
4 № Наименование Ед. измерения Цена у.е. Кол-во Сумма у.е. Сумма руб.
5 1
6 2
7 3
8 4
9
10 Ср. знач. Итого
Необходимые функции можно найти в списке всех встроенных
функций (Вставка-fx Функция)
СУММ (Диапазон)
СРЗНАЧ (Диапазон)
Диапазон определяется через начальную ячейку:конечную ячейку,
например, A1:A3 или A1:D6. Может использоваться «рваный диапазон», тогда каждый поддиапазон отделяется от другого разделителем списка (запятая или точка с запятой в зависимости от
назначения системы)
7
Заголовок таблицы выделить жирным шрифтом, изменить
цвет и отцентрировать относительно всей таблицы.
Отформатировать ячейки таблицы. Размер шрифта 12 пунктов, выравнивание по центру.
Задать формат чисел. Для цены товара - 2 знака после запятой,
для суммы – 1 знак после запятой.
Выполнить обрамление таблицы. Внешние границы – двойная
линия, внутренние – одинарная, цвет линии – по выбору, но различный для внутренних и внешних границ таблицы.
Построить диаграмму, отражающую значения цен купленных
товаров. Оформить диаграмму, вставить заголовки, подписи данных, подписи делений по оси Х.
В ячейку, содержащую значение курса доллара добавить примечание с датой, на которую задан курс у.е.
Я не могу загрузить файлы, но вот коды. Создай файлы и вставь
repeat_.pas:
program repeat_;
var n, k, counter: Integer;
begin
ReadLn(n);
k := 1;
counter := 0;
repeat
if (n mod k = 0) then
begin
counter += 1;
if n <> k then
Write(k, ' ')
else
Write(k, '; ');
end;
k += 1;
until n < k;
WriteLn('всего делителей - ', counter);
end.
while_.pas:
program while_;
var n, k, counter: Integer;
begin
ReadLn(n);
k := 1;
counter := 0;
while (k <= n) do
begin
if (n mod k = 0) then
begin
counter += 1;
if n <> k then
Write(k, ' ')
else
Write(k, '; ');
end;
k += 1;
end;
WriteLn('всего делителей - ', counter);
end.
Объяснение:
Программа для while
program whil;
var x,i,n:integer;
y:real;
begin
i:=1;
n:=0;
Writeln ('Введите число для которого необходимо определить делители: ');
Read (x);
WHILE (i<=x) DO
begin
if (x mod i=0) then
begin
y:=x/i;
n:=n+1;
Writeln (n,' делитель числа',x,' : ',y );
end;
i:=i+1
end;
Writeln ('Число делителей числа', x, ' : ',n)
end.
Программа для repeat
program repeats;
var x,i,n:integer;
y:real;
begin
i:=0;
n:=0;
Writeln ('Введите число для которого необходимо определить делители: ');
Read (x);
repeat
i:=i+1;
begin
if (x mod i=0) then
begin
y:=x/i;
n:=n+1;
Writeln (n,' делитель числа',x,' : ',y );
end;
end;
until i>=x;
Writeln ('Число делителей числа', x, ' : ',n)
end.