Лабораториялық жұмыс №4 Тармақтық құрылым есептеріне программа құру
Тапсырма а2х2 +а1х+а0=0 квадраттық теңдеуін есептеп шешу программасын құру(а2=0).
Шешімі1. Form1формасына келесі компененттерді қойдық.Ондағы барлықкомпоненттердіStandard Палитры Компонентов бетінен аламыз. Размещение компонентов классов TLabel, TEdit, TMemo и TButton на форме. Label 1меткасынын Captionқасиетіне төмендегі мәнді қойдық: Введите коэффициенты квадратного уравнения А2*Х^2+A1*X+A0=0
Осы текст меткада екі жолдан және тура ортасында тұруы үшін келесі қасиеттерді қондырамыз:
AutoSize- False,
WordWrap- True, Alignment- taCenter.
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 клавишасын басып шешімін аламыз. Квадраттық теңдеудің шешімін алу үшін коэффициенттерді беріп Решениекнопкасын бастық. Ал терезені тазалау үшін Очиститькнопкасын басамыз.
Қалыптасқан модульдің толық текстін төменде көруге болады. 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;
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|BitmapFile (.bmp)басты менюінің командасын орындаймыз. Пайда болған
BitmapPropertiesдиалогыныңWidthe (ширина) установим-300, Height (высота)-200
қондырамыз. Colors-ға VGA (16 colors) қосымшасын немесе басқаны таңдап аламыздаOk-басамыз.
2. Содан кейін төмендегі тексті қоямыз. Ол үшін (Text) кнопкасын пайдаланамыз. Тексті жазбай тұрып Text|Font командасы арқылы шрифт өзгертеміз.
3. File|Saveкомандасын орындап, графикалық редакторды сақтаймыз. Графикалық редактордан File|Exit арқылы шығамыз.
4. Additionalбетінен формаға Image (имя- Imagel) компонентін қоямыз
5. Pictureқасиетін таңдап және оның үш нүктелі кнопкасын басамыз. Осы кезде PictureEditor терезесі пайда болады. Load кнопкасын бастық.
PictureEditor–де Ok-ді басамыз. Сурет толығымен көріну үшін, Autosizeқасиетін True-ге қондырамыз. Осыдан кейін суретті, форманың центірінде орналасатындай етіп қоюға болады..
6. Timer1 компонентін екі рет басып және OnTimer қасиетін төмендегі бойынша құрамыз:
7. Жобаны сақтап, модульге ат беріп жобаны орындауға жібереміз.
Модульдің қалыптасу тексті толығымен төменде көрсетілген. unit Yupi2;
interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TForm2 = class(TForm) Timer1: TTimer; Image1: TImage;
procedure Timer1Timer(Sender: TObject); procedure Image1Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var
Form2: TForm2; implementation
{$R *.DFM}
procedure TForm2.Timer1Timer(Sender: TObject); begin
If Image1.Visible=true then Image1.Hide else Image1.Show;
end;