Program gt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
procedure dlinastoron(x1,y1,x2,y2:real;var b:real);
begin
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure perimetr(a,b,c:real;var d:real);
begin
d:=a+b+c;
end;
procedure ploshad(a,b,c:real;var d:real);
var s:real;begins:=(a+b+c)/2;
d:=sqrt(s*(s-a)*(s-b)*(s-c));
end;
begin
readln(x1,y1,x2,y2,x3,y3);
dlinastoron(x1,y1,x2,y2,a);
dlinastoron(x1,y1,x3,y3,b);
dlinastoron(x3,y3,x2,y2,c);
perimetr(a,b,c,p);
ploshad(a,b,c,s);
writeln(a,' ',b,' ',c);
writeln(p);
writeln(s);
<span>end.</span>
Сами значения вычислить понятно как. Пусть будет шаг h:=0.1
var a, b, h, x, y: real
BEGIN
a := -10; b := 10; h := 0.1;
x := a;
while (x <= b) do
begin
y:=1/(x*x*x);
Draw(x, y); // Это подпрограмма рисования точки с координатами (x, y)
x:= x+h;
end;
END.
А вот как в паскале рисовать на экране, я не знаю.
Подпрограмму Draw я оставляю ненаписанной.
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
<span>не(А&B)|не(B&C)
Я перепишу по человечески
!(A*B) + !(B*C) = !A + !B + !B + !C = !A + !B + !C
По моему больше не упростить</span>