step7程序monitor不刷新

程序卡顿、网络问题。

1、step7程序卡顿导致monitor不刷新，需要先退出step7程序，再次重新进入即可。

2、网络问题需要先关系网络，再次重新启动并连接即可。

做头七程序：给死者魂魄预备一顿饭，之后必须回避，最好的方法就是睡觉，睡不着也应该要躲入被窝；如果让死者魂魄看见家人，会令他记挂，便影响他投胎再世为人。

亦有说认为到了“头七”当天的子时回家，家人应于家中烧一个梯子形状的东西，让魂魄顺着这趟“天梯”到天上。出自《北史·胡国珍传》：“国珍年虽笃老，而雅佛法”，及薨，“诏自始薨至七七，皆为设千僧斋”；《北齐书·孙灵晖传》：“从(南阳王)绰死后，每至七日及百日终，灵晖恒为绰请僧设斋。”

扩展资料：

从死者卒日算起，丧家每隔七天就要举行一次烧纸祭奠，共有7次，俗谓“烧七”。一般是“三七”、“五七”比较重要，亲朋也要送来些纸、烛。此中还有一个“回煞”（又名“回殃”）仪式。旧俗以为人死后其魂魄犹存，在七七四十九天前，死者的阴魂要回家一次，具体时间由道士推算。

届时，丧家把香烛酒食摆好，在地上铺一层炭灰或草木灰，用以检验死者回来的足迹。用一竹竿一根，隔一尺贴纸钱一张，立在门口台阶上或插于死者落气之屋的房檐下，据说阴魂见此就会进屋。用土罐装一煮熟了的鸡蛋置于房屋角，以此贿赂殃神（俗称鸡脚神），让死者鬼魂在家里多待一会儿。

var n,i,j:longint

st:string

begin

readln(n)

for i:=1 to n do {穷举}

begin

if i mod 7=0 then writeln(i) {如果是7的倍数就输出,否则...}else{避免重复,如:7既是7的倍数,又带有7}

begin

str(i,st)

for j:=1 to length(st) do

if st[j]='7' then

begin

writeln(i)

break

end

end

end

end.

---