Лабораториялы жмыс №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;