我的編程寫作

1，函數func 1(R:Double):Double；

開始

結果:= R * R * Pi

結束；

2 .函數Func2(R，H:Double):Double；

開始

結果:=(1/3)*(R * R * Pi * H)；

ebd

3 .過程Proc3

定義變量

I:整數；

開始

對於i:= 0到90 do

開始

Showmessage(IntToStr(i)+' (I)+'弧度的正弦值= '+float tostr(Sin(I)))；

Showmessage(IntToStr(i)+' (i)+'弧度余弦= '+float ostr(cos(I)))；

結束；

結束；

上一篇:C程序：定義壹個帶參數的宏,實現兩個數從大到小的排序。利用該宏定義編程實現輸入兩數，輸出排序後情況。

下一篇:臺達vfd-b怎麽改功率