Лабораториялық жұмыс №4 Тармақтық құрылым есептеріне программа құру

Шешімі 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;