C语言娱乐项目————4、一箭双心
本文共 2105 字，大约阅读时间需要 7 分钟。
源代码：
#include#include #define I 8#define R 150int main() {int i,j,e; int a; int t1; for(i=1,a=I;i<=I/2;i++,a--){ t1=6; while(t1--)printf(" "); for(j=(int) ( I-sqrt(I*I-(a-i)*(a-i)) );j>0;j--) printf(" "); for(e=1;e<=2*sqrt(I*I-(a-i)*(a-i));e++) printf("*"); for(j=(int) ( 2*( I-sqrt(I*I-(a-i)*(a-i)) ) );j>0;j--) printf(" "); for(e=1;e<=2*sqrt(I*I-(a-i)*(a-i));e++) printf("*"); for(j=(int) ( I-sqrt(I*I-(a-i)*(a-i)) );j>0;j--) printf(" "); t1= (int) ( I-sqrt(I*I-(a-i)*(a-i)) ) ; t1= 2*t1; t1+=(int) ( 2*sqrt(I*I-(a-i)*(a-i)) ); t1=20-t1; while(t1--) printf(" "); for(j=(int) ( I-sqrt(I*I-(a-i)*(a-i)) );j>0;j--) printf(" "); for(e=1;e<=2*sqrt(I*I-(a-i)*(a-i));e++) printf("*"); for(j=(int) ( 2*( I-sqrt(I*I-(a-i)*(a-i)) ) );j>0;j--) printf(" "); for(e=1;e<=2*sqrt(I*I-(a-i)*(a-i));e++) printf("*"); for(j=(int) ( I-sqrt(I*I-(a-i)*(a-i)) );j>0;j--) printf(" "); printf("\n"); } for(i=1;i<=R/2;i++){ if(i%2||i%3)continue; t1=6; if(i==6)printf(">>----"); else while(t1--)printf(" "); for(j=(int) ( R-sqrt(R*R-i*i) );j>0;j--) printf(" "); for(e=1;e<=2*( sqrt(R*R-i*i) - (R-2*I) );e++) printf("*"); for(j=(int) ( R-sqrt(R*R-i*i) );j>0;j--) printf(" "); t1= (int)( R-sqrt(R*R-i*i) ); t1=2*t1; t1+= (int)(2*( sqrt(R*R-i*i) - (R-2*I) )); t1=35-t1; if(i==6){printf("LOVE");} else if(i==48){printf("\b\b\b爱情加油!");} else while(t1--) printf(" "); for(j=(int) ( R-sqrt(R*R-i*i) );j>0;j--) printf(" "); for(e=1;e<=2*( sqrt(R*R-i*i) - (R-2*I) );e++) printf("*"); for(j=(int) ( R-sqrt(R*R-i*i) );j>0;j--) printf(" "); if(i==6)printf("----->"); printf("\n"); } return 0; }
效果
转载地址：http://mhgc.baihongyu.com/
你可能感兴趣的文章
Manjaro 24.1 “Xahea” 发布！具有 KDE Plasma 6.1.5、GNOME 46 和最新的内核增强功能
查看>>
mapping文件目录生成修改
查看>>
MapReduce程序依赖的jar包
查看>>
mariadb multi-source replication(mariadb多主复制)
查看>>
MaterialForm对tab页进行隐藏
查看>>
Member var and Static var.
查看>>
memcached高速缓存学习笔记001---memcached介绍和安装以及基本使用
查看>>
memcached高速缓存学习笔记003---利用JAVA程序操作memcached crud操作
查看>>
Memcached：Node.js 高性能缓存解决方案
查看>>
memcache、redis原理对比
查看>>
memset初始化高维数组为-1/0
查看>>
Metasploit CGI网关接口渗透测试实战
查看>>
Metasploit Web服务器渗透测试实战
查看>>
Moment.js常见用法总结
查看>>
MongoDB出现Error parsing command line: unrecognised option ‘--fork‘ 的解决方法
查看>>
MongoDB学习笔记(8)--索引及优化索引
查看>>
ms sql server 2008 sp2更新异常
查看>>
MS UC 2013-0-Prepare Tool
查看>>
msbuild发布web应用程序
查看>>
MSCRM调用外部JS文件
查看>>