Ученик УВК "Гимназия-школа" №27 начал заниматься тренировкой. Он в день пробегал 5 км. Каждый день увеличивал нагрузку на 15% от пробега предыдущего дня. Путь пробежит ученик за 8 дней. Создать программу.

еспублика беларусь – суверенное государство, полноправный член мирового сообщества. по уровню развития относится к странам с переходной малой открытой .

беларусь относится к средним по размерам территории странам мира. она занимает площадь 207,6 тыс. км, что составляет немногим более 2 % от площади европы. в мировом сообществе государств доля беларуси по площади составляет 0,15 %.

беларусь занимает компактную территорию, которая по своей форме напоминает пятиугольник. с севера на юг страна простирается на 560 км, с запада на восток – на 650 км. на автомобиле в любом направлении территорию республики можно проехать из одного конца в другой за 8-10 часов. о компактности территории свидетельствует соотношение между площадью страны и протяженностью ее границ.

конфигурацию территории страны характеризует ее глубина, это значит расстояние от государственной границы до самых удаленных пунктов. так, в швейцарии, венгрии, словакии наиболее удаленные от государственной границы пункты находятся на расстоянии около 100-120 км, в близких по площади румынии, польше – около 240-300 км. глубина территории беларуси составляет 200-220 км.

общая протяженность государственной границы республики беларусь составляет 2969 км. беларусь граничит с пятью государствами: россией, украиной, польшей, литвой, латвией.

беларусь расположена на равнинной территории, поэтому государственные границы в основном не имеют явных природных рубежей. во многих местах границы беларуси пересекаются автомобильными дорогами, железными дорогами, и .

положение страны оказывает значительное влияние на исто­рическое развитие и хозяйственную деятельность населения. оно является одним из важнейших стратегических факторов социально- развития страны.

беларусь расположена в пределах умеренного пояса. крайний северный пункт находится севернее освейского озера на широте 56°10′ с.ш. крайний южный пункт – па широте 51°16′ с.ш. недалеко от пос. комарин. с запада на восток территория беларуси простирается от 23°11' (вблизи г. высокое) до 32°47′ в.д. (недалеко от п.г.т. хотимск). согласно расчетам ученых, центр республики находится около дер. антоново пуховичского района минской области и имеет координаты 53°31' с. ш.; 28°03′ в.д. по инициативе общества там установлен памятный знак.

беларусь расположена в центре европы, которая имеет сложную фигуру. последние расчеты геодезистов доказывают, что центр европы расположен именно на территории беларуси. этот пункт находится в глубокском районе витебской области в районе оз. шо и имеет координаты 55°10′ с. ш. и 28°12′ в.д.

территория беларуси расположена во втором часовом поясе.

для беларуси характерен умеренно континентальный климат со сравнительно теплыми зимой и летом, значительной продолжительностью вегетационного периода и достаточным количеством осадков. это позволяет выращивать на территории страны все типичные для средней полосы восточной европы сельскохозяйственные культуры. таким образом, - положение беларуси в целом благоприятное для хозяйственного развития страны, освоения ее территории.

размещение беларуси в центре европы является благоприятным фактором ее - положения. нет природных преград для развития торговых отношений с большинством европейских стран. основные преимущества - положения беларуси – центральность н транзитность.

из 10 трансъевропейских транспортных коридоров два непосредственно проходят через территорию нашей страны.

Основа взята на сайте progmatem.ru. К сожалению, автор статьи там не был указан.

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=0.5*x*cos(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-12.0;
  var bx:=12.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.

*******************************************
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
uses graphABC;
const
  w=1000;
  h=600;

function f(x:real):=8*sin(x)*sin(2*x);

begin
  SetWindowSize(w,h);
  // поле для графика в окне
  var xLeft:=50;
  var yLeft:=50;
  var xRight:=w-xLeft;
  var yRight:=h-yLeft;
  // интервалы по осям
  var ax:=-15.0;
  var bx:=15.0;
  var hx:=1.0;
  var ay:=-6.5; // минимум f(x) с запасом
  var by:=6.5;
  var hy:=0.5;
  // масштабы по осям
  var mx:=(xRight-xLeft)/(bx-ax);
  var my:=(yRight-yLeft)/(by-ay);
  // точка начала координат графика
  var x0:=xLeft+Trunc(abs(ax)*mx);
  var y0:=yRight-Trunc(abs(ay)*my);
  // рисование координатных осей
  Line(xLeft,y0,xRight+10,y0);
  Line(x0,yLeft-10,x0,yRight);
  SetFontSize(12); SetFontColor(clBlue);
  TextOut(xRight+15,y0-10,'X');
  TextOut(x0-4,yLeft-30,'Y');
  SetFontSize(8); SetFontColor(clGreen);
  // рисование засечек
  var s:string;
  for var i:=1 to Round((bx-ax)/hx)+1 do begin
    var num:=ax+(i-1)*hx;
    var x:=xLeft+Trunc(mx*(num-ax));
    Line(x,y0-3,x,y0+3);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x-TextWidth(s) div 2,y0+10,s)
    end;
  for var i:=1 to Round((by-ay)/hy)+1 do begin
    var num:=ay+(i-1)*hy;
    var y:=yRight-Trunc(my*(num-ay));
    Line(x0-3,y,x0+3,y);
    Str(num,s);
    if abs(num)>1E-15 then TextOut(x0+7,y-TextHeight(s) div 2,s)
    end;
    TextOut(x0-10,y0+10,'0');
  // собственно график
  var xi:=ax;
  while xi<=bx do begin
    var yi:=f(xi);
    var x:=x0+Round(xi*mx);
    var y:=y0-Round(yi*my);
    if (y>=yLeft) and (y<=yRight) then SetPixel(x,y,clRed);
    xi+=1e-3
    end
end.