Цитата:
Сообщение от Ксения)777)
Задача 1.
Определить площадь треугольника по трём вершинам.Треугольник задан координатами своих вершин. Нахождение длины сторон оформить в подпрограмме.
Задача 2.
Составить программу определения количества цифр в целом числе.
|
Код:
VAR
Xa,Ya,Xb,Yb,Xc,Yc,p,S:REAL;
Function Side(x1,y1,x2,y2:REAL):REAL;
begin
Side:=SQRT(SQR(x1-x2)+SQR(y1-y2));
end;
BEGIN
Write('Xa= ');
Readln(Xa);
Write('Ya= ');
Readln(Ya);
Write('Xb= ');
Readln(Xb);
Write('Yb= ');
Readln(Yb);
Write('Xc= ');
Readln(Xc);
Write('Yc= ');
Readln(Yc);
p:=0.5*(Side(Xa,Ya,Xb,Yb)+Side(Xa,Ya,Xc,Yc)+Side(Xb,Yb,Xc,Yc));
S:=SQRT(p*(p-Side(Xa,Ya,Xb,Yb))*(p-Side(Xa,Ya,Xc,Yc))*(p-Side(Xb,Yb,Xc,Yc)));
WriteLn('S=',S:10:5);
ReadLn;
END.
Код:
VAR
n:LongInt;
BEGIN
Write('n= ');
ReadLn(n);
If n=0 then
WriteLn('1')
else
WriteLn(TRUNC(Ln(Abs(n))/Ln(10))+1);
ReadLn;
END.