程序员怎么表白？

Attention ！！！

再过几天，

就到了恩爱秀满天的日子了！

七夕！中国情人节！

很多单身汪都在绞尽脑汁

买什么礼物给TA？

鲜花？包包？

还是请TA一起去看场**？

用什么方式告诉对方

内心最想对TA说的话

不能跟这个哥们一样

原本想对TA说

结果嘴巴一哆嗦

说成了

每当想起你这张丑脸，我就泛起了微笑……

结果可想而知？

一开始我以为这样的悲剧

只会发生在程序员身上

因为外界都认为

程序员不浪漫、木内

但我错了

程序员的表白方式更加的特别

NO1

把以下代码保存为html后缀文件在浏览器中打开，

Happy

结果就是这样的

喜欢吗？

NO2

某公司程序员对小编说

于是就有了

有没有暖到你的内心呢？

温馨告白

程序员，也许不善言辞

但总是默默地在行动

用行动去诠释他们对你的爱

值此七夕佳节

雅腾教育祝愿

每一个程序员

和即将成为程序员的朋友

七夕快乐！

永远幸福！

program heart_shape

implicit none

integer, parameter :: x_max = 80, y_max = 50 ! 声明图像的大小

integer :: i, j, x, y

real :: dist, cx, cy

character(1) :: pixel(x_max, y_max)

do j = 1, y_max

do i = 1, x_max

pixel(i, j) = ' ' ! 将所有像素设置为空白

end do

end do

do y = 1, y_max

cy = y - 200

do x = 1, x_max

cx = x - 400

dist = sqrt(cx2 + cy2)

if (dist > 00) then

if (abs(200 (cx / dist) + 100 (cy / dist) - 10) < 07) then

pixel(x, y) = '' ! 在符合条件的位置上画星号

end if

end if

end do

end do

do j = 1, y_max

do i = 1, x_max

write(, '(A)', advance='no') pixel(i, j) ! 输出绘制的图像

end do

write(, )

end do

end program heart_shape