Pascal 程式設計中學基礎

系統不會將這兩個陣列視為同乙個陣列，它應該按型別定義，然後兩個陣列都應該定義為型別。

程式標頭寫道：

typearr=array[1..1000]of integer;

然後在這個過程中寫。

procedure find(s:arr);

陣列 s：array[1.] 不能直接在過程變數中定義1000] 的整數，第一種型別：a：array[1..1000] of integer;

否則，系統不會將兩者視為同一陣列。

樓上是對的，繩子會爆炸。

你可以使用ansistring，基本上它不會爆炸！

**如下：程式 ANS;

vars:ansistring;

beginreadln(s);

writeln(s);

end.這應該可以解決問題！ 它基本上不會爆炸。

守望台主！

varn:longint;

beginreadln(n);

write(n);

end.我會是第乙個，把它給我

樓上的答案不完整，你的n只是乙個longint，萬一輸入的數字太大，就會爆炸，應該是：

varn:string;

beginreadln(n);

writeln(n);

end.

天哪，怎麼這麼晚才看到！！

樓上的兩個人說得對。

可是一樓的哥哥，不要這樣搶分，好不好？ 太醜了！！

二樓的任哥，繩子也會爆炸。

y001：n 在 0program y001 範圍內;

var i,n:integer;

a:array[1..10000]of real;

he:real;

beginread(n);

for i:=1 to n do a[i]:=1/i;

he:=0;

for i:=1 to n do he:=he+a[i];

writeln(he:5:5);

end.Y002：n為冰雹年數，t為萬噸。

program y002;

var n,i:integer;

t:real;

beginn:=2005;

t:=3886;

for i:=2000 to n do

t:=t*;

writeln(t*10000:5:5);

end.Y003：n是年中的液體數量，m是貨幣的數量。

program y003;

var n,i:integer;

m:real;

beginread(n);

m:=100;

for i:=1 to n do m:=m*;

writeln(m:5:2);

end.y004：其實和y003一樣，就是多賣鎮上的東西來做判斷。

program y004;

var n,i:integer;

m:real;

beginread(n);

m:=100;

if n<5 then

for i:=1 to n do m:=m*else for i:=1 to n do m:=m*;

writeln(m:5:2);

end.

需要註冊，普及組的問題就是你想要的。

Pascal、c 和 c++ 允許使用 Noip，所以沒關係。

您可以在提交時選擇 pascal。

首先，選擇一本好書很重要，《演算法使用基礎教程》還可以，還有黑書也不錯。

然後，掌握基本演算法，比較重要的有：dp（雖然2009noip沒有考，但看前面的問題有1道題）、分而治之、深度搜尋和廣搜尋、回溯、遞迴（和dp一樣重要）、快速行和高精度建議要記住，練習很重要，一般得到1=學生至少做200道題以上， 依靠主題來改進是非常重要的，目前有 OIBH 和 VIJOS 等**可以參考。

第三，團隊很重要，依靠前輩的幫助，彌補不足，不知道從哪裡問，你會在資訊方面快速提高。

最後，你也要有良好的心態，考場一般坐90+人，有些人為了勇敢會刻意打字很用力，如果師傅坐在旁邊會很鬱悶，所以平時要鍛鍊一下！ 寫了這麼久，給我吧。

學習其他語言，例如 C

再次學習。 資料結構。

演算法 Windows 程式設計。

資料庫等等。

1.使用根查詢公式。 程式如下（結果保持在小數點後 2 位）：var a，b，c，d，x1，x2：real;

beginreadln(a,b,c);

d:=sqrt(sqr(b)-4*a*c);

x1:=(-b+d)/(2*a); x2:=(-b-d)/(2*a);

writeln(x1:2:2); writeln(x2:2:2);

end.2.簡單的排序。

var a,b,c,t:integer;

beginreadln(a,b,c);

if aif aif bwriteln(a,' ',b,' ',c);

end.3.簡單迴圈。

var i,s:integer;

begins:=0;

for i:=1 to 100 do

if i mod 2=1 then

s:=s+i;

writeln(s);

end.

你將不得不自己模擬它。

從額外的“1”開始。

去重複...直到。

第一次 n=0，只做 n：=n+1;

第二次 n=1，做兩個句子，如 s：=s+1 n; ，s 變成了 2，n 還是 1，這顯然是不對的。

更改程式的最佳方法是將預設值 s 設定為 0。

我個人覺得修改成下面這個比較合理，思路也比較流暢一些。

var k,s,n:real;

beginreadln(k);

n:=0; s:=0;

repeat

n:=n+1;

s:=s+1/n;

until s>k;

writeln(n:0:0);

end.

0 應分配給 s 的初始化，否則 1 將新增 2 次。

這樣，模擬效率太低，盡量用數學方法，否則k大會超時。