Дістемелік кешені
Procedure TForm1.Button1Click(Sender:TObject); Var x:String; y:real
жүктеу/скачать 1,39 Mb.
|
UMKD Obektige ba 1171 yttal 1171 an programmalau 2014 KAZ (1)
- Бұл бет үшін навигация:
- Лабораториялық жұмыс №4 Тармақтық құрылым есептеріне программа құру Тапсырма а 2 х
- Решение
| Procedure TForm1.Button1Click(Sender:TObject); Var x:String; y:real;
Begin X:=Edit1.Text; Y:=3*StrToFloat(x)+5/3; Label1.Caption:=’Функция мәні=’+#13+FloatToStr(y); End; Лабораториялық жұмыс №3 Қарапайым мысалдар. Сызықтық құрылым есептеріне программа құру Тапсырма: x,y,z сандарының арифметикалық ортасын есептеңіз. Шешу: 1. Мои документы ортасында жаңа бума құрыңыз. 2.Жаңа проект құру үшін кесесіні орындаңыз: file/new/application. 3. standart палитрасынан Form1 8компонент орнатыңыз : Label1, Label2, Label3, Label4,Edit1, Edit2, Edit3,Button1 Label1, Label2, Label3, Label4– меткалары – текстік ақпаратты бейнелеу үшін арналған. Label1 –ге “Введите х” деп,ал қалғандарына да “введите y”, “ введите z ” деген мәтіндерді енгіземіз. Ал Label4 меткасында d мәнінің нәтижесін жазамыз. Edit1, Edit2, Edit3- компоненттері жолдық шамаларды енгізуге арналған. Button1- компонентін басқан кезде оқиғаларды ұйымдастыру үшін арналған. Біздің жағдайда сол батырманы басқан кезде d мәнін есептеуді ұйымдастырады. 4. Form1 инспекторе объектісінің Caption қасиетіне Form1 орнына ”Нахождение средне арифмитическое ” сөзін жазамыз.
5. Button1 батырмасын екі рет шертіп келесі програма кодын жазамыз: procedure TForm1.Button1Click(Sender: TObject); var x,y,z,d:real; 42 begin x:=strtofloat(edit1.text); y:=strtofloat(edit2.text); z:=strtofloat(edit3.text); d:=(x+y+z)/3; label4.Caption:='Результат’='+floattostr(d); end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Label4: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var
Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x,y,z,d:real; 43 begin x:=strtofloat(edit1.text); y:=strtofloat(edit2.text); z:=strtofloat(edit3.text); d:=(x+y+z)/3; label4.Caption:='Результат’='+floattostr(d); end;
6.Программаны сақтаймыз. 7. Run командасы арқылы программаны іске қосамыз. Нәтижені алу үшін келесі мәндерді береміз: х=7,y=3,z=5. Нәтижесі=5 Лабораториялық жұмыс №4 Тармақтық құрылым есептеріне программа құру Тапсырма а2х2 +а1х+а0=0 квадраттық теңдеуін есептеп шешу программасын құру (а2=0). Шешімі 1. Form 1 формасына келесі компененттерді қойдық. Ондағы барлық компоненттердіStandard Палитры Компонентов бетінен аламыз. Размещение компонентов классов TLabel, TEdit, TMemo и TButton на форме. Label 1меткасынын Captionқасиетіне төмендегі мәнді қойдық: Введите коэффициенты квадратного уравнения А2*Х^2+A1*X+A0=0 Осы текст меткада екі жолдан және тура ортасында тұруы үшін келесі қасиеттерді қондырамыз: AutoSize- False, WordWrap- True, Alignment- taCenter. 44 Енді Font қасиетіне көшіп және соның үш нүктелі кнопкасын бастық. Осы кездегі шыққан терезеге шрифтың өлшемін 8 -ді 10-ға өзгерттік. Ok-дібасамыз. Label2, Label3, және Label4 меткаларына Caption қасиетінің ‘A0=’, ‘A1=’, және ‘A2=’ мәндерінқойдық. Edit1, Edit2 және Edit3 компонентіне Text қасиетіне тең бос жол қойдық. Memo1 компонентіне Lines қасиетін таңдап алдық-та, үш нүктелі кнопканы бастық. Пайда болған терезеден String list editor удалим строку ’Memo1’ жолын өшіреміз. Ok-ді басмыз. Button1 және Button2 кнопкасына Caption қасиетіне ‘Решение’ және ‘Очистить’ қондырамыз. Решение кнопкасын тышқанның батырмасын екі рет басу арқылы белсенділігін оятамыз және 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; F12 клавиатурасын басып, формаға қайта ораламыз.Очиститькнопкасын екі рет басып белсенділігін оятамыз және OnClick қасиетіне Memo1.Clear жолынқойдық; F9 клавишасын басып шешімін аламыз. Квадраттық теңдеудің шешімін алу үшін коэффициенттерді беріп Решениекнопкасын бастық. Ал терезені тазалау үшін Очиститькнопкасын басамыз. 45 Қалыптасқан модульдің толық текстін төменде көруге болады. 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
жүктеу/скачать 1,39 Mb. Достарыңызбен бөлісу:
|