想问下怎么给char赋值!!!

拿delphi控制台举例。
建议调换一下顺序，先读入char，后读入其他类型。注意格式，输入字符后不要加空格，否则会把空格读给integer，就出错了。
例如：  输入  qwer2 3回车    结果：   a=q  b=w  c=e  d=r  i=2  j=3.0000000000E+0000

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
  a,b,c,d: char;
  i: integer;
  j: real;

begin
  Writeln('abcd=?  i=?   j=?');
  Readln(a,b,c,d,i,j);
  Writeln('a=',a,'  b=',b,'  c=',c,'  d=',d,'  i=',i,'  j=',j);
  Readln(i);
end.

[[it] 本帖最后由 johnwee 于 2008-2-29 00:05 编辑 [/it]]