Question

Разработайте проект нахождение длины гипотенузы и площади прямоугольного треугольника по известным катетам; нужен листинг программы для Delphi

Answer 1

Var
    a, b: real;

begin
    readln(a, b);
    Writeln('c = ', Sqrt(a * a + b * b));
    Writeln('S = ', a * b * 0.5);
end.

Answer 2

Конечно, я могу помочь вам с разработкой проекта для нахождения длины гипотенузы и площади прямоугольного треугольника по известным катетам на Delphi. Ниже приведен пример простой программы на Delphi, которая выполняет эту задачу.

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    EditCatet1: TEdit;
    EditCatet2: TEdit;
    EditHypotenuse: TEdit;
    EditArea: TEdit;
    btnCalculate: TButton;
    procedure btnCalculateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnCalculateClick(Sender: TObject);
var
  Catet1, Catet2, Hypotenuse, Area: Double;
begin
  // Получаем значения катетов из полей ввода
  Catet1 := StrToFloatDef(EditCatet1.Text, 0);
  Catet2 := StrToFloatDef(EditCatet2.Text, 0);

// Проверяем, что введены корректные числа
  if (Catet1 <= 0) or (Catet2 <= 0) then
  begin
    ShowMessage('Введите положительные значения для катетов.');
    Exit;
  end;

// Вычисляем гипотенузу
  Hypotenuse := Sqrt(Power(Catet1, 2) + Power(Catet2, 2));

// Вычисляем площадь
  Area := 0.5 * Catet1 * Catet2;

// Выводим результаты
  EditHypotenuse.Text := Format('%f', [Hypotenuse]);
  EditArea.Text := Format('%f', [Area]);
end;

end.

Этот пример включает в себя форму (TForm) с двумя текстовыми полями (TEdit) для ввода катетов, двумя текстовыми полями для вывода результата (гипотенузы и площади), а также кнопкой (TButton) для запуска расчетов. Пользователь вводит длины катетов, нажимает кнопку, и программа вычисляет гипотенузу и площадь прямоугольного треугольника.

Не забудьте подключить модуль с этим кодом к вашему проекту и создать соответствующие компоненты на форме.