主题：PASCAL语言讨论区开版了！！
yaozheng
[专家分：28410] 发布于 2002-11-20 23:58:00
为了满足一些初学编程朋友的需要，PASCAL语言讨论区今天正式开张了，希望大家能在这里共同交流探讨PASCAL语言。
本版讨论的范围是pascal语言以及object pascal语言或者是关于pascal开发软件的问题，如果您有关于delphi方面的问题，最好可以到“Delphi讨论区”提问。谢谢大家的配合！
另外本版诚征pascal方面的高手担任版主一职，请有意的朋友跟帖或者到站务讨论区报名，也可以直接通过短消息方式和我联系！！
回复列表 （共137个回复）
101 楼
风之落叶 [专家分：40] 发布于 2007-01-28 13:26:00
紧急求助!!!!!!!!!!!!!!!!!!!!!!!!!!!!
用pascal语言来编此题:
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
102 楼
鸢——迹 [专家分：0] 发布于 2007-03-05 21:08:00
初来乍到，多多关照
103 楼
鸢——迹 [专家分：0] 发布于 2007-03-05 21:10:00
64楼的问题，这样不知对不对。
program monthday;
var
year,month,days:integer;
begin
read(year,month);
case month of
1,3,5,7,8,10,12:days:=31;
4,6,9,11:days:=30;
2:if (year mod 4=0) and (year mod 100<>0) or (year mod 400=0)
then days:=29
else days:=28
end;
writeln('year=',year,'month=',month,'days='days);
end.
104 楼
wliwei [专家分：20] 发布于 2007-03-25 16:17:00
七楼的同学,你可以这样做:
var
a:array[1..10] of 0..10;
i,j,temp:integer;
k:real;
begin
for i:=1 to 10 do
read(a[i]);
(下面用冒泡排法)
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
end;
k:=0;
for i:=2 to 9 do
k:=a[i]+k;
k:=k/8;
write(k);
end.
105 楼
worm. [专家分：180] 发布于 2007-05-20 09:07:00
同学们,我学pascal请大家多多帮助
qq 704704513
106 楼
runce88 [专家分：0] 发布于 2007-07-10 09:40:00
我是PASCAL 的初学者，我的电脑系统是XP，不知要下载怎样版本的PASCAL安装到我的电脑上才能学习？请高手不吝赐教，谢谢
107 楼
runce88 [专家分：0] 发布于 2007-07-10 10:01:00
那您告诉我在什么地方能考到？如果您有传一份给我好吗？
108 楼
abcwuhang [专家分：1840] 发布于 2007-07-12 15:57:00
FREE PASCAL 2.0以上的
109 楼
qqym710 [专家分：140] 发布于 2007-07-16 18:37:00
兄弟姐妹们,我惨拉,有谁能带我入门吗??
110 楼
qqym710 [专家分：140] 发布于 2007-07-16 19:12:00
program ex;
var a:array[2..9,1..17]of byte;
procedure main;
var i,j:integer;
begin
for i:=2 to 9 do
for j:=1 to i do a[i,j]:=j;
for i:=2 to 9 do
for j:=i+1 to 2*i-1 do a[i,j]:=a[i,i-(j mod i)];
end;
procedure out;
var i,j:integer;
begin
for i:=2 to 9 do
begin
for j:= 1 to i*2-1 do write(a[i,j]);
writeln;
end;
end;
begin
main;
out;
end.
101兄台我只回那么多
我来回复
您所在位置：