tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составьте программу вычисления
Составьте программу вычисления расстояния между двумя точками с координатами x1 и x2 лежащим на числовой оси по формуле r|x1 -x2|
davidpolovnev
2 18.09.2019 04:20
0
Ответы
вайли15
07.10.2020 23:14
//Код PascalABC.NET 3.3 (1627)
Function R1D(x1,x2: real): real;
Begin
Result := Abs(x1-x2);
End;
Var
a,b: integer;
Begin
Write('x1 = ');ReadLn(a);
Write('x2 = ');ReadLn(b);
WriteLn('Расстояние между x1 и x2: ',R1D(a,b));
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
12абра
19.11.2020 09:51
в C# Сумма степеней Входные данныеВводится натуральное число N, которое не превосходит 30.Выходные данныеВычислите 1+2+2^2+2^3+…+2^N....
elyavlasova
19.11.2020 09:51
Из предложенного списка переменных исключи 1 лишнюю. Варианты ответов: a, p, k, m....
emilligrin
14.04.2020 10:22
Write ( h = , h); Для ℎ=27 на экране будет...
super12345167
14.04.2020 10:22
От решите Два игрока, Петя и Ваня, играют в следующую игру. Перед игроками лежат две кучи камней. Игроки ходят по очереди, первый ход делает Петя. За один ход игрок может...
claer08
16.03.2021 07:21
Напишите HTML код который выводит следующую таблицу на экран...
1goroh2
22.01.2021 09:00
двоичное число 11011 перевести в десятичную систему счисления???...
vovagudov29
22.01.2021 09:02
Выберите тип транслятор из списка. Вот перевод на русский язык...
BASS1111
22.01.2021 09:04
Отметьте все программы которые относятся к утилитам ...
khamraevmowfdcs
06.10.2020 16:20
Раскажите об информацию заданых в различнах видах...
hhhhh7777
06.10.2020 16:13
Перевести десятичное число 43 в ВОСЬМИРИЧНУЮ, ШЕСТНАДЦАТИРИЧНУЮ ССЧ и наоборот....
Популярные вопросы
Краткое садержание на сказку русалочка скажите...
3
Что означают эти фразеологизмы: жить душа в душу, покривить душой, души...
2
1. река,каналы,растительность. 2. хижины и загоны для скота; 3. главные...
2
Треугольнике авс известно что ас 8 вс 15 угол с равен 90 найдите радиус...
1
Какое движение называют равномерным...
1
Поэтические цитаты на тему лицо зимы...
2
Кроссворд сказки а.с пушкина 1.какую птицу убил князь гвидон? 6 букв...
3
Спишите слова в алфавитном порядке.проставьте в них ударения.подчеркните...
3
За бронзовым пеньком, зайка спит под лопухом. найти названия предметов...
3
Что больше: 101 в 100 степени или 2*10 в 200 степени...
1
Function R1D(x1,x2: real): real;
Begin
Result := Abs(x1-x2);
End;
Var
a,b: integer;
Begin
Write('x1 = ');ReadLn(a);
Write('x2 = ');ReadLn(b);
WriteLn('Расстояние между x1 и x2: ',R1D(a,b));
End.