|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.05.2010, 21:15 | #1 |
Пользователь
Регистрация: 12.05.2010
Сообщений: 10
|
Нада описать код програми, кто может помочь очень буду благодарен!!!
Прошу вас написать обьяснения (коментарии) к коду:
var x,y,numb,cyf,m:real; oper,f:integer; procedure TForm1.Butt_0Click(Sender: TObject); begin if f = 0 then begin Edit1.Text := '0'; f := 1; end else if Edit1.Text <> '0' then Edit1.Text := Edit1.Text + '0'; end; procedure TForm1.Butt_komaClick(Sender: TObject); begin if (Edit1.Text = '0') then begin Edit1.Text := '0,'; f := 1; end; if Pos(',',Edit1.Text) = 0 then Edit1.Text := Edit1.Text + ','; end; procedure DoOper; begin numb := StrToFloat(Form1.Edit1.Text); case oper of 0: cyf:=numb; 1: cyf:=cyf + numb; 2: cyf:=cyf - numb; 3: cyf:=cyf *numb; 4: cyf:=cyf / numb; end; Form1.Edit1.Text := FloatToStr(cyf); end; procedure TForm1.Butt_MinusClick(Sender: TObject); begin if (f = 0) then oper := 2 else begin DoOper; oper :=2; f:=0; end; end; procedure TForm1.Butt_dorivClick(Sender: TObject); begin if f = 0 then oper := 0 else begin DoOper; oper :=0; f:=0; end; end; procedure TForm1.Butt_cClick(Sender: TObject); begin Edit1.Text := '0'; cyf := 0; oper := 0; f := 0; end; procedure TForm1.Edit1Change(Sender: TObject; var Key:Char); begin Key := Chr(0); end; procedure TForm1.FormCreate(Sender: TObject); begin oper := 0; end; procedure TForm1.Butt_mnojClick(Sender: TObject); begin if (f = 0) then oper := 3 else begin DoOper; oper :=3; f:=0; end; end; procedure TForm1.Butt_divClick(Sender: TObject); begin if (f = 0) then oper := 4 else begin DoOper; oper :=4; f:=0; end; end; procedure TForm1.gfhg1Click(Sender: TObject); begin Edit1.Text := '0'; cyf := 0; oper := 0; f := 0; end; procedure TForm1.N1Click(Sender: TObject); begin Form1.Close; end; procedure TForm1.Butt_sqrt_korinClick(Sender: TObject); begin x:=StrToFloat(form1.Edit1.Text); if (x<0) then begin messagedlg('Квадратного кореня з від*ємного числа неіснує!',mtError,[mbOk],0); exit; end; y:=sqrt(x); Form1.Edit1.Text:=FloatToStr(y); end; procedure TForm1.Butt_1_na_xClick(Sender: TObject); begin x:=StrToFloat(form1.Edit1.Text); y:=1/x; Form1.Edit1.Text:=FloatToStr(y); end; procedure TForm1.Butt_plus_minusClick(Sender: TObject); begin edit1.Text:=floattostr(-strtofloat(edit1.Text)); end; procedure TForm1.N_clearClick(Sender: TObject); begin Edit1.Text:= '0'; cyf:= 0; oper:= 0; f:= 0; end; procedure TForm1.N_closeClick(Sender: TObject); begin form1.Close; end; procedure TForm1.Butt_backClick(Sender: TObject); var back:string; begin back:=edit1.Text; delete(back,length(back),1); edit1.Text:=back; if edit1.Text='' then begin edit1.Text:='0'; end; end; procedure TForm1.Butt_exitClick(Sender: TObject); begin Form1.Close; end; procedure TForm1.Butt_MCClick(Sender: TObject); begin m:=0; panel1.Caption:=''; end; procedure TForm1.Butt_MRClick(Sender: TObject); begin edit1.Text:=floattostr(M); end; procedure TForm1.Butt_MSClick(Sender: TObject); begin M:=strtofloat(edit1.Text); panel1.Caption:='M'; end; procedure TForm1.Butt_M_plusClick(Sender: TObject); begin panel1.Caption:='M'; M:=M+strtofloat(edit1.Text); end; procedure TForm1.Butt_stepClick(Sender: TObject); begin x:=StrToFloat(form1.Edit1.Text); y:=sqr(x); Form1.Edit1.Text:=FloatToStr(y); end; procedure TForm1.Butt_sinClick(Sender: TObject); begin x:=StrToFloat(form1.Edit1.Text); y:=sin(x); Form1.Edit1.Text:=FloatToStr(y); end; procedure TForm1.Butt_lnClick(Sender: TObject); begin x:=StrToFloat(form1.Edit1.Text); if (x<1) then begin messagedlg('Логарифм від*ємого числа неіснує!',mtError,[mbOk],0); exit; end; y:=ln(x); Form1.Edit1.Text:=FloatToStr(y); end; procedure TForm1.Butt_xClick(Sender: TObject); begin x:=StrToFloat(form1.Edit1.Text); y:=exp(x); Form1.Edit1.Text:=FloatToStr(y); end; procedure TForm1.N_view_ingClick(Sender: TObject); begin Form1.Edit1.Width:=327; Form1.Width:=363; end; procedure TForm1.N_view_standartClick(Sender: TObject); begin Form1.Edit1.Width:=249; Form1.Width:=280; end; procedure TForm1.Butt_piClick(Sender: TObject); begin if f = 0 then begin Edit1.Text :=floattostr(pi); f := 1; end else if Edit1.Text <> '1' then Edit1.Text := Edit1.Text + ''; end; end. Помогите очень нада расписать что б было понятно и по научному, бо я как раскажу так сразу 2 будет за курсовую!!! Буду благодарен!!! Последний раз редактировалось Programmer20101; 12.05.2010 в 21:20. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста с задачей на с++!!!!! Очень буду благодарен!!! | sder33333 | Помощь студентам | 5 | 29.03.2009 18:50 |
2 задачи по файлам. Буду очень благодарен! | RomT24 | Помощь студентам | 2 | 11.03.2009 11:40 |