Форум программистов, компьютерный форум, киберфорум
Другие языки программирования
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Программирование Группы языков программирования https://www.cyberforum.ru/ other-lang/ thread2673909.html
Мне нужно сгруппировать языки в которых синтаксис блока такой (1 группа): блок { } такой (2 группа): блок : код и такой (3 группа): блок begin;
Программирование Шифрование Цезаря на Кумир
Добрый вечер. Нужна помощь! Не могу составить программу шифрования Цезаря на Кумире. Может кто помочь? Есть код на C, нужно по его подобию составить в под Кумир. #include <stdio.h> #define...
Квантовые вычисления Программирование
Занимается ли кто-нибудь на нашем форуме квантовыми вычислениями? Хотя бы как хобби? Вопрос возник после посещения одного популярного ресурса спортивного программирования. Там уже не перый раз...
Программирование [КуМир]Вывести на экран гласные буквы слова Дано слово. Вывести на экран гласные буквы слова. https://www.cyberforum.ru/ other-lang/ thread2667043.html
Программирование [КуМир] Вычеркнуть из слова все буквы "н", перед которыми стоит буква "о" https://www.cyberforum.ru/ other-lang/ thread2666961.html
Дано слово. Вычеркнуть из слова все буквы "н", перед которыми стоит буква "о".
Эзотерический язык программирования Программирование
Здравствуйте! Подскажите, как специалисты, преимущества и недостатки Эзотерических языков программирования?? Погуглив, я понял, что такие языки, как правильно, бесполезны. Но мне нужен ответ на...
Программирование Язык программирования Julia и его пакеты Primes и Nemo
Может быть на этом форуме есть человек, который может мне помочь с задачей, которую нужно решить с помощью языка программирования Julia. Задача из сферы фундаментальной и комп. алгебры) Вот сама...
Программирование Нужно реализовать пример на Scheme в DrRacket Нужно реализовать пример на Scheme в DrRacket https://www.cyberforum.ru/ other-lang/ thread2656581.html
Программирование пример надо реализовать в DrRacket https://www.cyberforum.ru/ other-lang/ thread2656225.html
Программирование [Ada] Заработала интерактивная обучающая платформа для языков Ada и SPARK Желаю не болеть коронавирусом всем! Адакоровцы сделали обучающую платформу - набор связанных между собой курсов по языкам Ada и SPARK https://learn.adacore.com/ Хоть я сам сейчас на Аде и не... https://www.cyberforum.ru/ other-lang/ thread2655551.html
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30871 / 20192 / 7875
Регистрация: 22.10.2011
Сообщений: 35,053
Записей в блоге: 6
26.06.2020, 11:59 0

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

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

Ответ


Код
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;
, например...

Вернуться к обсуждению:
[Ada] Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.06.2020, 11:59

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

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

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

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

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

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

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

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