Составить программу, которая вычисляет площадь треугольника заданного координатами своих вершин. используя формулу герона. вычисления расстояния между двумя точками оформить в виде процедуры или функции
Как-то даже не хочется размышлять, как можно было это решить по-нормальному...
var s:string; a:array[1..4] of byte; i:integer; begin read(s); for i:=1 to length(s) do begin if s[i]='(' then a[1]:=i; if (s[i]=' ') and (a[1]>0) then begin a[2]:=i; break end end; for i:=length(s) downto 1 do begin if s[i]=')' then a[4]:=i; if (s[i]=' ') and (a[4]>0) then begin a[3]:=i; break end end; s:=copy(s,1,a[1])+copy(s,a[3]+1,a[4]-a[3]-1)+copy(s,a[2],a[3]-a[2]+1)+copy(s,a[1]+1,a[2]-a[1]-1)+copy(s,a[4],length(s)-a[4]+1); write(s); end.
Var N1:array[1..10] of integer; N2:array[1..15] of integer; R1:array[1..10] of integer; R2:array[1..15] of integer; min1, min2, max1, max2, i:integer; R1min, R2min, R1max, R2max:integer; begin min1:=500; min2:=500; max1:=0; max2:=0; randomize; for i:=1 to 10 do N1[i]:=random(900)+100; for i:=1 to 15 do N2[i]:=random(900)+100; for i:=1 to 10 do R1[i]:=random(500); for i:=1 to 15 do R2[i]:=random(500); for i:=1 to 10 do if R1[i]<min1 then begin min1:=R1[i]; R1min:=i; end else begin if R1[i]>max1 then begin max1:=R1[i]; R1max:=i; end; end; for i:=1 to 15 do if R2[i]<min2 then begin min2:=R2[i]; R2min:=i; end else begin if R2[i]>max2 then begin max2:=R2[i]; R2max:=i; end; end; writeln('v 1 taxoparke min ', N1[R1min]); writeln('vo 2 taxoparke min ', N2[R2min]); writeln('v 1 taxoparke max ', N1[R1max]); writeln('vo 2 taxoparke max ', N2[R2max]); write('N1 '); for i:=1 to 10 do write(N1[i], ' '); writeln; write('R1 '); for i:=1 to 10 do write(R1[i]:3, ' '); writeln; write('N2 '); for i:=1 to 15 do write(N2[i], ' '); writeln; write('R1 '); for i:=1 to 15 do write(N1[i]:3, ' '); writeln; end.
Попроси решение у одноклассников и просто поменяй название переменных. Я сам так всегда делаю
Решение
Program n1;
Procedure qwe(x1,x2,y1,y2:integer);
var a,b,c,p:real;
begin
a:= x2-x1;
b:= y2-y1;
c:= sqrt((a*a)+(b*b));
p:=(a+b+c)/2;
writeln(sqrt(p*(p-a)*(p-b)*(p-c)));
end;
var i,o,p,l:integer;
begin
read(i,o,p,l);
//Вводить в формате x1,x2,y1,y2
qwe(i,o,p,l);
end.