TA的每日心情 | 慵懒 2018-2-11 09:23 |
---|
签到天数: 8 天 [LV.3]偶尔看看II
|
一直跟自己说要学DELPHI,结果一晃又大半年下去了,还是没学到什么实在的,都是一些半吊子的东西,早段时间在二手市场淘了本delphi7的书回来,今天开始好好地系统学习。
好了,下面开始分享我的学习过程,愿意和我一起学习的过来吧,QQ交流群:3741125
正式开始
第一个例题:
1-1 编写一个控制台程序,根据用户输入的圆的半径值计算圆的直径,周长和面积,并输出计算结果
代码:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
R:Real;
D,C,S:Real ;
begin
Write('请输入一个园的半径:');//输入提示
Readln(r); //读入半径
D:=2*r; //计算直径
C:=Pi*d; //周长
S:=Pi*Sqr(r); //面积
//输出计算结果
Writeln ('该圆的直径是:',D:13:2 );
Writeln ('该圆的周长是:',C:13:2 );
Writeln ('该圆的面积是:',S:13:2 );
writeln;
end.
总结:我用习惯了VB,总是喜欢忘记';' |
|