Автор работы: Пользователь скрыл имя, 26 Мая 2013 в 23:17, курсовая работа
Среда визуального программирования Дельфи (Delphi), производства фирмы Borland, в настоящее время держит первое место по популярности, как для профессиональных разработчиков сложных программных комплексов, так и для начинающих программистов, только осваивающих азы программирования. Этой популярности она обязана своим широким возможностям в сочетании с простотой и доступностью в изучении.
begin
z:=StrToFloat(Edit1.Text);
Edit1.Text:=FloatToStr(cos(z))
end;
procedure TForm1.BitBtn21Click(Sender: TObject);
begin
z:=StrToFloat(Edit1.Text);
x:=z;
Edit1.Text:='';
kod:='^';
end;
procedure TForm1.BitBtn22Click(Sender: TObject);
begin
if edit1.Text<>'' then y:=strtofloat(edit1.text);
case kod of
'+': z:=x+y;
'-': z:=x-y;
'*': z:=x*y;
'/': z:=x/y;
'^': z:=exp(y*ln(x));
end ;
edit1.Text:=floattostr(z) ;
end;
procedure TForm1.BitBtn23Click(Sender: TObject);
begin
edit1.Text:=floattostr(-(
end;
procedure TForm1.BitBtn24Click(Sender: TObject);
begin
Memory := StrToFloat(Edit1.Text);
end;
procedure TForm1.BitBtn26Click(Sender: TObject);
begin
Edit1.Text := FloatToStr(Memory);
end;
procedure TForm1.BitBtn25Click(Sender: TObject);
begin
Memory := Memory + StrToFloat(Edit1.Text);
end;
procedure TForm1.BitBtn27Click(Sender: TObject);
begin
Memory := 0;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
close;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Edit1.CopyToClipboard;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Edit1.PasteFromClipboard;
end;
end.
Рис.1