题目描述 Description 在很多程序设计语言中，忘记给变量赋初值的错误常令人头疼。 在下面的问题中，最开始仅有变量a中有确定的值。变量为单个小写字母， 每行恰好有三个字符，中间一个是赋值运算符'='。 请编程求出含N行的程序段运行以后有哪些变量中有确定的值。 输入描述 Input Description 第一行:N (0<N<=10^6) 以下N行，每行3个字符，为一条语句 输出描述 Output Description 如果没有，输出 none 否则在一行中按字母表顺序给出所有有确定值的变量名。 样例输入 Sample Input 4 b=a c=d d=b e=f 样例输出 Sample Output a b d
代码：
var
a:array['a'..'z']of boolean;
i,n,s:longint;
j,x,y:char;
begin
readln(n);
fillchar(a,sizeof(a),false);
a['a']:=true;
for i:=1 to n do
begin
read(x,y);
readln(y);
a[x]:=a[y];
end;
for j:='a' to 'z' do
if a[j] then begin write(j,' ');inc(s);end;
if s=0 then write('none');
end.
转载请注明原文地址: https://ju.6miu.com/read-661113.html
