Инструмент Копирование используется для копирования выделенного объекта в программе Paint. Это удобно, если на картинке нужно увеличить количество одинаковых линий, фигур или фрагментов текста.
На вкладке Главная в группе Изображение щелкните Выделение и перетащите указатель, чтобы выделить область или объект, который нужно скопировать.
В группе Буфер обмена щелкните Копировать (комбинация Ctrl + C).
В группе Буфер обмена щелкните Вставить (комбинация Ctrl + V).
Когда объект выделен, переместите его на новое место на изображении.
Type point = record x,y: real; end; var vc: array [1..4] of point; bg,nd: point; i,j,k,m: integer; begin writeln('координаты точек - через пробел '); for i:=1 to 4 do begin write('точка ',i,' '); readln(vc[i].x,vc[i].y); end; { сравнение векторов } m:=0; for i:=2 to 4 do begin bg.x:=vc[i].x-vc[1].x; bg.y:=vc[i].y-vc[1].y; j:=1; k:=1; while ((j=1) or (j=i)) do j:=j+1; while ((k=1) or (k=i) or (k=j)) do k:=k+1; nd.x:=vc[j].x-vc[k].x; nd.y:=vc[j].y-vc[k].y; if ((bg.x=nd.x) and (bg.y=nd.y)) or ((bg.x=-nd.x) and (bg.y=-nd.y)) then begin m:=1; break; end; end; if m=1 then writeln('точки образуют параллелограмм') else writeln('точки не образуют параллелограмм'); end.
Появится верхнем в левом углу
Объяснение:
Инструмент Копирование используется для копирования выделенного объекта в программе Paint. Это удобно, если на картинке нужно увеличить количество одинаковых линий, фигур или фрагментов текста.
На вкладке Главная в группе Изображение щелкните Выделение и перетащите указатель, чтобы выделить область или объект, который нужно скопировать.
В группе Буфер обмена щелкните Копировать (комбинация Ctrl + C).
В группе Буфер обмена щелкните Вставить (комбинация Ctrl + V).
Когда объект выделен, переместите его на новое место на изображении.
x,y: real;
end;
var vc: array [1..4] of point;
bg,nd: point;
i,j,k,m: integer;
begin writeln('координаты точек - через пробел ');
for i:=1 to 4 do
begin
write('точка ',i,' ');
readln(vc[i].x,vc[i].y);
end;
{ сравнение векторов }
m:=0;
for i:=2 to 4 do
begin
bg.x:=vc[i].x-vc[1].x;
bg.y:=vc[i].y-vc[1].y;
j:=1; k:=1;
while ((j=1) or (j=i)) do j:=j+1;
while ((k=1) or (k=i) or (k=j)) do k:=k+1;
nd.x:=vc[j].x-vc[k].x;
nd.y:=vc[j].y-vc[k].y;
if ((bg.x=nd.x) and (bg.y=nd.y)) or
((bg.x=-nd.x) and (bg.y=-nd.y)) then
begin
m:=1;
break;
end;
end;
if m=1 then writeln('точки образуют параллелограмм')
else writeln('точки не образуют параллелограмм');
end.