Дана последовательность натуральных чисел, оканчивающаяся числом 0. Определить, есть ли в последовательности хотя бы одна пара одинаковых "соседних" чисел. В случае положительного ответа определить порядковые номера чисел первой из таких пар
Горизонтальная съемка местности в простейшем варианте выполняется с теодолита и рулетки. Съемочное обоснование обычно создают проложением теодолитных ходов. Если участок съемки имеет вытянутую форму, то теодолитный ход прокладывают по его оси; при этом отдельные пункты съемочного обоснования можно определять из геодезических засечек. Если участок имеет овальную форму, то прокладывают замкнутый ход по его границе; внутри участка можно проложить диагональные ходы.
При горизонтальной съемке положение отдельных точек определяют относительно пунктов съемочного обоснования и линий, соединяющих их, применяя засечек (угловых, линейных, комбинированных);
- полярный перпендикуляров створов.
Широко также применяется обмеров зданий и сооружений и расстояний между ними с рулетки засечек. При угловой засечке положение точки 1 определяют относительно двух пунктов съемочного обоснования А и В с двух измеренных горизонтальных углов α1 и β1. Положение другой точки - точки 2 определяют, измеряя два других угла α2 и β2 (рис.7.3). Результаты измерений записывают в журнал.
Рис.7.3 Рис.7.4
При построении плана при точках А и В с транспортира строят углы α1 и β1 и в пересечении линий получают изображение точки 1 на плане. Аналогично находят на плане положение точки 2.
Если расстояние до точки 1 не превышает длины рулетки, положение точки 1 определяют линейной засечкой, при которой измеряют расстояния А - 1 и В - 1 ; при построении плана из точки А проводят дугу радиусом, равным расстоянию А - 1 в масштабе плана, а из точки В - радиусом, равным расстоянию В - 1 в масштабе плана. Точка пересечения этих дуг является изображением точки 1 на плане.
Точность измерения горизонтальных углов при угловой засечке определяется точностью их построения на плане транспортиром,т.е. порядка 10' - 15'. Допустимую ошибку измерения расстояний при линейной засечке рассчитывают по формуле:
ms = 0,3 мм * М,
где М - знаменатель масштаба съемки.
Полярный Полярный съемки - это реализация полярной системы координат. Теодолит устанавливают на пункте съемочного обоснования А, принимая его за начало ( полюс ) местной полярной системы координат. Полярная ось совмещается с направлением на другой пункт съемочного обоснования В. Затем измеряют горизонтальный угол β1, образованный направлением АВ и направлением на снимаемую точку 1, и расстояние S1 от точки А до точки 1 (рис.7.4). При построении плана положение точки 1 получают, откладывая на стороне угла β1, построенного транспортиром, расстояние S1 в масштабе плана.
Рассчитаем среднюю квадратическую ошибку измерения углов и расстояний при полярном съемки, если ошибка положения точки 1 задана и равна Мp.
В полярной системе координат ошибка положение точки выражается формулой:
(7.1)
где mβ - ошибка измерения угла β; ms - ошибка измерения полярного расстояния.
По принципу равных влияний имеем:
m2s = ( S * mβ/ )2 = M2 /2, (7.2)
откуда
и (7.3)
Пусть масштаб съемки 1:М=1:2 000, тогда Мp=0.5 мм * 2 000=1 м. При S=100 м вычисления по формулам (7.3) дают mβ=24', ms =0.7м перпендикуляров перпендикуляров является реализацией обычной прямоугольной системы координат. Пусть линия АВ - одна из сторон теодолитного хода. Примем ее за ось l, начало координат совместим с пунктом А; ось d расположим перпендикулярно линии АВ. Положение точки 1 определяется двумя перпендикулярами l1 и d1 (рис.7.5), длины которых измеряют мерной лентой или рулеткой.
Program temperature; Uses crt; Var x : array [1..2,1..12] of real; t,m,i : integer; z,v,l,o : real; Begin z:=0;v:=0;l:=0;o:=0; for i:=1 to 12 do x[1,i]:=i; x[2,1]:=-11;x[2,2]:=-31;x[2,3]:=-18;x[2,4]:=-7.5;x[2,5]:=5.8;x[2,6]:=10;x[2,7]:=18; x[2,8]:=22.2;x[2,9]:=24;x[2,10]:=17;x[2,11]:=5.4;x[2,12]:=-7; for i:=1 to 3 do z:=z+x[2,i]; for i:=4 to 6 do v:=v+x[2,i]; for i:=7 to 9 do l:=l+x[2,i]; for i:=10 to 12 do o:=o+x[2,i]; z:=z/3;v:=v/3;l:=l/3;o:=o/3; writeln('Средняя температура зимних месяцев = ',z:3:1); writeln('Средняя температура весенних месяцев = ',v:3:1); writeln('Средняя температура летних месяцев = ',l:3:1); writeln('Средняя температура осенних месяцев = ',o:3:1); End.
Program num2; Uses crt; Var x :array[1..100] of integer; i, n : integer; Begin clrscr; write('N=');readln(n); for i:=1 to n do begin write('x[',i,']=');readln(x[i]) end; for i:=1 to n do if x[i]<0 then writeln('x[',i,']<0 and x[',i,']=',x[i]); End.
Горизонтальная съемка местности в простейшем варианте выполняется с теодолита и рулетки. Съемочное обоснование обычно создают проложением теодолитных ходов. Если участок съемки имеет вытянутую форму, то теодолитный ход прокладывают по его оси; при этом отдельные пункты съемочного обоснования можно определять из геодезических засечек. Если участок имеет овальную форму, то прокладывают замкнутый ход по его границе; внутри участка можно проложить диагональные ходы.
При горизонтальной съемке положение отдельных точек определяют относительно пунктов съемочного обоснования и линий, соединяющих их, применяя засечек (угловых, линейных, комбинированных);
- полярный перпендикуляров створов.
Широко также применяется обмеров зданий и сооружений и расстояний между ними с рулетки засечек. При угловой засечке положение точки 1 определяют относительно двух пунктов съемочного обоснования А и В с двух измеренных горизонтальных углов α1 и β1. Положение другой точки - точки 2 определяют, измеряя два других угла α2 и β2 (рис.7.3). Результаты измерений записывают в журнал.
Рис.7.3 Рис.7.4
При построении плана при точках А и В с транспортира строят углы α1 и β1 и в пересечении линий получают изображение точки 1 на плане. Аналогично находят на плане положение точки 2.
Если расстояние до точки 1 не превышает длины рулетки, положение точки 1 определяют линейной засечкой, при которой измеряют расстояния А - 1 и В - 1 ; при построении плана из точки А проводят дугу радиусом, равным расстоянию А - 1 в масштабе плана, а из точки В - радиусом, равным расстоянию В - 1 в масштабе плана. Точка пересечения этих дуг является изображением точки 1 на плане.
Точность измерения горизонтальных углов при угловой засечке определяется точностью их построения на плане транспортиром,т.е. порядка 10' - 15'. Допустимую ошибку измерения расстояний при линейной засечке рассчитывают по формуле:
ms = 0,3 мм * М,
где М - знаменатель масштаба съемки.
Полярный Полярный съемки - это реализация полярной системы координат. Теодолит устанавливают на пункте съемочного обоснования А, принимая его за начало ( полюс ) местной полярной системы координат. Полярная ось совмещается с направлением на другой пункт съемочного обоснования В. Затем измеряют горизонтальный угол β1, образованный направлением АВ и направлением на снимаемую точку 1, и расстояние S1 от точки А до точки 1 (рис.7.4). При построении плана положение точки 1 получают, откладывая на стороне угла β1, построенного транспортиром, расстояние S1 в масштабе плана.
Рассчитаем среднюю квадратическую ошибку измерения углов и расстояний при полярном съемки, если ошибка положения точки 1 задана и равна Мp.
В полярной системе координат ошибка положение точки выражается формулой:
(7.1)
где mβ - ошибка измерения угла β; ms - ошибка измерения полярного расстояния.
По принципу равных влияний имеем:
m2s = ( S * mβ/ )2 = M2 /2, (7.2)
откуда
и (7.3)
Пусть масштаб съемки 1:М=1:2 000, тогда Мp=0.5 мм * 2 000=1 м. При S=100 м вычисления по формулам (7.3) дают mβ=24', ms =0.7м перпендикуляров перпендикуляров является реализацией обычной прямоугольной системы координат. Пусть линия АВ - одна из сторон теодолитного хода. Примем ее за ось l, начало координат совместим с пунктом А; ось d расположим перпендикулярно линии АВ. Положение точки 1 определяется двумя перпендикулярами l1 и d1 (рис.7.5), длины которых измеряют мерной лентой или рулеткой.
Program temperature;
Uses crt;
Var
x : array [1..2,1..12] of real;
t,m,i : integer;
z,v,l,o : real;
Begin
z:=0;v:=0;l:=0;o:=0;
for i:=1 to 12 do
x[1,i]:=i;
x[2,1]:=-11;x[2,2]:=-31;x[2,3]:=-18;x[2,4]:=-7.5;x[2,5]:=5.8;x[2,6]:=10;x[2,7]:=18;
x[2,8]:=22.2;x[2,9]:=24;x[2,10]:=17;x[2,11]:=5.4;x[2,12]:=-7;
for i:=1 to 3 do
z:=z+x[2,i];
for i:=4 to 6 do
v:=v+x[2,i];
for i:=7 to 9 do
l:=l+x[2,i];
for i:=10 to 12 do
o:=o+x[2,i];
z:=z/3;v:=v/3;l:=l/3;o:=o/3;
writeln('Средняя температура зимних месяцев = ',z:3:1);
writeln('Средняя температура весенних месяцев = ',v:3:1);
writeln('Средняя температура летних месяцев = ',l:3:1);
writeln('Средняя температура осенних месяцев = ',o:3:1);
End.
Program num2;
Uses crt;
Var
x :array[1..100] of integer;
i, n : integer;
Begin
clrscr;
write('N=');readln(n);
for i:=1 to n do
begin
write('x[',i,']=');readln(x[i])
end;
for i:=1 to n do
if x[i]<0 then writeln('x[',i,']<0 and x[',i,']=',x[i]);
End.