[Ada] Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму

@mikrodeliti15 · Регистрация: 17.12.2019

Добрый день! Нуждаюсь в помощи умных людей, для составления программы на языке Ada) Огромное спасибо тем, кто сможет составить данную программу!

@volvo · 26.06.2020, 11:59

Код

with Ada.Numerics.Generic_Elementary_Functions;
with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
   
   package Math is new Ada.Numerics.Generic_Elementary_Functions(Float);
   use Math;
   
   type Point is record
      X : Integer;
      Y : Integer;
   end record; 
   
   function Len(A, B : Point) return Float is
   begin
      return Sqrt(Float((A.X - B.X)**2 + (A.Y - B.Y)**2));
   end Len;
    
   
   A : Point := (10, 10);
   B : Point := (100, 75);
   C : Point := (120, 30);
   
   L1 : Float := Len(A, C);
   L2 : Float := Len(B, C);
   Sum : FLoat := L1 + L2;

begin
   Put_Line("Длина AC = " & L1'Image);
   Put_Line("Длина BC = " & L2'Image);
   Put_Line("Сумма = " & Sum'Image);
end Main;

, например...

@mikrodeliti15 · 26.06.2020, 15:29 **[ТС]**

Спасибо, большое)

@Curry · 26.06.2020, 19:38

Сообщение от mikrodeliti15

на числовой оси

Значит не на плоскости, а только на одной оси. Ну, тогда так.

Oracle 11 SQL

WITH Ada.Numerics.Generic_Elementary_Functions;
WITH Ada.Text_IO; USE Ada.Text_IO;
WITH Ada.Float_Text_IO; USE Ada.Float_Text_IO;
 
PROCEDURE Test IS
   
   PACKAGE Math IS NEW Ada.Numerics.Generic_Elementary_Functions(FLOAT);
   USE Math;
   
   SUBTYPE Point IS FLOAT;
 
   A : Point := 5.1;
   B : Point := 7.5;
   C : Point := 8.0;
 
   L1 : FLOAT := ABS(A - C);
   L2 : FLOAT := ABS(B - C);
   SUM : FLOAT := L1 + L2;
 
BEGIN
   Put("Длина AC = "); Put(L1, Aft => 2, EXP => 0);
   New_Line;
   Put("Длина BC = "); Put(L2, Aft => 2, EXP => 0);
   New_Line;
   Put("Сумма = ");    Put(SUM, Aft => 2, EXP => 0);
   New_Line;
END Test;

@mikrodeliti15 2 / 2 / 1 Регистрация: 17.12.2019 Сообщений: 64
		1
	[Ada] Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму 26.06.2020, 11:07. Просмотров 1753. Ответов 3 Метки ada (Все метки) Добрый день! Нуждаюсь в помощи умных людей, для составления программы на языке Ada) Огромное спасибо тем, кто сможет составить данную программу! 0

@mikrodeliti15 2 / 2 / 1 Регистрация: 17.12.2019 Сообщений: 64
	26.06.2020, 15:29 [ТС]	3
	Спасибо, большое) 0

Опции темы