主题：小弟在这里向各位大哥讨教一个例子!帮帮忙!谢谢!
lovemzm
[专家分：0] 发布于 2005-03-20 21:30:00
用PASCAL编
“给任意一个有四个词组成的句子，要求把第二和第三个词语用括号括出来 ```”
哪位大哥可以帮我写一下?
谢谢~~
回复列表 （共7个回复）
板凳
tanchenggang [专家分：0] 发布于 2005-03-22 18:27:00
简单？？/
你怎么不做啊~~~~~~~~~~~
只知道说的家伙~
3 楼
mdjqdh [专家分：140] 发布于 2005-04-03 11:47:00
单词 之间用什么 做间隔标记？
4 楼
xuzhenyi [专家分：850] 发布于 2005-04-04 21:30:00
我的写法比较另类 请原谅
var a:array[1..4] of string;
j:char;
b:string;
i:integer;
begin
for i:=1 to 3 do
begin
read(j);
while j<>'' '' do
begin
a[i]:=concat(a[i],j);
read(j);
end;
end;
read(a[4]);
writeln(a[1],'' ('',a[2],'' '',a[3],'') '',a[4]);
readln;
end.
5 楼
xuzhenyi [专家分：850] 发布于 2005-04-04 21:34:00
妈的 又来2个引号了
重发
var a:array[1..4] of string;
j:char;
b:string;
i:integer;
begin
for i:=1 to 3 do
begin
read(j);
while j<>' ' do
begin
a[i]:=concat(a[i],j);
read(j);
end;
end;
read(a[4]);
writeln(a[1],' (',a[2],' ',a[3],') ',a[4]);
readln;
end.
6 楼
xuzhenyi [专家分：850] 发布于 2005-04-04 21:40:00
最后一句也可以这么写
for i:=1 to 4 do
begin
if i=2 then write('(',a[i],' ')
else if i=3 then write(a[i],') ')
else
write(a[i],' ');
7 楼
xuzhenyi [专家分：850] 发布于 2005-04-04 21:40:00
又成功地
用循环了
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 小弟在这里向各位大哥讨教一个例子!帮帮忙!谢谢!