最起码的可以摆好代码风格
// 这句话您是站在pascal的角度来看待c语言的代码风格的，据我了解， Pascal的代码风格跟 Visual Basic风格很像，我想正因为此，您才比较欣赏 pascal的代码风格吧。
c 语言有自己的一套代码风格，而且相当一部分著作介绍c语言的代码风格，比如说， 林锐的 《c/c++高质量编程》。
还有一些不成文的著作，像 <华为代码编程规范> 之类的， 总之， c语言的代码风格很完善， 不需要 Pascal语言来辅助，也不需要任何一门语言来辅助。

[ 本帖最后由 BlueGuy 于 2010-9-12 22:16 编辑 ]

呵呵。。。你没学过pascal吧。。。
vb与pascal差得远。。。

恩， 没学过，不过我见过。

program  examp2(input,output);
var
   heads,feet,chick,rabbit:integer;
begin
   write(‘Input heads,feet:’);
   readln(heads,feet);
   chick:=(4*heads-feet) div 2;
   rabbit:=heads-chick;
   writeln(‘The number of chick is:’,chick);
   writeln(‘The number of rabbit is:’,rabbit);
end.

program chrstree(input,output);
var
   i:integer;
   procedure triangle(n:integer);
   var
      i,j:integer;
   begin
      for i:=1 to n do
      begin
         write(' ':40-i);
         for j:=1 to 2*i-1 do
            write('*');
         writeln;
      end;
   end;
begin
   for i:=2 to 4 do
      triangle(i);
   for i:=1 to 3 do
      triangle(1);
end.

program letters(input,output);
type
   lset=set of ‘A’..’Z’;
var
   ls,vs,cons,cs:lset;
   c:char;
   vn:integer;
begin
   cons:=[];
   vs:=[‘A’,’E’,’I’,’O’,’U’]; {元音字母集合}
   ls:=[‘A’..’Z’];   {字母全集}
   cs:=ls-vs;   {辅音字母集合}
   vn:=0;
   readln(c);
   while c<>‘.’ do
   begin
      if (c>=‘a’) and (c<=‘z’) then
         c:=chr(ord(c)-ord(‘a’)+ord(‘A’));
      if  c in vs then vn:=vn+1
         else if c in cs then cons:=cons+[c];
      read(c);
   end;
   writeln;
   writeln(vn:10);
   for c:=‘A’ to ‘Z’ do
      if c in cons then write(c:2);
   writeln;
end.

呵呵。。。那我则不与你讨论这个问题了。。。

program  writetext(input,output);
var
   f:text:
   ch:char;
begin
   assign(f,’text1.txt’);
   rewrite(f);
   writeln(‘Enter a text:’);
   while not eof() do             { eof()不带参数，则返回键盘输入是否结束(Ctrl+Z)}
   begin
      whilte not eoln do          { eoln函数返回本行输入是否结束 }
      begin
         read(ch);write(f,ch);
      end;
      readln;writeln(f);
   end;
   close(f);   reset(f);
   writeln;writeln(‘The text is:’);
   while not eof(f) do
   begin
      while not eoln(f) do
      begin
         read(f,ch); write(ch);
      end;
      readln(f); writeln;
   end;
   close(f);
end.

您应该阐述一下 "最起码的可以摆好代码风格" 的原因。
您是不是不习惯带有大括号的语言风格？


[ 本帖最后由 BlueGuy 于 2010-9-12 22:28 编辑 ]

想知道就自己体会去。。。

呵呵， pascal 这种烂的代码风格也让我体会去，
我可不想学会这种风格，然后 把自己的快乐建立在别人的痛苦之上。