нє створення функції
type// Опис класів програми
TForm1 = class (TForm): TChart;: TComboBox;: TLabel;: TButton;: TButton;: TEdit;: TLabel;: TButton;: TMemo;: TMainMenu;: TMenuItem;: TMenuItem; : TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TImage;: TLabel; Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); N3Click (Sender: TObject); N31Click (Sender: TObject); N5Click (Sender: TObject); XY1Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm}
function f (x, rp, drp: extended): extended;// Програмуємо функцію за формулою (6), b: extended;// Завдання TObject);// Очищення графіків при натисканні кнопки
// "ОЧИСТИТИ" Form1.Chart1.SeriesCount <> 0 do Form1.Chart1.Series [0]. Destroy;; TForm1.Button1Click (Sender: TObject);// безпосередній розрахунок програми
// при натисканні кнопки "РОЗРАХУНОК"
var// Завдання змінних, a, b: extended;, drp: extended;: TLineSeries; 1.Visible: = True;// При натисканні кнопки "РОЗРАХУНОК" виводиться вікно-графіка
Memo1.Visible: = False;// А вікно-опис ховається
b: = strtofloat (Form1.Edit1.Text) * 1E-6;// Введення глибини залягання: = b/200; Form1.ComboBox1.ItemIndex of// Вибір "енергії іонів" з заданого списку
0: begin// Для E = 200 кеВ
rp: = 1818E-9;: = 123E-9;;
: begin// Для E = 500 кеВ
rp: = 5000E-9;: = 250E-9;;
: begin// Для E = 1000 кеВ
rp: = 7200E-9;: = 450E-9;;;: = 0;: = TLineSeries.Create (self);. Title: = 'E =' + Form1.ComboBox1.Text ;// Висновок інформації про "енергії іонів (E)"
Form1.Chart1.AddSeries (s);// Додає цей напис на графік
while a
s.AddXY (a * 1E6, f (a, rp, drp),'', clTeeColor);: = a + h;;; TForm1.Button3Click (Sender: TObject);;//Вихід з програми; TForm1.N3Click (Sender: TObject);. Visible: = True;. Visible: = True;; TForm1.N31Click (Sender: TObject);. View3D: = True;// Висновок 3D графіка; TForm1. N5Click (Sender: TObject);;// Вихід з програми
end; TForm1.XY1Click (Sender: TObject); 1.View3D: = False;// Переходить в режим x, y площині
end;
end.
Висновок
Сучасне проектування процесу виробництва інтегральних схем неможливо уявити без автоматизації. Занадто багато параметрів потребують розрахунку, тому практично всі процеси розраховуються на ПК. Для розрахунків використовуються різні мови (середовища) програмування. Однією з таких...
