Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.05.2010, 20:15   #1
Programmer20101
Пользователь
 
Регистрация: 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 в 20:20.
Programmer20101 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста с задачей на с++!!!!! Очень буду благодарен!!! sder33333 Помощь студентам 5 29.03.2009 17:50
2 задачи по файлам. Буду очень благодарен! RomT24 Помощь студентам 2 11.03.2009 11:40