Мотопехотный батальон армии США В середине 70-х гг. мотопехотный батальон армии США насчитывал 888 чел. и имел следующую организацию. Во главе стоял командир батальона. Ему подчинялся штаб и 5 рот: штабная (177 чел.), огневой поддержки (144 чел.) и 3 мотопехотные (по 189 чел. в каждой). Штабная рота состояла из 5 взводов: взвода связи, ремонтного взвода, взвода обеспечения, медицинского взвода и секции обслуживания штаба батальона. Рота огневой поддержки состояла из управления роты, радиолокационной секции, секции зенитных ракет (ЗУРО) "Ред-Ай", взвода разведки, минометного взвода и противотанкового взвода. Радиолокационная секция имела в своем составе 4 радиолокационные станции: две - малого радиуса действия (2-4 км), две - среднего (4-8 км). Секция ЗУРО имела 5 огневых расчетов по 6 установок "Ред-Ай" в каждом. Взвод разведки делился на группу управления (6 чел.) и две разведсекции (по 12 чел.). Минометный взвод состоял из группы управления и 4 отделений (в каждом - по одному миномету калибра 106,7 мм). Противотанковый взвод состоял из группы управления и 6 отделений, каждое - из двух расчетов противотанковых управляемых ракет (ПТУPC) "Toy".

pascalabc:

program f0rwardirop;

var r, x,y: real;

b: boolean;

begin

  writeln('*   alphaeus is   *');

  write('ok, введите r =');   readln(r);

  write('теперь введите х =');   readln(x);

  write('и, наконец, введите y =');   readln(y);

  if x> =0 then  

      if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then   writeln('точка (',x,',',y,') принадлежит закрашенной области')

      else   writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.

uses graphabc;

procedure drawlight(x, y, r : integer; c : color);

begin

  brush.color : = c;

  circle(x, y, r);

end;

begin

  randomize;

  var v : = random(1, 3);

  var(c1,c2,c3): =(clwhite,clwhite,clwhite);

  case v of

    1 : c1 : = clred;

    2 : c2 : = clyellow;

    3 : c3 : = clgreen;

  end;

  drawlight(window.center.x, window.height div 10 * 2, window.height div 7, c1);

  drawlight(window.center.x, window.height div 10 * 5, window.height div 7, c2);

  drawlight(window.center.x, window.height div 10 * 8, window.height div 7, c3);

end.

в паскале