1) в книге excel создайте таблицу, содержащую следующие данные. культура посевная площадь, га валовой сбор, т урожайность, га гречиха 2000 60 000 кукуруза 1000 15000 подсолнечник 1500 34 000 пшеница 6000 260 000 рожь 4000 160 000 2) добавьте в исходную таблицу столбец урожайность с га и организуйте в нем формулу для расчета значений данного показателя. 3) отсортируйте таблицу по наименованию культуры в алфавитном порядке. 4) постройте гистограмму, отображающую величину урожайности каждой культуры. 5) диаграмма должна иметь следующие параметры: заголовок- вверху по центру; легенда - справа; положение подписей значений- центр; линии сетки- нет; заливка области построения - прозрачная. разместите диаграмму на отдельном листе урожайность. 6) сохраните книгу в папке excel под именем диаграмма.xls.

👇

Увидеть ответ

Ответ:

Dragon969

09.08.2020

Решение задания во вложении.

Попробовала сохранить еще в Либеро

4,4(65 оценок)

Открыть все ответы

Ответ:

солнышко267

09.08.2020

Const
K=5;
type
massiv = array [1..K,1..K] of integer;
var
mass: massiv;
summa,i,j:integer;
begin
randomize;
summa:=0;
for i:=1 to K do
for j:=1 to K do
mass[i,j]:=random(10);
for i:=1 to K do
begin
for j:=1 to K do
begin
write (mass[i,j], ' || ');
end;
writeln;
end;
for i:=1 to K do
for j:=1 to K do
if (i=j) then
summa:=summa+mass[i][j];
writeln;
writeln ('Сумма главной диагонали равна ', summa);
end.
Примечание: так как у меня отсутствует модуль CRT то вывести в графическую ДОС оболочку я вам программу не могу но если сильно хочется то в начале добавляете Uses CRT, а после первого Begin добавляете clrscr

Uses crt; {только при начилии соединения с модулем CRT запуск обычно по Shift+F9}
const
K=5; {зарезервировал постоянное число}
type
massiv = array [1..K,1..K] of integer; {задал массив}
var
mass: massiv;
summa,i,j:integer;
begin
clrscr; {очистка экрана}
randomize;
summa:=0;
for i:=1 to K do {запустил цикл, одномерный массив}
for j:=1 to K do
mass[i,j]:=random(10); {числа не больше 10}
for i:=1 to K do
begin {запускаю цикл}
for j:=1 to K do
begin
write (mass[i,j], ' || ');
end;
writeln;
end;
for i:=1 to K do {вывел квадратичную матрицу, 2-мерный массив}
for j:=1 to K do
if (i=j) then {математика, работаю по главной диагонали}
summa:=summa+mass[i][j]; {суммирую}
writeln;
writeln ('Сумма главной диагонали равна ', summa); {вывожу}
end.

4,4(26 оценок)

Ответ:

bryaaa

09.08.2020

Program a4;
var
x, kl, k2: integer;
begin
kl := 0;
k2 := 0;
x:=1;
while x<>0 do
begin
    writeln ('Введите целое число');
    readln (x);
    if x<0 then kl := kl + 1;
    if x<0 then k2 := k2 + 1
end;
writeln ('kl=', kl, ' ', 'k2=', k2)
end.

Программа была написана с синтаксическими ошибками: a4 и х были записаны русскими буквами, а вместо нулей 0 использовалась буква О.
Кроме того, конструкции if x<0 then kl := kl + 1; и if x<0 then k2 := k2 + 1 делают одно и то же, только с разными переменными. Скорее всего, одно из условий должно содержать знак не меньше, а больше, либо больше или равно.

4,6(86 оценок)

Это интересно:

Семейная-жизнь

26.12.2020

Правильное питание для мам, кормящих грудью: Как справиться с диетой...

Дом-и-сад

30.06.2021

Как повесить полку, не используя для этого гвозди...

Здоровье

18.03.2020

Как быстро восстановиться после ангиограммы сердца: полезные советы для пациентов...

Кулинария-и-гостеприимство