根据用户输入的一个带有小数的实数，要求拆分显示该数的整数部分和小数部分 的代码怎么写啊

---

pascal版
program baidu;
var
s:string;
i,t:integer;

begin
readln(s);
i:=1;
while s[i]<>'.' do
begin
write(s[i]);
inc(i);
end;
writeln;

for t:=i+1 to length(s) do write(s[t]);
writeln;

end.
输入一个有整数部分与小数部分滚敏空的实数
输出
第一行拿激整数部分
第大瞎二行小数/
思路是查找小数点。

---