高考问答患得患失怎么办:PASCLE编程
来源：百度文库 编辑：高考问答 时间：2024/05/10 06:08:31
TJB：string='123456789abcdef';
var i,k:integer
begin s:string
readln(i),s:=' ';
while i>0 do
begin
k:=k mod 16;
i:=i div 16;
s:=TJB[k+1]+s;
end;
writeln(s);
end.
这样对不对呀？？？
var i,k:integer
begin s:string
readln(i),s:=' ';
while i>0 do
begin
k:=k mod 16;
i:=i div 16;
s:=TJB[k+1]+s;
end;
writeln(s);
end.
这样对不对呀？？？
先纠个错 PASCAL 不是 PASCLE
你的书写很不规范啊
我完全没有看懂你是什么意思
readln(i),s:=' '; 这句是什么意思？
毛病很多, 而且不知所云
TJB：string='123456789abcdef'; {标准pascal无此语法. 如果是TP, 前面应有const, 如果是高版本的delphi, 前面加var }
var i,k:integer {缺分号}
begin s:string {S应放到begin前面, 并加分号}
readln(i),s:=' '; {逗号不知是什么意思}
while i>0 do
begin
k:=k mod 16; {K根本没赋初值}
i:=i div 16;
s:=TJB[k+1]+s;
end;
writeln(s);
end.