На числовой оси расположены три точки.. - Turbo Pascal

  1. НА числовой оси распложены три точки: A,B,C. Определить, какая из двух последних точек (B и С) расположена ближе к A , и вывести эт у точку и её расстояние от точки A. Благодарствую заранее...


textual

Код к задаче: «На числовой оси расположены три точки.. - Turbo Pascal»

var ab,ac,x1,x2,x3,y1,y2,y3:real;
begin
writeln('координаты точки А: ');read(x1,y1);
writeln('координаты точки B: ');read(x2,y2);
writeln('координаты точки C: ');read(x3,y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
if ab>ac then write('ab=',ab,' ',x2,';',y2) else   write('ac=',ac,' ',x3,';',y3);
end.

СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.143 из 5



Похожие ответы
  1. Вычислить модуль и угол наклона к оси ОХ вектора, соединяющего на плоскости две точки с координатами (х1, у1) и (х2, у2). Рассмотреть ситуации: 1) х1=0,6 х2=0,1 2) х1=2,6 х2=6,1 Заранее СПАСИБО!

  1. Написать программу вращающейся пирамиды вокруг любой оси

  1. Найти значение функции: y = cℎ(x) -x, если x>0 или y=cℎ(2x − 1) + х^2 , если x ≤ 0.Написать подпрограмму, вычисляющую гиперболический косинус по формуле: ch(x) = 1 + х^2 /2! + х^4 /4! + х^6 /6! + ⋯ + х^2n/ (2n)! + ⋯ с точностью 0.0001. нужно из функции сделать процедуру

  1. Написать программу, которая сравнивает два текстовых файла посимвольно. Создать новый файл, включающий только совпадающие символы этих файлов.

  1. Разработать “умную” программу запрашивающую не сам пароль, а сумму части пароля и числа месяца текущей даты. Помогите, пожалуйста, создать

  1. Здравствуйте, ув. пользователи! Прошу у вас помощи с: Задано двумерный массив A размером NxM. Целые числа и элементы массива задать самостоятельно. Переставить строки матрицы A симметрично горизонтальной оси. Буду премного признателен! Спасибо за внимание 0/

  1. Найти наибольшую длину числовой последовательности, состоящей из положительных элементов, в целочисленном массиве из 50 элементов

  1. на плоскости xy заданы своими координатами точка A определить на какой оси лежит точка.Помогите

  1. Вывести различными цветами посимвольно содержание произвольного текстового файла на экран