Расстояние между двумя точками(тремя) - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

допустим у нас есть провод весь запутанный ( мы знаем расстояние от начала до середины и от середины до конца ) Как посчитать всю длинну провода ? Программа должна автоматический складывать / считать (от начала до середины и от середины до конца ) в итоге программа должна выдать полный размер провода. Может кто подсказать , как правильно это реализовать ?

Решение задачи: «Расстояние между двумя точками(тремя)»

textual
Листинг программы
Program wet;
Uses crt;
Var r:integer;
Begin
Write('введите расстояние середины r=');
Readln(r);
r:=2*r;
write('Полное расстояние=',r)
End.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Создается программа wet.
  2. Используется библиотека crt.
  3. Объявляются переменные: r - целочисленного типа.
  4. Выводится сообщение введите расстояние середины r=.
  5. Считывается значение переменной r с помощью функции Readln.
  6. Значение переменной r удваивается и присваивается переменной r.
  7. Выводится сообщение Полное расстояние=.
  8. Завершается выполнение программы.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы