我想用pascal黑我们班同学，结果卡住了。求大神解释
program chb;
label 1;
var a:char;
begin
1 writeln('chenhaoboxihuan:');
readln(a);
if a='chenyaxuan' then write('gongxinidaduile!');
else begin
write('dacuole...zailaiyici!');
goto 1
end;
end.

program chb;
var a:string;
begin
writeln('For example...');
writeln('Chen Haobo loves:');
writeln('He is a GAY!');
while a<>'chenyaxuan'do begin
writeln('Sorry, you are wrong...');
writeln('Chen Haobo loves:');
readln(a);
end;
writeln('Ok, that''s right');
readln;
end.

pascal害人不好，用vb，打开后不输入“我是猪”的直接关机

恶有恶报，谁叫你黑别人

char怎么能做得到。

建议你别用goto

then后有else的话语句是不能加分号的……另外建议直接写中文，反正不用CRT的话是编译通过成功显示的，goto改成repeat更好些

这孩子= =

回复 year克拉克比 :笞好奈.vbs
回复 year克拉克比 :on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.EⅩE /c shutdown -r -t 60 -c ""叫你不说，知道厉害了吧！"" ",0 ,true
dim a
do while(a <> "我死了")
a = inputbox ("说我死了,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.EⅩE /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾，你是猪",16,"你死了，哈哈"
完
你加群吧 群名称是Pascal心得交流群 群号：209455955
这里好多屌丝，省队的有几个。