作业帮 > 综合 > 作业

pascal编程求出实数小数部分位数,

来源：学生作业帮 编辑：搜搜做题作业网作业帮 分类：综合作业 时间：2024/07/31 12:32:31
pascal编程求出实数小数部分位数,
编写一个函数,求出实数的小书部分位数,例如,实数3.14有2为小数,68.6689有4位小数.
pascal编程求出实数小数部分位数,
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i:integer;
a:string;
begin
readln(a);
for i:= length(a) downto 1 do
if a[i] = '.' then
begin
write(length(a)-i);
break;
end;
readln;
end.
用PASCAL编程序1.编写一函数,求出实数的小数部分位数.例如,实数3.14有2位小数；68.6634有4位小数2.编 pascal编程二元一次方程实数根 编程：输入一个正的实数,将其整数部分和小数部分分别输出. 小数根据小数部分的位数分为（? 小数部分的位数是什么的小数 怎样用pascal编程求出两数的最小公约数和最小公倍数（不用函数）. 编程（用 PASCAL) pascal编程 超急 pascal编程：统计数字 pascal编程：阶乘 Turbo Pascal编程题目 Turbo Pascal编程问题