Delphi — визуалды программалау жүйесі

Сабақ тақырыбы: Калькулятор программасын құрастыру практикумы

жүктеу/скачать 0,65 Mb.

бет	5/7
Дата	27.11.2019
өлшемі	0,65 Mb.
	#52548

1 2 3 4 5 6 7

Байланысты:
konspekt Delphi

Сабақ тақырыбы: Калькулятор программасын құрастыру практикумы.
Сабақ түрі : практикалық
Сабақ мақсаты: Калькулятор программасын құрастыру арқылы оқушылардың тексті санға, санды текстке айналдыру дағдыларын бекіту.

Оқушылардың программалауға деген қызығушылығын арттыру.

Теориялық бөлім:

Тексті санға айналдыру процедурасы

Procedure Val(St: String; var X; Code: Integer);

Val(St, X, Code)

St жолын (символдар тізбегін) Х санына айналдыру. Code айнымалысында айналдыру нәтижесінде алынған бірінші қате символдың позициясы көрсетіледі. Қате жоқ болса онда ол 0-ді қабылдайды. Х хабарлануына байланысты бүтін немесе нақты сан болуы мүмкін.
Тексті санға айналдыру функциялары

Function StrToFloat(St:String): Extended	St жолын (символдар тізбегін) нақты санға айналдыру.
Function StrToInt(St:String): Integer;	St жолын (символдар тізбегін) бүтін санға айналдыру.

Санды текстке айналдыру функциялары

Function FloatToStr(Х: Extended): String;	Х нақты санын жолға (символдар тізбегін) айналдыру.
Function IntToStr(Х: Integer) : String;	Х бүтін санын жолға (символдар тізбегін) айналдыру.

	Қасиеттері
компонент	Name	Caption	text	color
Button	Button1	1
Button	Button2	2
Button	Button3	3
Button	Button4	4		clGradientActiveCaption
Button	Button5	2
Button	Button6	3
Button	Button7	7
Button	Button8	8
Button	Button9	9
Button	Button10	0
Button	Button11	,
Button	Button12	/
Button	Button13	*
Button	Button14	-
Button	Button15	+
Button	Button16	=
Button	Button17	C
Button	Button21	CE
Button	Button20	Backspace
Button	Button18	SQR
Edit	I

var

Form3: TForm3;

a,b : string;

k:char;

procedure TForm3.Button1Click(Sender: TObject);

begin

a:=a+'1';

i.Text:=a;

end;
procedure TForm3.Button2Click(Sender: TObject);

begin

a:=a+'2';

i.Text:=a;

end;
procedure TForm3.Button9Click(Sender: TObject);

begin

a:=a+'9';

i.Text:=a;

end;
procedure TForm3.Button10Click(Sender: TObject);

begin

a:=a+'0';

i.Text:=a;

end;
procedure TForm3.Button11Click(Sender: TObject);

begin

a:=a+'.';

i.Text:=a;

end;
procedure TForm3.FormCreate(Sender: TObject);

begin

a:='';

b:='';

end;

procedure TForm3.Button15Click(Sender: TObject);

begin

b:=i.Text;

a:='';

k:='+';

end;
procedure TForm3.Button16Click(Sender: TObject);

var s,x,y: real;

r:integer;

begin

val(a,y,r);

val(b,x,r);

case k of

'+': s:= x+y;

'-': s:= x-y;

'*': s:= x*y;

'/': s:= x/y;

end;

i.Text:=floattostr(s);

end;
procedure TForm3.Button17Click(Sender: TObject);

begin

a:='';

b:='';

i.Text:='';

end;
procedure TForm3.Button18Click(Sender: TObject);

var s,x: real;

begin

x:=strtofloat(i.text);

s:=sqrt(x);

i.Text:=floattostr(s);

end;
procedure TForm3.Button19Click(Sender: TObject);

var s,x: real;

begin

x:=strtofloat(i.text);

s:=sqr(x);

i.Text:=floattostr(s);

end;
procedure TForm3.Button20Click(Sender: TObject);

var

x1:string;

begin

x1:=i.text;

delete(x1,length(x1),1);

i.Text:=x1;

end;
procedure TForm3.Button21Click(Sender: TObject);

begin

i.Text:='';

a:='';

end;
end.

Тапсырма
Жасалған калькулятор программасын жетілдір.

а) Дәрежеге шығару функцияларын;

б) Процентті анықтау, т.б

Сабақ тақырыбы: TcheckBox (тәуелсіз) және TradioButton (тәуелді)

ауыстырып-қосқышты қолдану.
Сабақ түрі: практикалық.
Теориялық бөлім:
Ауыстыр қосқыштар қолданушы шешімін білу үшін қажет болады.

TcheckBox ауыстырып-қосқышының 3 күйі бар:

cbUnchecked - босатылған; cbChecked - орнатылған; cbGrayed – екеуінің ортасы.(сұр түсте). Пішінде бір немесе бірнеше TcheckBox болуы мүмкін. TcheckBox –тың ерекшелігі олар бір-бірін жоққа шығармайды. Сондықтан оларды тәуелсіз ауыстырып-қосқыш деп атайды. Ал TradioButton біреуі таңдалған жағдайда қалғандары автоматты түрде босатылады, сондықтан оны тәуелді ауыстыр қосқыш деп атайды. Әдетте олар жақтауға алынады.

TcheckBox элементінің қолдануына мысал:

if CheckBoxl.Checked then команда 1 else команда 2

Немесе

case CheckBoxl.State of

cbChecked : команда 1

cbUnchecked: команда 2;

cbGrayed : команда 3;

end;
CheckBoxl Қасиеттері:

type TLeftRight = (taLeftJustify, taRightJustify) ; property Alignment: TLeftRight;	Тектің туралануы: taLeftJustify – солға, taRightJustify - оңға
property AllowGrayed: Boolean;	cbGrayed қасиетін қолдануға рұхста береді, бермейді.
ptoperty Caption: Strings	Элементте жазылатын текст
property Checked: Boolean;	Қолданушының таңдауын көрсетеді: true : cbChecked False: cbUnchecked және cbGrayed
property State (cbUnchecked, cbChecked, cbGrayed)	Компонент жағдайын көрсетеді: cbUnchecked -босатылған; cbChecked -орнатылған; cbGrayed – екеуінің ортасы

TradioButton –ауыстырып қосқышының негізгі қасиеті Сhecked. Ол екі жағдайда болуы мүмкін: True – орнатылған, False - босатылған.

Font қасиеттері:

edit1.Font.Style:=[]; - обычный

edit1.Font.Style:=[fsitalic]; - курсив

edit1.Font.Style:=[fsbold]; - жирный

edit1.Font.Style:=[fsitalic, fsbold]; - полужирный
edit1.Font.Size:=8; - размер

edit1.Font.Size:=10;

edit1.Font.Size:=12;

edit1.Font.Size:=14;

edit1.Font.Color:=clBlack; - цвет

edit1.Font.Color:=clGreen;

edit1.Font.Color:=clRed;

edit1.Font.Color:=clBlue;

edit1.Font.Style+[fsUnderLine] - почеркнутый

edit1.Font.Style:=edit1.Font.Style-[fsUnderLine]

edit1.Font.Style:=edit1.Font.Style+[fsStrikeOut] - зачеркнутый

edit1.Font.Style:=edit1.Font.Style-[fsStrikeOut]

Практикалық жұмыс

1 тапсырма

2 тапсырма

жүктеу/скачать 0,65 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7