Смотри файл
Объяснение:
1) Вбиваем в ячейку вид формулы. F(x) = 2x² - 4x³
2) Вбиваем в соседние ячейки под ней x и y.
3) Вбиваем в ячейку под x первоначальное значение x. 0
4) Вбиваем в ячейку под первоначальным значением x, второе значение x. 0,1
5) Выделяем ячейки с под первоначальным значением x и вторым значением x и растягиваем вниз за правый нижний уголок (автозаполнение) до конечного значения x.
6) Вбиваем в ячейку под y формулу. =2*A3^2 - 4 * A3^3
7) Выделяем ячейку с формулой и растягиваем вниз за правый нижний уголок (копирование) до конечного значения x.
8) Выравниваем расположение x и y по левому краю (выделить ячейки - Главная - Выравнивание - Выровнять по левому краю).
9) Задаем количество знаков после запятой для y (выделить ячейки - Главная - Число - Увеличить или Уменьшить разрядность).
10) Повторяем действия для остальных формул.
11) Вставляем график (выделяем таблицу для б) (кроме верхней ячейки, где записан вид формулы) - Вставка -Диаграммы - Точечная - Точечная с гладкими кривыми и маркерами)
12) переименовываем лист (щёлкнуть правой кнопкой мышки внизу на названии листа и выбрать Переименовать)
Linux это не система, а ворох разнородных поделок, смотанных изолентой
Почему же так происходит? Потому что
Человеку вообще плевать на приложения. Он пытается достичь своих целей… А в Линуксе потолок проектирования — не достижение целей, а решение задач.… сделаем поддержку пересылки файлов, это универсально и удовлетворит всех. А чтобы выслать селфач — пусть человек ищет софтину для захвата с веб-камеры, потом ретуширует фотку в каком-нибудь графическом редакторе, потом пересылает её с семнадцатой опции в меню «Инструменты». У НАС ЖЕ ЮНИКСВЕЙ!
Однако, на модель потребления можно смотреть с разных точек зрения и я предлагаю выбрать такую, которая также касается и производства того продукта, что потребляется. Тогда нам станут видны некоторые стороны, которые обычно скрыты от нашего взора и потому влияют на процесс втихую.
Program a10;
var a,b:Array [1..100,1..100] of integer;
k,i,n,j,s:integer;
Begin
read(n);
For i:=1 to n do
begin
For j:=1 to n do
begin
read(a[i,j]);
end;
end;
i:=0;j:=0;s:=0;k:=0;
while i<=n do
begin
i:=i+1;j:=j+1;
if(a[i,j]>0)then k:=k+1;
s:=s+a[i,j];
end;
writeln(k,' ',s);
end.
2)
Program a10;
var a,b:Array [1..100,1..100] of real;
k,i,n,m,j:integer;
s:real;
Begin
read(n,m);
For i:=1 to n do
begin
For j:=1 to m do
begin
read(a[i,j]);
end;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
begin
s:=s+a[i,j];
end;
for i:=1 to n do
begin
if(a[i,j]>(s-a[i,j]))then k:=k+1;
end;
end;
writeln(k);
end.