prianik6
?>

Який загальний вигляд, кількість аргументів, результат виконання математичних функцій ABS, ROUND, PI, POWER? Який загальний вигляд, кількість аргументів, результат виконання математичних функцій SQRT, SUM?Який загальний вигляд, кількість аргументів, результат виконання математичних функцій AVERAGE, MAX, MIN?Який загальний вигляд, кількість аргументів, результат виконання математичних функцій AND, OR, NOT?​

Информатика

Ответы

Daletskaya982
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var xa,ya,xb,yb,xc,yc:real;
  Write('Введите координаты точки А: '); Read(xa,ya);
  Write('Введите координаты точки B: '); Read(xb,yb);
  Write('Введите координаты точки C: '); Read(xc,yc);
  var xd:=(xb+xc)/2;
  var yd:=(yb+yc)/2;
  var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya));
  Writeln('ma=',ma:0:5);
  var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));
  var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));
  var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));
  var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC);
  Writeln('Wb=',Wb:0:5)
end.

Результат
Введите координаты точки А: 0 0
Введите координаты точки B: 2 1
Введите координаты точки C: -2 3
ma=2.00000
Wb=2.66667

Pascal. записать листинг программы на языке паскаль: треугольник задан координатами вершин а(0; 0),

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Який загальний вигляд, кількість аргументів, результат виконання математичних функцій ABS, ROUND, PI, POWER? Який загальний вигляд, кількість аргументів, результат виконання математичних функцій SQRT, SUM?Який загальний вигляд, кількість аргументів, результат виконання математичних функцій AVERAGE, MAX, MIN?Який загальний вигляд, кількість аргументів, результат виконання математичних функцій AND, OR, NOT?​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

rada8080
Koranna1986
Tatyana Anton1475
propercarwashes275
Cannabikh
missbuhgalter2013
sssashago8
onboxru16
cristiansirbu9974
bereza81
armsam76
Dmitrievich-Telishev
akopovarch
manu95957
Galinova2911