обьяснения (коментарии) к коду:

[Programmer20101]

Прошу вас написать обьяснения (коментарии) к коду:

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 будет за курсовую!!!
Буду благодарен!!!

[Kotofff]

Нарушение Правил этой ветки форума, точнее пункта №1 !
Не загрязняйте Форум ! Читайте Правила !

[Stilet]

Тут целый букет нарушений, ну да ладно я поправил.

Programmer20101

Не многовато ли кода для пояснения?
Может тебя конкретная строка интересует?

[Programmer20101]

хотябы некоторые для примера, а остальное сам как то

[Stilet]

Допустим. какие из них?

[Programmer20101]

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.FormCreate(Sender: TObject);[/B]
begin
oper := 0;
end;

procedure TForm1.Edit1Change(Sender: TObject; var Key:Char);
begin
Key := Chr(0);
end;

procedure TForm1.Butt_MinusClick(Sender: TObject);
begin
if (f = 0)
then oper := 2
else begin
DoOper;
oper :=2;
f:=0;
end;
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_1Click(Sender: TObject);
begin
if f = 0
then begin
Edit1.Text := '1';
f := 1;
end
else Edit1.Text := Edit1.Text + '1';
end;

Пожалуйста обьясните хотябы некоторые, а дальше буду делать по аналогии!!!
Буду очень благодарен!!!

[Utkin]

Нажатие на кнопку Butt_MCClick приводит к очистке надписи на панели.
Нажатие на кнопку Butt_MRClick приводит к появлению в TEdit числа из M
Butt_MSClick число из TEdit (строка ввода) заносится в М и в надпись панели.
FormCreate в момент создания формы oper=0

Короче ты где-то содрал калькулятор и пытаешься его объяснить .
Вообще, тут еще пара таких ошивается (в смысле те, кто калькуляторы починяет), вы там случаем не с одного муравейника будете?

[Programmer20101]

Сообщение от Utkin

Нажатие на кнопку Butt_MCClick приводит к очистке надписи на панели.
Нажатие на кнопку Butt_MRClick приводит к появлению в TEdit числа из M
Butt_MSClick число из TEdit (строка ввода) заносится в М и в надпись панели.
FormCreate в момент создания формы oper=0

Короче ты где-то содрал калькулятор и пытаешься его объяснить .
Вообще, тут еще пара таких ошивается (в смысле те, кто калькуляторы починяет), вы там случаем не с одного муравейника будете?

Во первых: Маньяк-ты наш большой Самоучка, слишком умный?
жизнь студента и не до такого приведет

[Utkin]

Сообщение от Programmer20101

Во первых: Маньяк-ты наш большой Самоучка, слишком умный?

Ну, череп пока не жмет.

[Programmer20101]

Сообщение от Utkin

Ну, череп пока не жмет.

сам наверно обьяснения знаеш как я, непорть нервы и так за учебы порченые
Нефиг было тогда отвечать, если теперь будеш расказывать кто да че, без тебя найдутся добрые люди