73
end;
Форма программасы келесі көрініске ие болады.
Жалпы программа көрінісі төмендегідей:
unit lini;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
x,y,z,d:real;
begin
x:=strtofloat(edit1.text);
y:=strtofloat(edit2.text);
z:=strtofloat(edit3.text);
d:=(x+y+z)/3;
label4.Caption:='
Результат’='+floattostr(d);
74
end;
end.
6.Программаны сақтаймыз.
7. Run
командасы арқылы программаны іске қосамыз.
Нәтижені алу үшін келесі мәндерді береміз: х=7,y=3,z=5. Нәтижесі=5
Тәжірибелік жұмыс №4
Тармақтық құрылым есептеріне программа құру
Тапсырма
а
2
х
2
+а
1
х+а
0
=0
квадраттық теңдеуін есептеп шешу программасын құру (а
2
=0).
Шешімі 1. Form 1 формасына келесі компененттерді қойдық. Ондағы барлық
компоненттерді Standard Палитры Компонентов бетінен аламыз. Размещение компонентов
классов TLabel, TEdit, TMemo и TButton на форме. Label 1меткасынын Caption қасиетіне
төмендегі
мәнді
қойдық:
Введите
коэффициенты
квадратного
уравнения
А2*Х^2+A1*X+A0=0
Осы текст меткада екі жолдан және тура ортасында тұруы үшін келесі қасиеттерді
қондырамыз:
AutoSize- False,
WordWrap- True,
Alignment- taCenter.
75
2.
Енді Font қасиетіне көшіп және соның үш нүктелі кнопкасын бастық. Осы кездегі
шыққан терезеге шрифтың өлшемін 8 -ді 10-ға өзгерттік. Ok-ді басамыз.
3. Label2, Label3,
және Label4 меткаларына Caption қасиетінің ‘A0=’, ‘A1=’, және ‘A2=’
мәндерін қойдық.
4. Edit1, Edit2
және Edit3 компонентіне Text қасиетіне тең бос жол қойдық.
5. Memo1
компонентіне Lines қасиетін таңдап алдық-та, үш нүктелі кнопканы бастық.
Пайда болған терезеден String list editor удалим строку ’Memo1’ жолын өшіреміз. Ok-ді
басмыз.
6. Button1 және Button2 кнопкасына Caption қасиетіне ‘Решение’ және ‘Очистить’
қондырамыз.
7.
Решение кнопкасын тышқанның батырмасын екі рет басу арқылы белсенділігін
оятамыз және OnClick оқиғасына келесі жолдарды орналастырамыз:
procedure TForm1.Button1Click(Sender: TObject);
var a0,a1,a2,d,x1,x2:double;
begin
a0 := StrToFloat(Edit1.Text);
a1 := StrToFloat(Edit2.Text);
a2 := StrToFloat(Edit3.Text);
d := a1*a1-4*a2*a0;
if d>=0 then
begin
x1 := (-a1+sqrt(d))/(2*a2);
x2 := (-a1-sqrt(d))/(2*a2);
Memo1.Lines.Add('
результат:');
Memo1.Lines.Add('x1='+FloatToStrF(x1,ffGeneral,7,2));
Memo1.Lines.Add('x2='+FloatToStrF(x2,ffGeneral,7,2));
end;
if d<0 then
Memo1.Lines.Add('
решений нет');
end;
8. F12
клавиатурасын басып, формаға қайта ораламыз. Очистить кнопкасын екі рет
басып белсенділігін оятамыз және OnClick қасиетіне Memo1.Clear жолын қойдық;
9. F9
клавишасын басып шешімін аламыз. Квадраттық теңдеудің шешімін алу үшін
коэффициенттерді беріп Решение кнопкасын бастық. Ал терезені тазалау үшін Очистить
кнопкасын басамыз.
76
Қалыптасқан модульдің толық текстін төменде көруге болады.
unit MyProject;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var a0,a1,a2,d,x1,x2:double;
begin
a0 := StrToFloat(Edit1.Text);
a1 := StrToFloat(Edit2.Text);
a2 := StrToFloat(Edit3.Text);
d := a1*a1-4*a2*a0;
77
if d>=0 then
begin
x1 := (-a1+sqrt(d))/(2*a2);
x2 := (-a1-sqrt(d))/(2*a2);
Memo1.Lines.Add('
результат:');
Memo1.Lines.Add('x1='+FloatToStrF(x1,ffGeneral,7,2));
Memo1.Lines.Add('x2='+FloatToStrF(x2,ffGeneral,7,2));
end;
if d<0 then
Memo1.Lines.Add('
решений нет');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
end;
end
Тәжірибелік жұмыс №5
Заставка құру процесін ортасында ұйымдастыру
Тапсырма
Қосымша Заставка құрамыз.
Шешімі. Графикалық редакторды басты менюдегі Tools|Image Editor командасы
арқылы қосылады.
1.
Delphi-
дегі графикалық редакторының жұмысы Paint графикалық
редакторынан кішкене ғана айырмашылықтан тұрады File|New|Bitmap File (.bmp)басты
менюінің командасын орындаймыз. Пайда болған Bitmap Properties диалогының Widthe
(ширина) установим-300, Height (высота)-200 қондырамыз. Colors-ға VGA (16 colors)
қосымшасын немесе басқаны таңдап аламызда Ok-басамыз.
Достарыңызбен бөлісу: |
