pascal數字圖形輸出,PASCAL數字圖形輸出

2022-02-21 04:51:10 字數 1104 閱讀 1732

1樓:匿名使用者

readln(n);

k:=0;i:=0;j:=0;

while k<=n do

begin

inc(i);

for j:=1 to i do

begin

inc(k);

write(k);

if j<>i

then write(' ');

if k>n

then break;

end;

writeln;

if k>n

then break;

end;

2樓:餾纞伱の微笑

我這個肯定好使,我有試過

varm,n,c,d,i:longint;

a:array[1..25,1..25] of longint;

begin

i:=0;

readln(n);

m:=trunc(sqrt(2*n));

for c:=1 to m do

for d:=1 to c do

begin

inc(i);

if i>n then break;

a[c,d]:=i;

end;

for c:=1 to m do

begin

for d:=1 to m-c do write('':3);

for d:=1 to c do if a[c,d]<>0 then write(a[c,d]:3);

writeln;

end;

end.

3樓:遊海穎

vari,a,l,s:longint;

begin

readln(a);

for i:=1 to a do

begin

for l:=1 to i do

begin

s:=s+1;

if s>a then exit;

write(s,' ');

end;

writeln;

end;

end.

設計程式輸出圖形,設計一個程式輸出圖形

include int main 一個簡單的方法 printf n空一格 空兩格 n空三格 設計c語言程式輸出一下圖形 include main for i 0 i 2 i getch include void main for i 3 i 1 i cout lz給分啊 編寫一個程式,輸出以下圖形 ...

c 怎麼輸出長數字?如,c 怎麼輸出長數字? 如

利用字串吧。老鄉,你怎麼把身份證號拿出來了。字串是一個不錯的選擇,當然也可以不用字串,只要把變數的資料型別擴大即可,比如專說把屬 int a 改為 long int a 或者改為 unsigned long int a 只能表示正數。就行了,資料範圍差不多夠用了。輸出你的身份證號碼夠用了哦 o 哈哈...

pascal去掉陣列中重複數字,並把後面的遷移

var a array 1.256 of integer x,n,i,j integer begin readln n for i 1 to n do read a i readln i 1 while ij i 1 whie j n do begin if a j a i then beginfo...