Форум программистов, компьютерный форум, киберфорум
Другие языки программирования
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
2 / 2 / 1
Регистрация: 17.12.2019
Сообщений: 64
1

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

26.06.2020, 11:07. Просмотров 1753. Ответов 3
Метки ada (Все метки)

Добрый день! Нуждаюсь в помощи умных людей, для составления программы на языке Ada) Огромное спасибо тем, кто сможет составить данную программу!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.06.2020, 11:07
Ответы с готовыми решениями:

Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму
Здравствуйте! Не могу понять в чем проблема. :wall: Вводя числа, выплевывается "Process returned...

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

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

Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
1. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти...

3
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30770 / 20101 / 7853
Регистрация: 22.10.2011
Сообщений: 34,920
Записей в блоге: 6
26.06.2020, 11:59 2
Код
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;
, например...
0
2 / 2 / 1
Регистрация: 17.12.2019
Сообщений: 64
26.06.2020, 15:29  [ТС] 3
Спасибо, большое)
0
4069 / 2647 / 374
Регистрация: 01.06.2013
Сообщений: 5,622
Записей в блоге: 9
26.06.2020, 19:38 4
Цитата Сообщение от mikrodeliti15 Посмотреть сообщение
на числовой оси
Значит не на плоскости, а только на одной оси. Ну, тогда так.
Oracle 11 SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.06.2020, 19:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Даны четыре точки на числовой оси A, B, C И D. найти длину пересечения отрезков AB И CD
Я только начал изучать, не могли бы подсказать метод построения решения этой задачи

Оператор for. Вывести координаты и длины отрезков на числовой оси
Дано целое число N(>1) и две вещественные точки на числовой оси: A,B (A<B). Отрезок разбит на N...

три точки А, В, С на числовой оси
Даны три точки А, В, С на числовой оси. Точка С расположена между точками А и В. Найти произведение...

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

Найти длину отрезков на числовой оси
Прив, всем.Помогите пожалуйста мне решить ету задачу: Дано три точки А,В,С на числовій осі.Знайти...

Пересечение отрезков числовой оси
Дано 2*N действительных чисел . Они определяют N интервалов числовой оси 1, a2], 3, a4], ...,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.