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,总是喜欢忘记';' |   
 
 
 
 |