pascal題。幫忙，pascal題。幫忙！！！

1樓：王勃啊

我這樣做

整數列嘛 首先就先輸入一個n來表示這個整數列有多少個整數varn:integer;

a:array[1..1000] of integer;

i,j,k:integer;

begin

readln(n);

for i:=1 to n do read(a[i]);

j:=1;k:=0;

repeat

if a[j]a[j+1] then

while (a[j]>a[j+1])and(j

else j:=j+1;

k:=k+1;

until j=n;

j:=1;

while a[j]=a[j+1] do j:=j+1;

if j=n then k:=k+1;

write(k);

end.

不懂的mm哦

2樓：

先讀入字串，不需要陣列，字串也可以比較readln(s);

給他加一個結束符號「？」s:=s+'?';

下面是求數目的一段

l：=1；k:=1;

while s[l]<>'?' do

begin

if s[l]s[l+1] then k:=k+1;

l:=l+1;

end;

最後輸出 writeln(k);

3樓：

vari,n,toto:longint;

a:array[1..1000] of longint;

begin

read(n);

for i:=1 to n do

read(a[i]);

toto:=0;

for i:=2 to n-1 do

if (a[i]-a[i-1])*(a[i+1]-a[i])<0 then toto:=toto+1;

writeln(toto+1);

end.

pascal教程，怎麼使用pascal

第一節 pascal語言的特點。資訊學奧林匹克競賽是一項益智性的競賽活動，核心是考查參賽選手的智力和使用計算機程式設計解題的能力。資訊學奧林匹克競賽要求參賽選手有如下能力 針對競賽題目中的要求構建數學模型，構造出有效的演算法和選用相應的資料結構，寫出高階語言程式，上機除錯通過。程式設計是資訊學奧林匹...

pascal常見問題，關於Pascal語言問題 完整的

第一題是百錢百雞問題拓展，屬於列舉問題 program p1 vara,b,c integer begin for a 1 to 35 do for b 1 to 50 do begin c 90 a b if a 15 b 10 c 5 500 thenwriteln a,b,c end end....

pascal程式設計的語言，Pascal語言是什麼？

program 程式 const 常量 type 型別 var 變數 function 函式 procedure 過程 begin 開始 end 結束 if 如果 then 那麼 else 否則 case of 分支 for to do 計數迴圈 while 當迴圈 repeat 迴圈 until ...