Question

Розробити програму в Delphi7 для розв'язання задачі
Задача 1. З точки А до площини проведено дві похилі АВ і АС та перпендикуляр АК. Обчислити довжину проекції похилої КВ, якщо довжини похилих становлять АС=(ввести дані) см, AB=(ввести дані) см, а довжина меншої похилої КС становить (ввести дані) см.

Задача 2. З точки А до площини проведено дві похилі АВ і AC та перпендикуляр АК. Обчислити довжину похилої АС, якщо довжина похилої становить АВ=(ввести дані) см і проекції похилих вк=(ввести дані) см, СК= (ввести дані) см

Answer 1

Відповідь:

Пояснення:Ось приклад програми на Delphi 7, яка розв'язує задачу 1 та задачу 2:

program Project1;

{$APPTYPE CONSOLE}

uses

 SysUtils;

function CalculateProjectionKV(AS, AB, KC: Double): Double;

var

 AK, KV: Double;

begin

 AK := AS - KC;

 KV := Sqrt(AB * AB - AK * AK);

 Result := KV;

end;

function CalculateLengthAC(AB, VK, SK: Double): Double;

begin

 Result := Sqrt(AB * AB + VK * VK + SK * SK);

end;

var

 AS, AB, KC, VK, SK: Double;

 ProjectionKV, LengthAC: Double;

begin

 Write('Введіть довжину похилої АС (у см): ');

 ReadLn(AS);

 Write('Введіть довжину похилої АВ (у см): ');

 ReadLn(AB);

 Write('Введіть довжину меншої похилої КС (у см): ');

 ReadLn(KC);

 ProjectionKV := CalculateProjectionKV(AS, AB, KC);

 WriteLn('Довжина проекції похилої КВ: ', ProjectionKV:0:2, ' см');

 Write('Введіть довжину похилої АВ (у см): ');

 ReadLn(AB);

 Write('Введіть проекцію похилої ВК (у см): ');

 ReadLn(VK);

 Write('Введіть довжину СК (у см): ');

 ReadLn(SK);

 LengthAC := CalculateLengthAC(AB, VK, SK);

 WriteLn('Довжина похилої АС: ', LengthAC:0:2, ' см');

 ReadLn;

end.

Програма запитує користувача про введення відповідних значень і обчислює результати за допомогою функцій CalculateProjectionKV та CalculateLengthAC. Результати виводяться на екран.