主题：PASCAL语言讨论区开版了！！
yaozheng
[专家分：28410] 发布于 2002-11-20 23:58:00
为了满足一些初学编程朋友的需要，PASCAL语言讨论区今天正式开张了，希望大家能在这里共同交流探讨PASCAL语言。
本版讨论的范围是pascal语言以及object pascal语言或者是关于pascal开发软件的问题，如果您有关于delphi方面的问题，最好可以到“Delphi讨论区”提问。谢谢大家的配合！
另外本版诚征pascal方面的高手担任版主一职，请有意的朋友跟帖或者到站务讨论区报名，也可以直接通过短消息方式和我联系！！
回复列表 （共137个回复）
61 楼
zhaqqyue [专家分：0] 发布于 2004-11-18 18:35:00
34ewedwewewe[em4][em7][em8][em8][em10][em14]
62 楼
cool007zqw [专家分：0] 发布于 2005-01-07 22:32:00
楼主的签名很有个性.
63 楼
姗姗 [专家分：0] 发布于 2005-01-21 19:20:00
我可以回复一些PASCAL语言的基本问题
64 楼
SUPER菜鸟 [专家分：0] 发布于 2005-02-17 14:04:00
怎样才有人能告诉我这道题目到底该怎样做啊?我是初学者,拜托了!我要整个程序组哦!
题目是:输入年月日,输出该月天数!
帮帮忙啦!
65 楼
SUPER菜鸟 [专家分：0] 发布于 2005-02-17 14:05:00
谁会做这道题?
输入年月日,输出该月天数.
拜托啦,帮帮忙!
66 楼
netking [专家分：40] 发布于 2005-02-27 10:53:00
HAO
67 楼
tanchenggang [专家分：0] 发布于 2005-03-19 20:43:00
SUPER菜鸟，我不知道你的那道题这样做行不行：
program ex_1;
var
y,m,d:integer;
begin
writeln('please input the year and the month');
read(y,m);
if (m:=1) and (m:=3) and (m:=5) and (m:=7) and (m:=8) and (m:=10) and (m:=12) then
begin
d:=31;
writeln(d);
end;
if (m:=4) and (m:6) and (m:=9) and (m:=11) then
begin
d:=30;
writeln(d);
end;
if (m:=2) then
begin
if (y mod 4=0) and (y mod 100<>0) and (y mod 400<>0) then
begin
d:=29;
writeln(d);
end;
else
d:=28;
end;
end.
我的答案只是一个参考~请各位高手指教~
我的QQ是：439883777
68 楼
坏坏疯 [专家分：0] 发布于 2005-03-28 19:52:00
报道
69 楼
zcz33 [专家分：0] 发布于 2005-04-15 13:00:00
初来乍到，请各位高手多多指教！
70 楼
泡泡糖 [专家分：230] 发布于 2005-05-03 17:52:00
I is a just learn of, hope everybody to much introduce me more, lift me opinion more.(我是一个刚刚学的,希望大家多多教导我,多给我提意见。)
—— bubbles sugar(泡泡糖)
我来回复
您所在位置：