信息学奥林匹克竞赛-打印图形
2015-10-14 12:39
411 查看
var
i,j:longint;
begin
for i:=1 to 10 do
begin
write('':20-2*i);
for j:=1 to 10 do write('@');
writeln;
end;
readln;
end.
var
i,j:longint;
begin
for i:=1 to 9 do
begin
write('':20-2*i);
for j:=1 to 2*i-1 do write('*':2);
writeln;
end;
readln;
end.
var
i,j:longint;
begin
for i:=1 to 9 do
begin
write('':20-2*i);
for j:=1 to 2*i-1 do write(i:2);
writeln;
end;
readln;
end.
var
i,j:longint;
begin
for i:=1 to 9 do
begin
write('':20-2*i);
for j:=1 to i do write(j:2);
for j:=i-1 downto 1 do write(j:2);
writeln;
end;
for i:=8 downto 1 do
begin
write('':20-2*i);
for j:=1 to i do write(j:2);
for j:=i-1 downto 1 do write(j:2);
writeln;
end;
readln;
end.
相关文章推荐
- POJ2976 Dropping tests 最大化平均值(二分)
- sass与compass简单教程
- Android_02_表格布局
- ActiveAdmin 自定义表单
- iOS开发-正则表达式的使用方法
- jQuery MiniUI开发系列之:创建组件对象
- hashmap和treemap、hashset和treeset、linkedhashmap
- gdb faq: how to set/cancel a break
- MFC控件完全重绘从CWnd开始
- function作为parameter来使用
- Nginx - rewrite 不区分大小写进行匹配
- linux学习笔记------虚拟机无法上网的解决办法
- 哪瓶水有毒
- Remove Duplicates from Sorted Array
- apk存在签名冲突
- zk master-slaver机制
- Linux硬件信息查询命令汇总
- java.util.ConcurrentModificationException的异常的出现与解决
- 【leetcode】75. Sort Colors
- Java Mail:Session、Message详解