// PascalABC.NET 3.2, сборка 1389 от 01.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var xa,ya,xb,yb,xc,yc:real; Write('Введите координаты точки А: '); Read(xa,ya); Write('Введите координаты точки B: '); Read(xb,yb); Write('Введите координаты точки C: '); Read(xc,yc); var xd:=(xb+xc)/2; var yd:=(yb+yc)/2; var ma:=sqrt(sqr(xd-xa)+sqr(yd-ya)); Writeln('ma=',ma:0:5); var AB:=sqrt(sqr(xb-xa)+sqr(yb-ya)); var AC:=sqrt(sqr(xc-xa)+sqr(yc-ya)); var BC:=sqrt(sqr(xc-xb)+sqr(yc-yb)); var Wb:=sqrt(AB*BC*(sqr(AB+BC)-AC*AC))/(AB+BC); Writeln('Wb=',Wb:0:5) end.
Результат Введите координаты точки А: 0 0 Введите координаты точки B: 2 1 Введите координаты точки C: -2 3 ma=2.00000 Wb=2.66667
Свойства многострочного текстового поля. Для ввода и вывода значений элементов одномерного массива можно воспользоваться многострочным полем (компонент типа ТМеmо), который можно разместить на форме так же, как и другие компоненты. Среди свойств этого компонента есть много таких, которые имели ранее рассмотренные нами компоненты: Name, Color, Font, Enabled, Visible, Height, Width, Top, Left и in. Среди свойств, которых не было предыдущие компоненты, рассмотрим следующие: ScrollBars (англ. Scroll - прокрутка, bars - прямоугольные полосы) - значение этого свойства определяет наличие или отсутствие на этом компоненте полос прокрутки (горизонтальной - ssHorizontal, вертикальной - ssVertical обоих - ssBoth) для просмотра текста, который выходит за пределы компонента; ReadOnly (англ. Read - читать, only - только) - значение этого свойства определяет возможность редактирования строк компонента: False - можно редактировать, True - нельзя (только для чтения) Lines (англ. Lines - линии, строки) - значением этого свойства является набор значений, расположенных в строках этого компонента; каждая строка имеет номер, нумерация строк начинается с 0; Lines.Count (англ. Count - подсчет) - значение этого свойства равно количеству заполненных данными строк компонента; отметим, что это свойство отсутствует в списке свойств окна Object Inspector. Тогда при сохранении проекта эти значения также будут сохранены и автоматически появятся в этом поле после запуска проекта на выполнение.
TemperaturaCelsia=32 (или TemperaturaCelsia=(int(input())) для ввода с клавиатуры)
TemperaturaFarengeita=(TemperaturaCelsia*(9/5))+32
print('Температура по Фаренгейту =',TemperaturaFarengeita)