UC知道帮忙编Turbo Pascal 7.0的一个程序。（用case语句）
来源：百度知道 编辑：UC知道 时间：2024/04/27 19:00:03
输入一个字母，判断是不是字母T(大小写都可以)，如果是输出“YES”,如果不是输出“NO”.
分很高的
分很高的
program exp(input,output);
uses crt;
var c:char;
begin
c:=readkey;
case c of
't','T':writeln ('yes');
else writeln ('no');
end;
end.
假设c是那个字母
Case c of
't','T': write('YES');
else
write('NO')
end;
其实可以不用Case语句
if (c='t') or (c='T') then
write('YES')
else
write('NO');