主题：电脑的功课--求助><
hck1hk
[专家分：0] 发布于 2006-03-17 23:37:00
今天老师给了我们一个问题：
使用者要Enter一个数字(不能大于999.99)
然后以英文输出…
e.g.
Input: 999.99
Output: Nine Hundred Ninety Nine Dollars and Ninety Nine Cents
由于我刚学Pascal，所以得多东西都不懂><
希望大家可以帮帮我……
回复列表 （共6个回复）
沙发
blackmark [专家分：210] 发布于 2006-03-18 20:59:00
var
x:string;
i:integer;
.............
...........
begin ..........
for i:=1 to length(x) do
begin
if x[i]='1' then
write (' ONE');
else if x[i]='2' then
write (' TWO');
else if x[i]='3' then
write (' THREE');
else if x[i]='4' then
write (' FOUR');
else if x[i]='5' then
write (' FIVE');
else if x[i]='6' then
write (' SIX')
else if x[i]='7' then
write (' ELEVEN')
else if x[i]='8 then
write (' EIGHT');
else if x[i]='9then
write (' NINE
else if x[i]='0 then
write (' TEN')
else if x[i]='.'then
write (' DOLLARS AND ');
end;
writeln( ' CENTS');
end.
板凳
blackmark [专家分：210] 发布于 2006-03-18 21:00:00
sorry!!!
题 看错老
3 楼
游侠UFO [专家分：1200] 发布于 2006-03-19 00:37:00
很容易嘛，对字符串的处理！
4 楼
hck1hk [专家分：0] 发布于 2006-03-19 01:57:00
既然这么容易…
那你就教教我呢=__=
光说容易我也不会明白的>.<~
5 楼
aniude [专家分：430] 发布于 2006-03-20 19:55:00
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var back,chStr:string;i,j:integer;str:string[60];
begin
back:='';
chStr:='';
read(str);
for i:=1 to length(str) do
begin
//if(TryStrToInt(str,i)) then
case str[i] of
'9': back:='九';
'8': back:='八';
'7': back:='七';
'6': back:='六';
'5': back:='五';
'4': back:='四';
'3': back:='三';
'2': back:='二';
'1': back:='一';
else back:='点';
end;
chStr:=chStr+back;
end;
writeln(chStr);
read(j);
end.
6 楼
aniude [专家分：430] 发布于 2006-03-20 19:55:00
忘了改成英文,不好意思
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 电脑的功课--求助><