Задание по Объектно-ориентированному программированию на Делфи 7добрый вечер, уважаемые школьники, студенты, а также все посетители этого замечательного сайта (надеюсь прочитать ответы от программистов). всем хорошего настроени...
Задание по Объектно-ориентированному программированию на Делфи 7
добрый вечер, уважаемые школьники, студенты, а также все посетители этого замечательного сайта (надеюсь прочитать ответы от программистов). всем хорошего настроения. и я бы хотела, чтобы мне помогли написать программу на языке Делфи 7 в консольном режиме (этот режиме нету дизайна и он похож на обычный Паскаль).
задание:
Даны координаты вершин двух треугольников. Определить, какой из них имеет большую площадь.
я прикрепила файл "Уточнение задания" - там всё конкретно описано.
заранее спасибо всем за помощь.
Гость
Ответ(ы) на вопрос:
Гостьvar
x1, x2, x3, y1, y2, y3, s1, s2: real;
function length(x1, y1, x2, y2: real): real;
begin
length := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
function is_triangle(x1, y1, x2, y2, x3, y3: real): boolean;
var
a, b, c: real;
begin
a := length(x1, y1, x2, y2);
b := length(x1, y1, x3, y3);
c := length(x2, y2, x3, y3);
is_triangle := not ((a >= b + c) or (b >= a + c) or (c >= a + b));
end;
function volume(x1, y1, x2, y2, x3, y3: real): real;
var
a, b, c, p: real;
begin
a := length(x1, y1, x2, y2);
b := length(x1, y1, x3, y3);
c := length(x2, y2, x3, y3);
p := (a + b + c) / 2;
volume := sqrt(p * (p - a) * (p - b) * (p - c));
end;
begin
repeat
write('Введите 3 точки триугольника 1 =>');
read(x1, y1, x2, y2, x3, y3)
until is_triangle(x1, y1, x2, y2, x3, y3);
S1 := volume(x1, y1, x2, y2, x3, y3);
repeat
write('Введите 3 точки триугольника 2 =>');
read(x1, y1, x2, y2, x3, y3)
until is_triangle(x1, y1, x2, y2, x3, y3);
S2 := volume(x1, y1, x2, y2, x3, y3);
writeln(s1,' ',s2);
if S1 > S2 then writeln(1)
else if S2 > S1 then writeln(2)
else writeln(' = ');
end.
Не нашли ответ?
Похожие вопросы