Калькулятор!

[HAMMAN]

Народ мне осталось написать код для %,tg,ctg
подскажите мне их...

{$R *.dfm}

procedure TForm1.Button7Click(Sender: TObject);
begin
 close;
end;


procedure TForm1.Button12Click(Sender: TObject);
begin
 if flag1 then begin
 edit1.Text:=button12.Caption;
 flag1:=false
 end
   else
   begin
   edit1.Text:=edit1.Text+button12.Caption;
   end;
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
 if flag1 then begin
 edit1.Text:=button13.Caption;
 flag1:=false
 end
   else
   begin
   edit1.Text:=edit1.Text+button13.Caption;
   end;
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
 if flag1 then begin
 edit1.Text:=button14.Caption;
 flag1:=false
 end
   else
   begin
   edit1.Text:=edit1.Text+button14.Caption;
   end;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
 if flag1 then begin
 edit1.Text:=button15.Caption;
 flag1:=false
 end
   else
   begin
   edit1.Text:=edit1.Text+button15.Caption;
   end;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
 if flag1 then begin
 edit1.Text:=button16.Caption;
 flag1:=false
 end
   else
   begin
   edit1.Text:=edit1.Text+button16.Caption;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 operand:='+';
 flag3:=true;
  if flag2 then begin
  op1:=strtofloat(edit1.Text);
  flag2:=false;
  end
   else begin
   if not flag1 then op1:=op1+strtofloat(edit1.Text);
   edit1.Text:=floattostr(op1);
   end;
   flag1:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
operand:='/';
if flag2 then begin
op1:=strtofloat(edit1.Text);
flag2:=false;
flag3:=true;

end
else begin
if not flag1 then op1:=op1/strtofloat(edit1.Text);
edit1.Text:=floattostr(op1);
end;
flag1:=true;
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
  if Edit1.Text = '0' then
    begin
      Edit1.Text := '0,';
      op1 := 1;
    end;
  if Pos(',',Edit1.Text) = 0 then
      Edit1.Text := Edit1.Text + ',';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
case operand of
'/' : if strtofloat(edit1.Text)<>0 then op1:=op1/strtofloat(edit1.Text);
'*' : op1:=op1*strtofloat(edit1.Text);
'+' : op1:=op1+strtofloat(edit1.Text);
'-' : op1:=op1-strtofloat(edit1.Text);
end;
if strtofloat (edit1.Text)<>0 then
edit1.Text:=floattostr(op1)
else edit1.Text:='error!';
flag2:=true;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
operand:='*';
if flag2 then begin
op1:=strtofloat(edit1.Text);
flag2:=false;
flag3:=true;

end
else begin
if not flag1 then op1:=op1*strtofloat(edit1.Text);
edit1.Text:=floattostr(op1);
end;
flag1:=true;
end;

procedure TForm1.Button18Click(Sender: TObject);
var s:string;
begin
 s:=edit1.Text;
 if s[1]<>'-' then insert('-',s,0) else
 delete(s,1,1);
 edit1.Text:=s;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
operand:='-';
 flag3:=true;
  if flag2 then begin
  op1:=strtofloat(edit1.Text);
  flag2:=false;
  end
   else begin
   if not flag1 then op1:=op1+strtofloat(edit1.Text);
   edit1.Text:=floattostr(op1);
   end;
   flag1:=true;
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
 if flag1 then begin
 edit1.Text:=button17.Caption;
 flag1:=false
 end
   else
   begin
   edit1.Text:=edit1.Text+button17.Caption;
   end;
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
if strtofloat(edit1.Text)>=0 then begin
op1:=sqrt(strtofloat(edit1.Text));
edit1.Text:=floattostr(op1);
end
else
begin
flag1:=true;
flag2:=true;
flag3:=true;
edit1.Text:='ошибка !';
end;
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
if strtofloat(edit1.Text) <>0 then begin
op1:=sin(strtofloat(edit1.Text)*180/pi);
edit1.Text:=floattostr(op1);
flag1:=true;
flag2:=true;
flag3:=true;
end;
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
if strtofloat(edit1.Text) <>0 then begin
op1:=cos(strtofloat(edit1.Text)*180/pi);
edit1.Text:=floattostr(op1);
end
else
begin
flag1:=true;
flag2:=true;
flag3:=true;
edit1.Text:='1';
end;
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
if strtofloat(edit1.Text) <>0 then begin
op1:=Sqr(strtofloat(edit1.Text));
edit1.Text:=floattostr(op1);
flag1:=true;
flag2:=true;
flag3:=true;
end;
end;

procedure TForm1.Button27Click(Sender: TObject);
var
 z:Integer;
begin
  op1:=StrToFloat(Edit1.Text);
  op1:=1/op1;
  Edit1.Text:=FloatToStr(op1);
end;

end.

Заренее благодарен!.

[AVer]

А там так и будет:

Tan(X);

Только ответ получишь в радианах. Чтобы перевести в градусы умнож результат на 180/pi.

[mihali4]

А вот с процентами придется повозиться!
Там аж целых два действия - сначала поделить одно число на другое, а уже только потом аккуратно помножить на 100...
Точно не помню, но вроде в третьем классе проходят. А вам еще не давали?

Что бы узнать процент от числа, необходимо число разделить на сто (узнаем чему равен 1%) и умножить на количество процентов

Так, наверное, новые русские считают.
Пример: сколько процентов от двух составляет единица?
1/2=0.5
0.5*100=50%

[Speeker]

Что бы узнать процент от числа, необходимо число разделить на сто (узнаем чему равен 1%) и умножить на количество процентов

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

А там так и будет:

Tan(X);

Да нет, функции Тan в Делфи и паскале нету, надо использовать
Sin(x)/Cos(x) - Tg(x) и Cos(x)/Sin(x) - Ctg(x)
А дальше все как ты сказал про радианы

[zetrix]

Да нет, функции Тan в Делфи и паскале нету, надо использовать
Sin(x)/Cos(x) - Tg(x) и Cos(x)/Sin(x) - Ctg(x)

Как это нету? Всё там есть:
tan - тангенс;
cotan - котангенс;
DegtoRad - градусы в радианы;
RadToDeg - радианы в градусы;

У меня в книжке целая страница тригонометрических функций в делфе.

P.S.: модуль Math в uses не забываем подключать.

[Sllikmll]

Выложити исходники калькулятора.. Очень нужны...

[Alar]

http://www.programmersclub.ru/labmatem

Калькулятор

Если вы только-только начали изучать Delphi, попробуйте сначала сделать в Delphi калькулятор, стандартный калькулятор или с тремя edit для ввода первого числа, вторую для ввода второго числа, а третью для вывода ответа. У вас обязательно получится эта программа, и вы поверите в свои силы программиста.
А позже своё приложениеможете сравнить с этим калькулятором.
Скачать (30 кб)

[HAMMAN]

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

http://www.programmersclub.ru/labmatem

Калькулятор

Если вы только-только начали изучать Delphi, попробуйте сначала сделать в Delphi калькулятор, стандартный калькулятор или с тремя edit для ввода первого числа, вторую для ввода второго числа, а третью для вывода ответа. У вас обязательно получится эта программа, и вы поверите в свои силы программиста.
А позже своё приложениеможете сравнить с этим калькулятором.
Скачать (30 кб)

Проблема в том что преподу нужен более лучший вариант с одним полем ввода!.

[Alar]

Проблема в том что преподу нужен более лучший вариант с одним полем ввода!.

А вы видели эту программу?

[HAMMAN]

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

А вы видели эту программу?

Видел и к тому же я почти ее закончил...
Еще оин вопрос как можно сделать,чтобы буквы не вводились в поле ввода цифр...то есть вообще никак не риагировала на буквы - только на цифры...и как можно свой калькулятор прявязать к NUMLOCKU?