推 ddavid:我就在想Delphi不可能沒人寫啊XD 10/13 22:01
→ dendrobium:以後要在其他版問作業, 就PO來C/C++版就對了！ 10/13 22:08
→ VictorTom:為什麼是 stdio 出來寫了 Delphi 版的....XD 10/13 22:14
→ VictorTom:板主休假回來看到這一串, 應該會把我們都水桶吧....Orz 10/13 22:14
※ 引述《ddavid (謊言接線生)》之銘言：
: ※ 引述《csihcs (非天夜翔)》之銘言：
: : VBA 版
: : Dim kg As String
: : kg = InputBox("輸入體重 KG ?")
: : MsgBox (kg + " KG = " + CStr(Val(kg) / 0.454) + "磅")
: C# 版
: using System;
: namespace ConsoleApplication1
: {
: class Program
: {
: static void Main(string[] args)
: {
: Console.WriteLine((Convert.ToDouble(Console.ReadLine()) /
: 0.45359237).ToString() + " pounds");
: }
: }
: }
Delphi 版 (Pascal)
var
kg : string;
begin
kg := inputbox('輸入體重KG');
showmessage(kg + ' = ' + floattostr(strtoFloat(kg)/0.454) + ' pounds');
end;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 219.84.0.62