用delphi科学计算器设计 部分源代码s_result：='0'；result：=0；point_flag：=false；operation_symbol：=0；input_2：=false；display_refresh()；end；procedure TForm1.Button15Click(Sender：TObject)；beginoperation_over：=true；source_1：=strtofloat(s_source_1)；if input_2 thenbeginsource_2：=strtofloat(s_source_2)；endelsebeginsource_2：=source_1；s_source_2：=floattostr(source_2)；end；case operation_symbol of0：beginresult：=source_1；display_refresh()；exit；end；1：beginresult：=source_1+source_2；display_refresh()；end；2：beginresult：=source_1-source_2；display_refresh()；end；3：beginresult：=source_1*source_2；display_refresh()；end；4：beginif source_2=0 thenbeginmessagebox(form1.Handle，'0 不能做除数'，'错误。'，0)；exit；end；result：=source_1/source_2；display_refresh()；end；end；input_2：=false；source_1：=result；s_source_1：=floattostr(result)；s_source_2：='0'；point_flag：=false；end；procedure TForm1.Button19Click(Sender：TObject)；beginif result>；=0 thenbeginoperation_over：=true；result：=sqrt(result)；display_refresh()；if input_2=true then。
电脑自带计算器：[1]功能全攻略，一般人都认为，电脑自带计算器只适用于简单地计算。其实，这种想法是非常错误的，时至今天，电脑自带计算器不仅功能已是相当完善，不仅能。
用VB编写“大家电脑程序附件中的‘标准型’计算器” 这应该挺复杂的，如果一般的加减乘除，就简单了.电脑程序附件中的计算器 这个切换到科学型的话.那个弧度怎么算我都忘了，梯度是什么概念我都不知道.
