1. Завантажити Microsoft Excel. 2. Створити і заповнити електронну таблицю на 10 видів товарів : Прайс-листКурс $ 28№ з/п Найменування товару Ціна $ Ціна (грн) Одиниця виміру Кількість Вартість1 … … Всього 3. №п/п ввести, використовуючи автозаповнення. 4. Написати формулу для обчислення ціни товару в гривнах, використовуючи абсолютну адресацію. Скопіювати її на всі товари.5. Написати формулу для обчислення вартості товару, використовуючи відносну адресацію. Скопіювати її на всі товари.6. Нанести сітку таблиці там, де необхідно.7. Зберегти робочу книгу в своїй папці з ім’ям Прайс1.8. Поміняти курс долара на 30. Записати у звіт, які відбулися зміни.9. Зберегти робочу книгу в своїй папці з ім’ям Прайс2.10. Побудувати кругову діаграму долями по вартості товару в доларах. Діаграму розмістити на Листі2 і назвати цей лист - Діаграма. 11. Побудувати діаграму залежності вартості від кількості. Розмістити її на листі – Діаграма1. 12. Зберегти робочу книгу в файлі з ім’ям Діаграми в своїй особистій папці.13. Вийти з Microsoft Excel на Рабочий Стол. Висновок:
Ответы
Вот программа : program xxx;
<p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
<p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
mass = array[1..10, 1..10] of real;
var
a, b, c: mass;
n, m, i, j, n1, m1: integer;
procedure MatrA(var a: mass);
var
i, j: integer;
begin
for i := 1 to n do
for j := 1 to m do
begin
writeln('a[', i, ',', j, ']: ');
readln(a[i, j])
end
end;
procedure MatrB(var b: mass);
var
i, j: integer;
begin
for i := 1 to n1 do
for j := 1 to m1 do
begin
writeln('b[', i, ',', j, ']: ');
readln(b[i, j])
end
end;
procedure Sum(a, b: mass; var c: mass);
var
i, j: integer;
begin
for i := 1 to n do
for j := 1 to m do
c[i, j] := a[i, j] + b[i, j];
end;
begin
writeln('Введите n,m матрицы A');
readln(n, m);
MatrA(a);
writeln('Введите n,m матрицы B');
readln(n1, m1);
MatrB(b);
if (n1 <> n) and (m1 <> m) then
writeln('Матрицы сложить нельзя')
else begin
Sum(a, b, c);
writeln('A+B');
for i := 1 to n do
begin
for j := 1 to m do
write(c[i, j]:1:3, ' ');
writeln
end
end;
readln;
end.