begin readln(x1, y1, r1, x2, y2, r2); d : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)); if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('no intersection point') else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('infinity') else writeln('no intersection point') else begin b : = (r2 * r2 - r1 * r1 + d * d) * 0.5 / d; a : = d - b; h : = sqrt(abs(r1 * r1 - sqr(; x : = x1 + (x2 - x1) * a / d; y : = y1 + (y2 - y1) * a / d; x3 : = x - (y - y2) * h / b; y3 : = y + (x - x2) * h / b; x4 : = x + (y - y2) * h / b; y4 : = y - (x - x2) * h / b; writeln(x3, ' ', y3); if(x3< > x4)or(y3< > y4) then writeln(x4, ' ', y4); end; end.
predatorfishing608
16.07.2020
Const k=30; var b,a: array [1..k] of integer; i,m,n,k1: integer; begin for i: = 1 to k do b[i]: = random(-15,15); writeln(b); for i: =1 to k do if (b[i]< 0) then begin m: =b[i]; n: =i end; for i: =1 to k do if (b[i]< 0) and (b[i]> m) then begin m: =b[i]; n: =i end; for i: =1 to k do if (b[i]< 0) and (b[i]=m) then begin k1: =k1+1; a[k1]: =i end; writeln ('максимальный отрицательный элемент ',m); if k1> 1 then for i: =1 to k1 do writeln ('номер максимального отрицательного элемента ',a[i]) else writeln ('номер максимального отрицательного элемента ',n) end. пример: [5,8,-11,4,-6,-3,-8,10,15,13,11,-2,0,-5,-14,11,-1,-7,15,-12,-11,5,-2,15,11,0,1,7,8,14] максимальный отрицательный элемент -1 номер максимального отрицательного элемента 17 пример: [14,-4,5,-1,-14,4,-3,9,7,-15,1,9,11,-10,-1,4,1,-10,6,-13,-10,-5,1,9,9,-9,-7,-2,9,12] максимальный отрицательный элемент -1 номер максимального отрицательного элемента 4 номер максимального отрицательного элемента 15
Irina-Tunyan
16.07.2020
Технологическая революция к появлению термина "информационная эра" из-за того, что информационные системы стали частью нашей жизни и изменили ее коренным образом. информационная эра также изменила способ ведения боевых действий, обеспечив командиров беспрецедентным количеством и качеством информации. теперь командир может наблюдать за ходом ведения боевых действий, анализировать события и доводить информацию. следует различать войну информационной эры и информационную войну. война информационной эры использует информационную технологию как средство для успешного проведения боевых операций. напротив, информационная война рассматривает информацию как отдельный объект или потенциальное оружие и как выгодную цель. технологии информационной эры сделали возможной теоретическую возможность - прямое манипулирование информацией противника. что такое информация? информация появляется на основе событий окружающего мира. события должны быть восприняты каким-то образом и проинтерпретированы, чтобы стать информацией. поэтому информация результат двух вещей - воспринятых событий(данных) и команд, требуемых для интерпретации данных и связывания с ними значения. отметим, что это определение абсолютно не связано с технологией. тем не менее, что мы можем делать с информацией и как быстро мы можем это делать, зависит от технологии. поэтому введем понятие информационной функции - это любая деятельность, связанная с получением, передачей, хранением и трансформацией информации. каковы военные информационные функции? качество информации - показатель трудности ведения войны. чем более качественной информацией владеет командир, тем большие него преимущества по сравнению с его врагом. так в ввс сша анализ результатов разведки и прогноза погоды является основой для разработки полетного . точная навигация увеличивает эффективность выполнения . все вместе они являются военных информационных функций, которые увеличивают эффективность боевых операций. поэтому дадим определение военным информационным функциям - это любые информационные функции, обеспечивающие или улучшающие решение войсками своих боевых . что такое информационная война? на концептуальном уровне можно сказать, что государства стремятся приобрести информации, обеспечивающую выполнение их целей, воспользоваться ей и защитить ее. эти использование и защита могут осуществляться в , политической и военной сферах. знание об информации, которой владеет противник, является средством, позволяющим усилить нашу мощь и понизить мощь врага или противостоять ей, а также защитить наши ценности, включая нашу информацию. информационное оружие воздействует на информацию, которой владеет враг и его информационные функции. при этом наши информационные функции защищаются, что позволяет уменьшить его волю или возможности вести борьбу. поэтом дадим определение информационной войне - это любое действие по использованию, разрушению, искажению вражеской информации и ее функций; защите нашей информации против подобных действий; и использованию наших собственных военных информационных функций. это определение является основой для следующих утверждений. информационная война - это любая атака против информационной функции, независимо от применяемых средств. бомбардировка атс - операция информационной войны.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Даны координаты центров и радиусы 2-ух окружностей. найти координаты точек пересечения. pascal, c, или четкий алгоритм.
var x1, x2, y1, y2, r1, r2, d, b, x3, x4, y3,y4,x,y, h, a: real;
begin readln(x1, y1, r1, x2, y2, r2); d : = sqrt(sqr(x1 - x2) + sqr(y1 - y2)); if (d > r1 + r2) or (d < abs(r1 - r2)) then writeln('no intersection point') else if (x1 = x2) and (y1 = y2) then if (r1 = r2) then writeln('infinity') else writeln('no intersection point') else begin b : = (r2 * r2 - r1 * r1 + d * d) * 0.5 / d; a : = d - b; h : = sqrt(abs(r1 * r1 - sqr(; x : = x1 + (x2 - x1) * a / d; y : = y1 + (y2 - y1) * a / d; x3 : = x - (y - y2) * h / b; y3 : = y + (x - x2) * h / b; x4 : = x + (y - y2) * h / b; y4 : = y - (x - x2) * h / b; writeln(x3, ' ', y3); if(x3< > x4)or(y3< > y4) then writeln(x4, ' ', y4); end; end.