Delphi визуалды программалау ортасы

unit grafik01;

//GR процедурасын бетінде график сызылатын және өзі басқа //модульде орналасқан Form2 пішіні үшін onPaint оқиғасын өңдеу //процедурасы шақырады.

// Сондықтан функция хабарландыруын басқа модульден шақырып //алу үшін Interface тарауында орналастыру қажет.

procedure gr;

implementation

uses grafik02;

{$R *.dfm}

{ Пішінді құру кезінде StringGrid компонентінің қасиетін орнату:

FixedRows := 0;

RowCount := 2;

Options.goEditing := True;

Options.goTab := True;}

const

var

x: array[1..COLCOUNT] of real;

y: array[1..COLCOUNT] of real;

// x,y жиымының мәндері бойынша график салу

procedure gr;

var

x1,x2:real; // функция аргументінің өзгеру шектері

y1,y2:real; // функция мәндерінің өзгеру шектері

l,b:integer; // график шығатын аймақтың сол жақ төменгі бұрышы

w,h:integer; // график шығатын аймақтың ені мен биіктігі

mx,my:real; // X және Y осьтері бойынша масштаб

x0,y0:integer; // координат осьтерінің қиылысу нүктесі

px,py: integer;// пішін бетіндегі графиктің нүкте координаталары

np: integer; // графиктегі нүктелер саны

begin

// график шығатын аймақ

i:=10; // X - сол жақ жоғарғы бұрыш координатасы

b:=Form2.ClientHeight-20; // Y – сол жақ төменгі бұрыш //координатасы

h:=Form2.ClientHeight-40; //биіктігі

w:=Form2.Width-40; // ені

// аргументтің өзгеру шектері мен нүктелер санын анықтау (X //жиымының элементтері өспелі тізбек құрауы тиіс)

x1:=x[1];

i:=1;

while (x[i+1] > x[i]) and (i < COLCOUNT) do i:= i+1;

np:=i; // нүктелер саны

if np < 2 then begin

ShowMessage('График нүктелері екіден кем болмауы қажет');

exit;

end;

y1:=0; y[1]; // минимум

y2:=0; y[1]; // максимум

for i:=1 to np do

begin

if y[i] < y1 then y1:=y[i];

end;

my:=h/abs(y2-y1); // Y осі бойынша масштаб

mx:=w/abs(x2-x1); //X осі бойынша масштаб

// координат осьтерінің қиылысу нүктесі

x0:=l+Abs(Round(x1*mx));

y0:=b-Abs(Round(y1*my));

with form2.Canvas do

begin

MoveTo(l,y0);LineTo(l+w,y0); // ось X

TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));

TextOut(l+2,b+2,FloatToStrF(y1,ffGeneral,6,3));

// график салу

for i:=1 to np do

begin

px := x0+Round(x[i]*mx);

Form2.Canvas.Pen.Color := clRed;

Rectangle(px-2,py-2,px+2,py+2); // маркер

if Form1.CheckBox1.Checked then

// қосу сызығы

if i = 1

else LineTo(px,py);

Form2.Canvas.Pen.Color := clBlack;

// функция мәні және аргументі

TextOut(px-5,py-15,FloatToStr(y[i]));

TextOut(px-5,y0+2, FloatToStr(x[i]));

MoveTo(px,py); // Қаламұшты px,py нүктелеріне қайтару

// өйткені TextOut қаламұш орнын өзгертеді.

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

i: integer;

StringGrid1.ColCount := COLCOUNT;

StringGrid1.Cells[0,0] := ' X';

StringGrid1.Cells[0,1] := ' Y';

// Өңдеу: кестені толтыру

for i:=1 to COLCOUNT do

begin

StringGrid1.Cells[i,0] := IntToStr(i-1);

end;

// Құру батырмасын шерту

procedure TForm1.Button1Click(Sender: TObject);

var

begin

for i:=1 to COLCOUNT-1 do

begin

x[i] := StrToFloat(Form1.StringGrid1.Cells[i,0]);

end;

if not Form2.Showing

then Form2.Show // Form2 терезесін бейнелеу

else Form2.Repaint;

end;
№19. Еске сақтау тесті
Жұмыстың мақсаты – өзіңіздің еске сақтау қабілетіңізді ұштайтын бағдарлама құру.

1. Ол үшін жаңа жоба ашып, сол Пішінге 33-суретте көрсетілген компоненттерді орналастырыңыз.