1樓：網友
完咐裂全按提伏棗示寫的（雖然我有更好的方法），另外最後輸出的是大寫衡廳閉字母，如果需要你可以改，還有字元陣列是指n['a'..z'] 這樣的，一定給我分呀。
by fnoi05cguoqipeng }
program statisticschar;
varch : char;
n : array[1..26] of longint;
i, j, count, m, m1 : longint;
beginwhile true do begin
read(ch);
if ch='%then break;
count :=count + 1;
if ord(ch)>96 then ch :=chr(ord(ch)-32);
if (ch>='a') and (ch<='z') then j :=ord(ch)-ord('a') 1;
if j>0 then n[j] :n[j] +1;
end;for i :=1 to count do begin
m :=0;m1 :=0;
for j:=1 to 26 do begin
if n[j]>m then begin m :=n[j];m1 :=j;end;
end;if m>0 then writeln(chr(m1+ord('a')-1), m : 8);
n[m1] :0;
end;end.
2樓：show者無畏
主程液汪枝序：
beginwhile not eof dobeginread(ch1);
inc(a[ord(ch1)-98],1);
end;for i:=0 to 25 doif a[i]>鬧敏陵輪0 then writeln(chr(i+98),a[i]);
end.
pascal 程式設計問題 （剛入門pascal，才學到迴圈，陣列，字串什麼的都沒學）
3樓：網友
雙重迴圈你應該會了吧，列印圖形自古以來就只有兩種演算法，一種是老老實實的對每個點進行描述，另一種是找到這些點的規律，不用說也知道你需要的是第二種。
要列印乙個邊長為n的直角三角形，我猜想題目要求應該還有等腰兩個字，也就是45°的直角三角形，我們會需要一塊「畫布」：乙個n*n大小的畫布，我們用空格字元來表示空白畫布，我們用*字元來表示乙個點，那麼將採用乙個雙重巢狀迴圈來列印畫布，一層列印縱向一層列印橫向，縱向的迴圈體很簡單，執行橫向的迴圈體和換行，橫向的迴圈體裡邊巢狀乙個條件語句，if，如果當前點滿足圖形要求則列印成*，否則列印成空格。
再說圖形要求，我們知道我們的「畫布」座標系原點在左上角，右是x軸正向，下是y軸正向，等直三角形的邊應該就可以求出來了，x=0,y=0,y=n-x-1,知道三條邊的方程，題目就做完了，pascal語法我不瞭解，給你寫個c的**，看了上邊的思路你應該能看懂了：
int main()else
printf("");列印換行。
4樓：防彈的
要看你要什麼樣的直角三角形。。。
1.直角在左上角。
vari,j,n:integer;
beginreadln(n);
for i:=n downto 1 do
beginfor j:=1 to i dowrite('*
writeln;
end;end.
2.直角在左下角。
vari,j,n:integer;
beginreadln(n);
for i:=1 to n do
beginfor j:=1 to i dowrite('*
writeln;
end;end.
3.直角在右上角。
vari,j,n:integer;
beginreadln(n);
for i:=0 to n-1 do
beginfor j:=1 to i dowrite('
for j:=1 to n-i do
write('*
writeln;
end;end;
4.直角在右下角。
vari,j,n:integer;
beginreadln(n);
for i:=n-1 downto 0 dobeginfor j:=1 to i dowrite('
for j:=1 to n-i do
write('*
writeln;
end;end.
至於原理很簡單，自己手工走一邊程式就清楚了。
希望我的能對你有所幫助。
求助求助，這道題要怎麼做呀？求助這道題怎麼做
此題很好計算，直接用特殊解法求解，首先直線的斜率是 3代表其傾斜角為60度，橢圓是中心對稱圖形，過原點的直線與橢圓截得的弦關於原點對稱，所以原點o是cd的中點，希望幫助到你！下面的解法是屬於通解通法，也許不是最簡便，過原點的直線為y 3x,交橢圓於p x1,3x1 q x2,3x2 二點。用二點間距...
幫下忙做下題，親們，幫下忙，做下題！
192.168.4.64 26 為銷售部。ip範圍為192.168.4.64 192.168.4.127 192.168.4.128 27為售後部。ip範圍為192.168.4.128 192.168.4.159 好的請你等待一下下 vlsm法 首先我們找個最大的網路，即銷售部，需要50臺主機。那麼...
這道java程式題應該怎麼寫啊，麻煩幫寫一下
public abstract class rolepublic class magicer extends rolepublic void setdj int dj override public int attack public class soldier extends rolepublic...