unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, stdctrls;
type
tform1 = class(tform)
label1: tlabel;
label2: tlabel;
button1: tbutton;
edit1: tedit;
button2: tbutton;
procedure button1click(sender: tobject);
procedure button2click(sender: tobject);
private
public
end;
varform1: tform1;
const pi=3.14159;
implementation
procedure tform1.button1click(sender: tobject);
var r,c,s:real;
begin
if edit1.text='' then
showmessage('輸入為空，請重新輸入！') //如果沒有輸入資料 則提示
else
begin
r:=strtofloat(edit1.text);
c:=2*pi*r;
s:=pi*sqr(r);
label2.caption:='該圓的周長是：'+floattostr(c)+chr(13)+'面積是：'+floattostr(s); //顯示結果
end;
end;
procedure tform1.button2click(sender: tobject);
begin
form1.close; //退出按鈕的事件**
end;
end.
工作的第二個週末
此時刻，我正坐在圖書館聽聽 逛逛 寫寫東西。聽著很愜意的事情總感覺有點宅！剛看到一篇文章 程式設計師可以再週末做的8件事 我覺得其中幾條不適合剛工作的我，比如 陪陪朋友家人。我現在一門心思想著提高自己的技能，可在公司的這兩個周實在是無聊！這個週一門心思在安裝公司系統所需的環境 websphere r...
程式猿的第二個坎如何度過
本人幾年就是一個工作快5年的程式猿，在這個即將到來的五年的尾聲，我被選擇了開啟新的找工作的旅程。本以為工作了五年，招個滿意的工作問題不大，可是你永遠不知道運氣和能力哪個先來。有的人，還買怎麼找就知道了比較滿意的工作了，而我努力回想曾經的技術和基礎知識的死記硬背。結果還是以失敗而告終啊，也許這是為了讓...
json encode 的第二個引數詳解
下列常量由此擴充套件定義，且僅在此擴充套件編譯入 php 或在執行時動態載入時可用。以下常量表示了 json last error 所返回的錯誤型別。json error none integer 沒有錯誤發生。自 php 5.3.0 起生效。json error depth integer 到達了...
kmalloc第二個引數的意義
最近在進行linux核心程式設計的時候使用到了kmalloc用於申請記憶體，kmalloc與mlloc相似，用於獲取一段連續的記憶體空間，其不會對獲取到的記憶體空間清零。kmlloc的原型是void kmalloc size t size,int flags 第一個引數size表示要分配的記憶體大小...
在IBM的第二個星期
從9號到今天，正好工作兩個星期了，這兩個星期裡我在工作日每天都能夠堅持在6點前起床，基本上每天都是第一個到辦公室 這兩個星期我過得很開心，很充實，也很順利，每天從早到晚都不累。第一個星期對abap學習有了個總體的把握。第二個星期繼續學習，而且順利完成manager交給我的第一個任務。對我影響很大的兩...