Проект программы. 
Разработка алгоритма для вычисления электрических полей

Для того чтобы понять, как работает алгоритм подробно рассмотрим детали проекта:

• — Постановка задачи;
• — Работа и внешний вид.

Постановка задачи

Тема: Разработать приложение для Windows «Разработка алгоритма для вычисления электрических полей», представляющего собой обучающую программу для вычисления заряда электрического поля. По двум способам:

• 1. Вычисление в дифференциальной форме;
• 2. Вычисление в интегральной форме.

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

Работа и внешний вид программы

Вычисление в дифференциальной форме записи:

Рисунок 1 — Первый способ Компоненты программы:

button 1 — Кнопка «Вычислить по этапно»;

inc (tick);

if tick=1 then img1. Visible:=True;

if tick=2 then img2. Visible:=True;

if tick=3 then img3. Visible:=True;

if tick=4 then begin img4. Visible:=True; img7. Visible:=True;

end;

if tick=5 then.

begin.

L:=StrToFloat (edt1.text);

r:=StrToFloat (edt2.text);

E:=L/(4*pi*r);

lbl6.Caption:=FloatToStr (E);

lbl3.Caption:='Ответ: '+FloatToStr (E)+' В/м';

end;

if tick=6 then begin tick:=0; btn2. Click; end;

button 2 — Кнопка «Заново»;

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img7.Visible:=False;

lbl3.Caption:='';

lbl1 — Метка «L»;

lbl2 — Метка «r»;

lbl3 — Метка «Ответ:»;

lbl4 — Метка «Дано»;

lbl5 — Метка «Е»;

lbl6 — Метка «?»;

mmo1 — Данные задачи.

Также есть img1-img7, в которых представлены описание задачи.

Процедура работы button 1 — Кнопка «Вычислить поэтапно».

Эта кнопка показывает нам правильное объяснение задачи. При каждом клике программа будет выводить по одному img, продолжая делать это до img7.

Рисунок 2 — Пример работы с img.

На Рисунке 2 показана работа с картинками — img. Здесь она показана с img1 по img3.

Процедура работы button 2 — Кнопка «Заново».

После того как программа показала работу всей задачи, эта кнопка выполняет задачу очистки, для изначального изучения задачи.

Вычисление в интегральной форме записи:

Рисунок 3 — Второй способ Компоненты программы:

button 1 — Кнопка «Вычислить по этапно»;

inc (tick);

if tick=1 then img1. Visible:=True;

if tick=2 then img2. Visible:=True;

if tick=3 then img3. Visible:=True;

if tick=4 then img4. Visible:=True;

if tick=5 then img5. Visible:=True;

if tick=6 then img6. Visible:=True;

if tick=7 then img7. Visible:=True;

if tick=8 then.

begin.

L:=StrToFloat (edt1.text);

r:=StrToFloat (edt2.text);

E:=2*L/(4*pi*r);

lbl6.Caption:=FloatToStr (E);

lbl3.Caption:='Ответ: '+FloatToStr (E)+' В/м';

end;

if tick=9 then begin tick:=0; btn2. Click; lbl6. Caption:='?'.

end;

button 2 — Кнопка «Заново»;

img1.Visible:=False;

img2.Visible:=False;

img3.Visible:=False;

img4.Visible:=False;

img5.Visible:=False;

img6.Visible:=False;

img7.Visible:=False;

lbl3.Caption:='';

lbl1 — Метка «L»;

lbl2 — Метка «r»;

lbl3 — Метка «Ответ:»;

lbl4 — Метка «Дано»;

lbl5 — Метка «Е»;

lbl6 — Метка «?»;

mmo1 — Данные задачи.