Расстояние между двумя точками(тремя) - Pascal ABC
Формулировка задачи:
допустим у нас есть провод весь запутанный ( мы знаем расстояние от начала до середины и от середины до конца )
Как посчитать всю длинну провода ?
Программа должна автоматический складывать / считать (от начала до середины и от середины до конца ) в итоге программа должна выдать полный размер провода.
Может кто подсказать , как правильно это реализовать ?
Решение задачи: «Расстояние между двумя точками(тремя)»
textual
Листинг программы
Program wet; Uses crt; Var r:integer; Begin Write('введите расстояние середины r='); Readln(r); r:=2*r; write('Полное расстояние=',r) End.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Создается программа
wet
. - Используется библиотека crt.
- Объявляются переменные: r - целочисленного типа.
- Выводится сообщение
введите расстояние середины r=
. - Считывается значение переменной r с помощью функции Readln.
- Значение переменной r удваивается и присваивается переменной r.
- Выводится сообщение
Полное расстояние=
. - Завершается выполнение программы.