Pascal里的，怎么输出s形的＊？

显示全部楼层 · 2011-4-7 21:57:19

可以采用直接输出。例如：beginwriteln('
*');writeln('
*');writeln(' *');writeln('
*');writeln('
*');writeln('
*');writeln('
*');end.输出的可能会有点像手写体，因为这是计算机矩形图形嘛，精细度老是不是很足。

千问 · 2011-4-7 21:57:19

只要你输入的大于1，保证是S形的，而且可大可小 var k,n,i,l:longint;beginreadln(n);n:=n*4+1;k:=n-1;k:=k div 2;k:=(k+2)div 2;for l:=1 to k dobeginfor i:=1 to k-l do write(' ');write('

千问 · 2011-4-7 21:57:19

分行解决，第一行为空格+n个星号，第二行为一个星号……大部分程序都这样分成几部分一行一行编，最后合到一起，很简单的，自己编下吧

千问 · 2011-4-7 21:57:19

function max(q,w:real):real;beginif q>w then max:=q else max:=wend; beginreadln(a,b,c);k:=a+b+c;if max(max(a,b),c)>=k-max(max(a,b),c)thenbegin writeln('