PASCAL程序设计问题(不难,会的朋友都来试试)

[复制链接]
查看11 | 回复2 | 2005-11-18 20:26:41 | 显示全部楼层 |阅读模式
& & & & & & & & & & & & & & & * * * * * * * * * # @ * # # @ @ * * # # # @ @ @ * * *
回复

使用道具 举报

千问 | 2005-11-18 20:26:41 | 显示全部楼层
vari,j,n:integer;beginreadln(n);for i:=1 to n do begin
for j:=1 to i do write('&'); writeln; end;for i:=1 to n do begin
for j:=1 to n do write('&'); writeln; end;for i:=1 to n do begin
for j:=1 to ((i-1)*2+1) do write('*'); writeln; end;for i:=1 to n do begin
for j:=1 to i do write('#');
for j:=1 to i do write('@');
for j:=1 to i do write('*');
writeln; end;end.
回复

使用道具 举报

千问 | 2005-11-18 20:26:41 | 显示全部楼层
用pascal编这样的题连死的心都有了多严谨少灵活
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行