Создание диаграммы
Выберите данные для диаграммы.
На вкладке Вставка нажмите кнопку Рекомендуемые диаграммы.
На вкладке Рекомендуемые диаграммы выберите диаграмму для предварительного Примечание: Можно выделить нужные данные для диаграммы и нажать клавиши ALT+F1, чтобы сразу создать диаграмму, однако результат может оказаться не самым лучшим. Если подходящая диаграмма не отображается, перейдите на вкладку Все диаграммы, чтобы все типы диаграмм.
Выберите диаграмму.
Нажмите кнопку ОК.
Добавление линии тренда
Выберите диаграмму.
На вкладке Конструктор нажмите кнопку Добавить элемент диаграммы.
Выберите пункт Линия тренда, а затем укажите тип линии тренда: Линейная, Экспоненциальная, Линейный прогноз или Скользящее среднее.
Объяснение:
В паскале
1) program one;
uses crt;
var a:array [1..10] of integer;
x: real; i:integer;
begin
clrscr;
x:=0;
for i:=1 to 10 do
readln(A[i]);
for i:=1 to 10 do
begin
if (A[i]<0) or (A[i] mod 2=0) then
x:=x+Sqr(A[i]);
end;
writeln;
write(x);
end.
2)
program two;
uses crt;
var a:array [1..52] of integer;
x,i: integer;
begin
clrscr;
x:=34;
for i:=1 to 52 do
begin
A[i]:=1+x;
x:=x+1;
if (A[i] mod 7 =1)or (A[i] mod 7 =2) or (A[i] mod 7 =5)
then writeln(A[i]);
end;
end.
3)
Program three;
Uses crt;
var n,x:integer; a,y:real;
begin
Clrscr;
readln(a,n);
for x:=1 to n do
y:=x*a;
writeln(y);
end.
4)
Program four;
Uses crt;
var A:array [1..100] of integer;
n,i,max,x:integer;
begin
clrscr;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('Vvedite elementy');
for i:=1 to n do
read(A[i]);
for i:=1 to n do
begin
max:=A[1];
if (A[i] <0) and (A[i]>A[x])
then max:=A[i];
x:=i;
end;
writeln ('Naib',max,'nomer',x);
end.
5)
Program abc;
Uses crt;
var S,a,b:integer;
begin
clrscr;
S:=0;
a:=1;
b:=3;
while a<98 do
begin
while b<100 do
begin
S:=S+b-a;
a:=a+4;
b:=b+4;
end;
end;
writeln(s);
end.
