1樓：弘雅
你給個範圍呀！最早多少年 最遲多少年？
還有西元前呀！太麻煩，你弄個兩百分看看有沒有人幫你遍吧！
2樓：匿名使用者
fillchar，fill：充滿，char：字元。就是把字元陣列的值變成一樣的字元或把數值陣列的值都變成0或-1.
program e0708251;
constoutfire =
vardays, yy, y: longint;
j, i, s, m_days: integer;
flag: boolean;
beginwrite('year');readln(yy);
assign(output, outfire);
rewrite(output);
if yy=0 then writeln('there is no the"0" if you want,please read.')
y :=yy - 1;
days :=y * 365 + y div 4 - y div 100 + y div 400;
if ((yy mod 4 = 0) and (yy mod 100 <>0)) or (yy mod 400 = 0) then
flag :=true
else flag :=false;
s :=days mod 7;
writeln('year:',yy);
for i:=1 to 12 do begin
case i of
1, 3, 5, 7, 8, 10, 12:m_days :=31;
4, 6, 9, 11: m_days :=30;
2: if flag then m_days :=
29 else m_days :=28;
end;writeln('mouth:',i);
writeln(' sun mon tue wed thu fri sat');
s:= s +1) mod 7;
write(1:(s + 1) *4);
if s =6 then writeln;
for j:=2 to m_days do begin
s :=s +1;
write(j:4);
if s mod 7 = 6 then writeln;
end;writeln;
readln;
end;readln;
close(output);
end.
用pascal程式設計計算同一年中兩個日期之間的天數。如果方便，請告訴我不是同一年怎麼辦
3樓：琉璃夢蝶愛芒果
不是同一年的話就判斷這個年份是否為閏年，是的話就加上366，不是的話就加上365
需要**嗎？
用pascal語言編制程式，誰幫幫我，每編乙個我追加5分。基礎懸賞10分
4樓：火工月
沒人找到你的。好奇懷疑 你是誰 不介意說下p !
l ; ll ; l
i ; ii ; i
i ; ii ; i
d | bh | hh | h
h i h;, h i h ,;h@h; ;h_;,h@h;
y/d_,;4h@hk|;,b\y/'
mmmmm$@@mmmmm;/'
d8@8bo8@8ot808t
5樓：蚊子死神
我來 第一題。
只寫主程式哈 關聯那些自己寫。
var l:longintl;
while not eof do
beginreadln(l);
if l mod 4 =0 then writeln('yes')else writeln('no');
end;
6樓：網友
我來這個問題吧……這些都是些小程式嘛！！順便練練手~
因為不能一下子全部，我先占個樓。這些程式我會一一放上來的……
7樓：superman駿
你肯定是六中奧信班的，請不要抄答案請自己思考。謝謝。否則我會告訴老師聽。
free pascal程式執行時間
8樓：匿名使用者
①如果你是linux系統，。。那其實會用linux的基本都知道先編譯，控制台輸入：fpc 你的程式。
pas然後在執行前加上time即可：time ./你的程式他會顯示程式的執行時間。
如果你是windows系統，可以試著用free pascal內部的時間獲取函式。
方法也比較多，這裡列出2種：
一、先在開頭uses dos;在主程式裡就可以gettime(時，分，秒，毫秒)，這些變數是word型別。獲得這些資訊後就可以計算時間差了，比如你可以時×3600+分×60+秒+毫秒/1000就可以獲得秒數。
二、先在開頭uses windows;這樣就可以用winapi了。gettickcount或gettickcount64函式可以獲得作業系統啟動到現在的毫秒數，減一減就能獲得時間差了。
9樓：冰淪
如果只是要程式執行的精確時間的話。。。
program extim;
uses sysutils;
var tt:tdatetime;
begintt:=now*86400;
tt:=now*86400-tt;
writeln(tt:0:8);
readln;
end.順便，比賽交程式時可不要寫這些。
10樓：鉞如曼
計算時間複雜度的方法教程上都有 可以根據時間複雜度來估計執行時間。
pascal怎麼寫乙個算輸入的數的加法程式
11樓：匿名使用者
除const，var，begin等關鍵字（初學者只有這三個）之後不用加分號，其他每個語句末尾都要加分號。
以下是修改後的程式：
program ex;
vara,b,c:integer;
beginread(a,b);
c:=a+b;
write(c);
end.
12樓：血狼之翼
program ex;
vara,b,c:integer;(定義變數：變數名：
變數型別；）begin （表明程式體開始）readln(a,b); 每個語句結束用分號）c:=b+c; （是賦值號）write(c);
readln （此語句無需加分號是因為後面就是end.表示程式結束）
end.
用VB做簡單的計算器，該怎麼做，用VB做一個簡單的計算器，該怎麼做？
du瓶邪 option explicit dim op1,op2 前面輸入的運算元 dim decimalflag as integer 小數點仍然存在嗎？dim numops as integer 運算元個數 dim lastinput 指示上一次按鍵事件的型別 dim opflag 指示未完成的...
怎樣做乙個成熟的人，如何做乙個成熟的人？
保持樂觀的心態是非常重要的，不管處在任何環境中都要記住感恩，回顧積極的事件並且向他人描述，有助於改善心情和強化自己的優勢。生活中我們往往會因為太過於關注失去的東西，從而減少了對已經擁有的幸福的敏感度。嘗試列出自己的優勢清單，並且每天都可以重複看一下，這樣有助於增加自信並且激發潛力。觀察自己喜歡什麼，...
如何做乙個好丈夫，怎樣做乙個好丈夫？
第一 對待自己的愛人一定要足夠的專。一 足夠的忠誠。我覺得任何乙個可以稱得上是好丈夫的都是在非常的用心，並且一心一意的只愛護自己的妻子。從來不會說是吃著碗裡看著鍋裡的，不知足，也從來都不會做出那種在外面找小三，拈花惹草的事情。第二 對待自己的家庭一定要有足夠的關心和照顧，一定要懂得顧家，要有很強的責...