Pascal小程序,求化简

409关注696浏览

如图,程序很简单,输出一个数字菱形,是不是有些烦?有没有简单些的做法?另外,MC里红石与门有图吗?有发一下,参考参考刚才图错了,是这个...

展开全部
收起
2回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Zavier

    10人对此回答表示赞同

    发上来程序代码,就便于查看调试啊
    var i,j,n:integer;
    begin
    write('N='); readln(n);
    for i:=1 to n do
    begin
    write('':n-i);
    for j:=1 to 2*i-1 do
    write('*');
    writeln;
    end;
    展开
    10
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 行云流水

    1人对此回答表示赞同

    var
    i,j,k,n:integer;
    a:array[1..100] of string;
    s:string[1];
    begin
    readln(n);
    for i:=1 to 100 do a[i]:='';
    for i:=1 to n do begin
    for j:=1 to 2*(n-i) do a[i]:=a[i]+' ';
    for j:=1 to i
    展开
    1
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部