Категория
Информатика, опубликовано 24.03.2019 15:10

(через pascal подпрограммы) два треугольника заданы координатами вершин. определить, площадь какого из них больше (использовать функцию нахождения площади треугольника).

Ответы

Ответ
Ответ оставил: Гость
Function square(x1, y1, x2, y2, x3, y3: real): real; begin        square : = abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2; end; var      x1, y1, x2, y2, x3, y3, s1, s2: real; begin      write('задайте первый треугольник(x1,y1,x2,y2,x3,y3): ');       readln(x1, y1, x2, y2, x3, y3);       s1 : = square(x1, y1, x2, y2, x3, y3);       write('задайте второй треугольник(x1,y1,x2,y2,x3,y3): ');       readln(x1, y1, x2, y2, x3, y3);       s2 : = square(x1, y1, x2, y2, x3, y3);       if s1 > s2 then writeln('площадь первого треугольника больше')      else if s1 < s2 then writeln('площадь второго треугольника больше')      else writeln('площади треугольников равны'); end. p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.
Ответ
Ответ оставил: Гость
Если считать, что символы в Unicode кодируются 16 битами (= 2 байта), а в кодировке KOI8-R - 8 битами (=1 байт), то объем сообщения уменьшился на 108*2-108*1 = 108 байт.
Ответ: 108 байт
Ответ
Ответ оставил: Гость
Добавьте пожалуйста фото).
Ответ
Ответ оставил: Гость
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(0,100,2).Println
end.

Результат
0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50 52 54 56 58 60 62 64 66 68 70 72 74 76 78 80 82 84 86 88 90 92 94 96 98 100


Другие вопросы по информатике

Вопрос
Информатика, опубликовано 09.01.2019 16:01
✅ Ответов: 2 на вопрос по информатике: (через pascal подпрограммы) два треугольника заданы координатами вершин. определить, площадь какого из них больше (использовать функцию нахождения площади треугольника).... ты найдешь на сайте. Также ты можешь добавить свой вариант ответа, если считаешь, что он не верен или твой ответ более полный. Пожалуйста, добавляй только правильные ответы.
Вконтакте Youtube