Работа в excel.
1. используя набор данных «важнейшие проливы», составить таблицу и выяснить минимальную ширину проливов, максимальную глубину проливов и среднюю длину проливов.
важнейшие проливы:
длина пролива босфор — 30 км. наименьшая ширина магелланова пролива — 2200 м. наименьшая глубина судоходной части ормузского пролива — 27 м. гудзонов пролив находится в северном ледовитом океане. наименьшая ширина гибралтарского пролива — 14 км. пролив ла-манш находится в атлантическом океане. наименьшая глубина судоходной части баб-эль-мандебского пролива — 31 м. длина ормузского пролива — 195 км. пролив дарданеллы находится в атлантическом океане. длина гудзонова пролива — 806 км. наименьшая глубина судоходной части магелланова пролива — 29 м. длина берингова пролива — 96 км. наименьшая ширина пролива босфор — 700 м. наименьшая глубина судоходной части пролива дарданеллы — 29 м. длина пролива ла-манш — 578 км. баб-эль-мандебский пролив находится в индийском океане. наименьшая глубина судоходной части берингова пролива — 36 м. длина магелланова пролива — 575 км. гибралтарский пролив находится в атлантическом океане. длина пролива дарданеллы — 120 км. наименьшая ширина гудзонова пролива — 115 км. наименьшая глубина судоходной части гибралтарского пролива — 53 м. наименьшая ширина ормузского пролива — 54 км. наименьшая глубина судоходной части пролива ла-манш — 23 м. пролив босфор находится в атлантическом океане. наименьшая ширина пролива дарданеллы — 1300 м. длина баб-эль-мандебского пролива - - 109 км. наименьшая глубина судоходной части гудзонова пролива — 141 м. берингов пролив находится в тихом океане. наименьшая ширина баб-эль-мандебского пролива — 26 км. магелланов пролив находится в тихом океане. наименьшая ширина пролива ла-манш — 32 км. наименьшая глубина судоходной части пролива босфор — 20 м. длина гибралтарского пролива — 59 км. ормузский пролив находится в индийском океане. наименьшая ширина берингова пролива — 86 км.
2. повторить кольцевую диаграмму, отвращающую процентное соотношение длин проливов.
скиньте документом excel,
#include <iostream>
using namespace std;
void draw_square(int n)
{
for(int y = 0; y < n; y++)
{
for (int x = 0; x < n; x++)
cout << "*";
cout << endl;
}
}
int main()
{
int n;
cin >> n;
draw_square(n);
return 0;
}
2)
#include <iostream>
using namespace std;
void drawNumbers(int a)
{
while(a > 0)
{
cout << a%10 << endl;
a /= 10;
}
}
int main()
{
int a;
cin >> a;
drawNumbers(a);
return 0;
}
3)
#include <iostream>
using namespace std;
int main()
{
//можно гораздо быстрей, но мне лень
int a;
cin >> a;
for(int i = 1; i <= a; i++) if(a%i==0) cout << i << " ";
return 0;
}
4)
#include <iostream>
using namespace std;
void procedure(int a)
{
int b = a;
int c = 1;
while(b > 0) {c *= 10; b/=10;}
while(c > 1)
{
cout << (a%c)/(c/10) << endl;
c /= 10;
}
}
int main()
{
int a;
cin >> a;
procedure(a);
return 0;
}
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.
Тестовое решение:
-0.00136006072493969
2. А вот так учат писать это же школьные учителя:
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
m:array[1..100] of real;
i,k:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 100 do begin
m[i]:=sin(i)*cos(i);
if m[i]<>0 then begin
s:=s+m[i];
k:=k+1
end
end;
Writeln(s/k)
end.
Тестовое решение:
-0.00136006072493969