Описание метода решения с помощью Delphi

Оглавление

Задание…………………………………………………………………………….2

1.

Описание входных и выходных параметров программы.        4

2. Описание метода решения с помощью Delphi………………………………..4

3. Блок-схема        4

4. Распечатка программы        5

5. Распечатка результатов работы        6

6. Описание метода решения с помощью MathCad.        6

Задание

[pic 1]

1. Описание входных и выходных параметров программы.

Входные данные: h, d , E, G

Выходные данные: r

2. Описание метода решения с помощью Delphi.

Исходное уравнение можно представить в удобном для решения виде:

[pic 2]

Такое уравнение можно решить методом перебора значений, приравняв его к 0.

Подставив известные значения, получим функцию для расчета:

f:= 1/(4*pi*pi*x*0.03)*((pi*x/1.2)+ln((16*x/0.03)))-17;

В цикле будем перебирать значения x до тех пор, пока f не станет равна нулю. Чтобы расчет занял приемлемое время, введем некоторую погрешность вычислений.

3. Блок-схема

[pic 3]

4. Распечатка программы

unit Unit1;

interface

uses

  Math,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);