主题：谢谢大家提出对本版的意见和建议！！！！
hnhml
[专家分：30] 发布于 2003-08-24 15:49:00
希望大家踊跃发言，让我们共同提高，共同进步！！！
回复列表 （共30个回复）
11 楼
dtcdzt [专家分：130] 发布于 2003-12-28 19:12:00
能把竞赛的结果公布出来吗?我想知道!
12 楼
wxljqi [专家分：0] 发布于 2004-02-14 17:24:00
太杂，网页不够简洁，第一次进来，我还找不到哪儿，哪儿的
13 楼
晶星 [专家分：370] 发布于 2004-03-05 20:44:00
{
ID:5q6w4e3
PROB:comehome
}
program comehome;
var
input,output:text;
linjie:array['a'..'z','a'..'z']of longint;
cow:array['a'..'z']of boolean;
i,j,p:integer;
procedure int;
var
t,z:integer;
ch1,ch2:char;
begin
fillchar(linjie,sizeof(linjie),0);
assign(input,'comehome.in');
reset(input);
readln(input,p);
for t:=1 to p do
begin
readln(input,ch1,ch2,z);
if ch1=upcase(ch1) then cow[ch1]:=true;
if ch2=upcase(ch2) then cow[ch2]:=true;
if ch1=upcase(ch1) then ch1:=char(ord(ch1)-32);
if ch2=upcase(ch2) then ch2:=char(ord(ch2)-32);
if (linjie[ch1,ch2]=0)or(linjie[ch1,ch2]>z) then
begin
linjie[ch1,ch2]:=z;
linjie[ch2,ch1]:=z;
end;
end;
end;
begin
int;
end.
14 楼
patsname [专家分：140] 发布于 2004-07-15 15:19:00
人太少,高手更少
15 楼
patsname [专家分：140] 发布于 2004-07-16 09:08:00
斑竹,我觉得你是不是可以在上面加一行,表示有几人在线.(比如:pascal讨论区现在在线1人)
16 楼
shisongjian [专家分：210] 发布于 2004-07-17 09:11:00
哎,其实我很喜欢写程序
17 楼
patsname [专家分：140] 发布于 2004-07-17 15:44:00
我很怀疑斑竹是一礼拜;来一次,还是一个月,或一年
18 楼
hs3180 [专家分：530] 发布于 2004-07-25 15:01:00
比起去年NOIP的时候的热闹，现在…………………………
咳……………………………………
19 楼
周律 [专家分：0] 发布于 2004-08-06 09:15:00
你们这些人，真是太无聊了！！！
20 楼
sansan33 [专家分：0] 发布于 2004-09-21 10:34:00
我觉得速度是一个很大的问题
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 谢谢大家提出对本版的意见和建议！！！！