Регистрация
Tomi1234
25.10.2020 02:19
Информатика
Есть ответ 👍

Заданы координаты трех вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его периметр и площадь. продолжите программу на паскаль! program нахождение площади и периметра треугольника; var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, p, s: real; begin readln (x1, y1, x2, y2, x3, y3); d1: = sqrt (sqr(x2-x1) + sqr (y2-y1))

300
500
Посмотреть ответы 2

Ответы на вопрос:

pamagiteplease
pamagiteplease
4,4(50 оценок)

program нахождение площади и периметра треугольника;

var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, p,p, s: real;

begin

readln (x1, y1, x2, y2, x3, y3);

d1: = sqrt (sqr(x2-x1) + sqr (y2-y1));

d2: = sqrt (sqr(x3-x2) + sqr (y3-y2));

d3: = sqrt (sqr(x1-x3) + sqr (y1-y3));

p: = d1+d2+d3;

p: =p/2;

s: = sqrt(p*(p-d1)*(p-d2)*(p-d3));

end.

 

VelievaAyka18
VelievaAyka18
4,4(85 оценок)

const k=10;

var i,n,m: integer;

a: array[1..k] of integer;

begin

n: =0;

m: =0;

for i: =1 to k do

a[i]: =random(21);

for i: =1 to k do

write(a[i],' ');

writeln();

for i: =1 to k do

begin

if ((a[i] mod 2 =0) and (a[i]< > 0)) then n: =n+1;

if (a[i] mod 2 < > 0) then m: =m+1;

end;

writeln('четных : ',n,' нечетных : ',m);

end.

Популярно: Информатика