Var Ax,Ay,Ox,Oy,R:real;
Begin
WriteLn('Точка А:');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Центр окружности:');
Write(' x = ');ReadLn(Ox);
Write(' y = ');ReadLn(Oy);
Write('Радиус окружности: ');ReadLn(R);
if sqr(Ax-Ox)+Sqr(Ay-Oy) < R*R then WriteLn('Точка лежит внутри окружности')
else if sqr(Ax-Ox)+Sqr(Ay-Oy) = R*R then WriteLn('Точка лежит на окружности')
else WriteLn('Точка находится вне окружности')
End.
Var
Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
Begin
WriteLn('Координаты первой вершины');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Координаты второй вершины');
Write(' x = ');ReadLn(Bx);
Write(' y = ');ReadLn(By);
WriteLn('Координаты третьей вершины');
Write(' x = ');ReadLn(Cx);
Write(' y = ');ReadLn(Cy);
AB:=Sqr(Ax-Bx)+Sqr(Ay-By);
BC:=Sqr(Bx-Cx)+Sqr(By-Cy);
CA:=Sqr(Cx-Ax)+Sqr(Cy-Ay);
if (AB+BC=CA)or(BC+CA=AB)or(CA+AB=BC) then WriteLn('Треугольник - прямоугольный')
else WriteLn('Данный треугольник не является прямоугольным')
End.
Ответ:
Промы́шленный ро́бот — предназначенный для выполнения двигательных и управляющих функций в производственном процессе манипуляционный робот, т. е. автоматическое устройство, состоящее из манипулятора и перепрограммируемого устройства управления, которое формирует управляющие воздействия, задающие требуемые движения исполнительных органов манипулятора. Применяется для перемещения предметов производства и выполнения различных технологических операций[1][2].
В литературе на русском языке получило распространение следующее определение промышленного робота, взятое из ГОСТ 25686-85[3]: это — «автоматическая машина, стационарная или передвижная, состоящая из исполнительного устройства в виде манипулятора, имеющего несколько степеней подвижности, и перепрограммируемого устройства программного управления для выполнения в производственном процессе двигательных и управляющих функций». В промышленности, впрочем, наряду с манипуляционными роботами, получившими наибольшее распространение, используют также мобильные (локомоционные), информационные, информационно-управляющие, комплексные и другие виды промышленных роботов[4].
Промышленные роботы обычно являются одним из компонентов автоматизированных производственных систем, применяемых в гибком автоматизированном производстве (РТК, РТЯ, РТУ, РТЛ, РТС, ГПЛ и т. п.), которые при неизменном уровне качества позволяют увеличить производительность труда в целом.
Экономически выгодно использование промышленных роботов совместно с другими средствами автоматизации производства (автоматические линии, участки и комплексы
Для начала найдем, сколько бит используется для кодирования одного пикселя:
256=2^x
x=8
Теперь находим объем видеопамяти:
1024*640*8/8/1024=640Кбайт
В принципе тут все так же и пишется....
a) f:= a + b * x + c * y * z;
b) f:= ((a * x - b) * x + c) * x - d;
или если вместо квадратных скобок прямые:
f:= abs((a * x - b) * x + c) * x - d;
c) f:= a + b / c + c / a * b;
или если там есть скобки:
f:= (a + b) / c + c / (a * b)
d) f:= x + y / a1 * a2 / x - y;
write('введите a,b,c,d,x,y,z,a1,a2'); readln(a,b,c,d,x,y,z,a1,a2);