Program n1;
var: x1, y1, x2, y2, x3, y3, S, p, a, b, c: real;
begin
readln(x1,x2,x3,y1,y2,y3);
a=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
b=sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3));
c=sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1));
p=0.5*(a+b+c);
S=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
writeln(a,' ',b,' ',c);
end.
2)A-B-C-D=7,
3)8 путей,
4) 1)
(Кбайт/сек.)
2)
(сек)
3)80*10=800(бит)=100(байт)
Ответ: файл размером 100 байт.
5)ВЕБДЖАГ
6)ВГБА
7)Солдат.
8)Хорь и Калиныч.
Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>
Program gt;
var a,b,c,d:integer;
begin
read(a,b,c,d);
if(a=b)then writeln('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 1 ЯВ.. КВАДратом');
if(c=d)then writeln('ПРЯМОУГОЛЬНИК ПОД НОМЕРОМ 2 ЯВ.. КВАДратом');
if((a<=c)and(b<=d))or ((a<=d)and(b<=c)) or((a>=c)and(b>=d)) or((a>=d)and(b>=c))then writeln('ДА')else writeln('НЕТ');
end.
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
Point=record
x,y:real;
name:char
end;
Vector=record
x,y,l:real;
end;
function CreatePoint(px,py:real):Point;
begin
With Result do begin
x:=px;
y:=py;
end
end;
function CreateVector(A,B:Point):Vector;
begin
With Result do begin
x:=B.x-A.x;
y:=B.y-A.y;
l:=Sqrt(x*x+y*y)
end
end;
function IsNormal(A,B:Vector):=Abs(B.x*A.x+B.y*A.y)<=1e-6;
begin
var x,y:real;
Write('Введите координаты x и y точки A: '); Read(x,y);
var A:=CreatePoint(x,y);
Write('Введите координаты x и y точки B: '); Read(x,y);
var B:=CreatePoint(x,y);
var AB:=CreateVector(A,B);
Write('Введите координаты x и y точки C: '); Read(x,y);
var C:=CreatePoint(x,y);
var BC:=CreateVector(B,C);
if Abs(AB.l-BC.l)>1e-6 then begin
Writeln('Стороны AB и BC не равны');
Exit
end;
if not IsNormal(AB,BC) then begin
Writeln('Стороны AB и BC не перпендикулярны');
Exit
end;
Write('Введите координаты x и y точки D: '); Read(x,y);
var D:=CreatePoint(x,y);
var CD:=CreateVector(C,D);
if Abs(AB.l-CD.l)>1e-6 then begin
Writeln('Стороны AB и CD не равны');
Exit
end;
var AD:=CreateVector(D,A);
if Abs(AB.l-AD.l)>1e-6 then Writeln('Стороны AB и ADC не равны')
else Writeln('Точки образуют квадрат с точностью не ниже 0.000001')
end.
<u>Пример</u>
<u>Здесь заданы координаты квадрата, сдвинутого относительно осей координат и повернутого на угол 30 градусов против часовой стрелки. Поэтому числа такие "некруглые".</u>
Введите координаты x и y точки A: -0.4641 -4.4641
Введите координаты x и y точки B: 3.5359 2.4641
Введите координаты x и y точки C: 10.4641 -1.5359
Введите координаты x и y точки D: 6.4641 -8.4641
Точки образуют квадрат с точностью не ниже 0.000001