Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов

@Voffa4ka · Регистрация: 04.10.2009

Author24 — интернет-сервис помощи студентам

народ помогите решить задачки
1Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов:

|AB| = ((xA − xB)в степени 2 + (yA − yB)в степени2) в степени1/2

(xA, yA, xB, yB — вещественные параметры). С помощью этой функции найти длины отрезков AB, AC, AD, если даны координаты точек A, B, C, D.

2Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру целого положительного числа K (цифры в числе нумеруются справа налево). Если количество цифр в числе K меньше N, то функция возвращает −1. Для каждого из пяти данных целых положительных чисел K1, K2, …, K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5.

@insolent · 28.12.2009, 23:40

1.

Вот

Pascal

Program Len_vec;
  Uses Crt;
  Var
    xA, yA,
    xB, yB,
    xC, yC,
    xD, yD : extended;
 
  Function Norm(xA,yA,
                xB,yB : extended) : extended;
    Begin
      Norm := Sqrt(Sqr(xA-xB) + Sqr(yA-yB));
    End;
 
BEGIN
  ClrScr;
    Write('Введите координаты точки A(x,y): '); Readln(xA,yA);
    Write('Введите координаты точки B(x,y): '); Readln(xB,yB);
    Write('Введите координаты точки C(x,y): '); Readln(xC,yC);
    Write('Введите координаты точки D(x,y): '); Readln(xD,yD);
    Writeln('Длина отрезка AB = ',Norm(xA,yA,xB,yB):0:3);
    Writeln('Длина отрезка AC = ',Norm(xA,yA,xC,yC):0:3);
    Writeln('Длина отрезка AD = ',Norm(xA,yA,xD,yD):0:3);
  Readkey;
END.

@Voffa4ka · 10.01.2010, 00:23 **[ТС]**

а у меня такой вопросик , а как написать не через extended или что надо подключать к нему если его не считает и пишет ошибку 8057 или какуето похожую

@Puporev · 10.01.2010, 10:32

Напиши real; или в начале программы после

Pascal

1 2	Program Len_vec; {$N+}

Добавлено через 2 минуты
Или, чтоб везде это не писать, зайди в меню Options ->Compiler и поставь крестик возле 8087/80287

@Voffa4ka 0 / 0 / 0 Регистрация: 04.10.2009 Сообщений: 47
		1
	Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов 28.12.2009, 10:15. Показов 5985. Ответов 3 Метки нет (Все метки) народ помогите решить задачки 1Описать функцию Leng(xA, yA, xB, yB) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов: \|AB\| = ((xA − xB)в степени 2 + (yA − yB)в степени2) в степени1/2 (xA, yA, xB, yB — вещественные параметры). С помощью этой функции найти длины отрезков AB, AC, AD, если даны координаты точек A, B, C, D. 2Описать функцию DigitN(K, N) целого типа, возвращающую N-ю цифру целого положительного числа K (цифры в числе нумеруются справа налево). Если количество цифр в числе K меньше N, то функция возвращает −1. Для каждого из пяти данных целых положительных чисел K1, K2, …, K5 вызвать функцию DigitN с параметром N, изменяющимся от 1 до 5. 0

@Voffa4ka 0 / 0 / 0 Регистрация: 04.10.2009 Сообщений: 47
	10.01.2010, 00:23 [ТС]	3
	а у меня такой вопросик , а как написать не через extended или что надо подключать к нему если его не считает и пишет ошибку 8057 или какуето похожую 0

	10.01.2010, 10:32