Здравствуйте! word не только графический редактор и текстовый
Объяснение:
Если нужно изменить размеры картинок(обрезка), ввести текст в картинку, сделать обтикание текстом: под картинкой, над картинкой и так далее, при клике на картинку передет на сайт через бразер(выход в интернет)
Program PAS; Const N = 14; Var A:Array[1..N] of integer; i,Max,Min:integer; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(90)+1; Write(' ',A[i]); End; WriteLn; Max:=1; Min:=1; For i:= 2 to N do Begin if A[i]>A[Max] then Max:=i; if A[i]<A[Min] then Min:=i; End; WriteLn('Max(A) = A[',Max,'] = ',A[Max]); WriteLn('Min(A) = A[',Min,'] = ',A[Min]) End.
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.
Здравствуйте! word не только графический редактор и текстовый
Объяснение:
Если нужно изменить размеры картинок(обрезка), ввести текст в картинку, сделать обтикание текстом: под картинкой, над картинкой и так далее, при клике на картинку передет на сайт через бразер(выход в интернет)