pascal7 0程式設計分解各位數字程式

2024-12-27 17:30:07 字數 4245 閱讀 7205

1樓:我的偶像是周瑜

樓上的,是各位數字啊!小學語文沒學好啊。

我假設這個數是a好了,數字存在r裡。沒除錯過啊,可能有錯誤。

var a,i:longint;

r:array[1..10]of 0..9;

beginreadln(a);

i:=1;while a>0 do

beginr[i]:=a mod 10;

a:=a div 10;

inc(i);

end;end.

2樓:網友

也很簡單啊。

var s:string;

i,l:longint;

beginread(s);

l:=length(s);

for i:=1 to l do beginwrite(s[i],'

end;end.

字串一下子搞定了。

樓上的是錯的。

不信樓主試試。

程式設計,數字計算與實際程式

3樓:匿名使用者

你積累的專業知識還不夠,你需要打好基礎,再想後面的環節!

c語言程式設計--對稱數

4樓:設計複雜

1、首先開啟電腦,然後在電腦中找到並開啟dev-c++軟體,編寫**的整體框架。

2、然後輸入要查詢的範圍100--999。

3、輸入查詢範圍之後,接下來可以在for之前補充定義三個變數。

4、然後取出這個數的各個位數。

5、接下來開始編寫if判斷語句,就完成了。

5樓:網友

#include

#include

#include

int main()

int a,b, num,i,j;

gets(str);

num=strlen(str);

a=atoi(str);

if(num%2==0)

int a,b, num,i,j;

int index;

dowhile(num==0);

a=atoi(str);

index=num/2-1;

找出離數字「中心」最近的第乙個不對稱的位置*/

while(index>=0 &&str[index]==str[num-index-1])

if(index>=0)

由於str[index]* 所以index2肯定能找到,不會出現index2<0的情形。

str[index2]=str[index2]+1;

str[num-index2-1]=str[index2];

高位累加後,中間位置可以清零,數會比較小*/

for(i=index2+1; i}for(i=0,j=num-1; i<=index; i++,j--)

b=atoi(str);

printf("%d,%d,%d",a,b,b-a);

return 0;}

6樓:網友

樓上有乙個**找的是大於等於輸入的迴文數有違題意,而且在從中間判斷9的時候位置並不準確,稍加修改後**如下。

#include

#include

#include

int f(int n)

int main()

int a,b=0, num,i,j;

int index;

dowhile(num==0);

a=atoi(str);

index=num/2-1;

找出離數字「中心」最近的第乙個不對稱的位置*/while(index>=0 &&str[index]==str[num-index-1])

if(index>=0) //若輸入的不是迴文數/*由於str[index]=0) index2--;

if(index2>=0)

for(i=index2+1; iif(index2<0)

b+=atoi(str);

printf("%d,%d,%d",a,b,b-a);

return 0;}

7樓:

你的計算裡有許多 num/2 ,可以在前面 用 int n5; n5 = num/2; 只算一次,程式裡的 num/2 改寫為 n5。這能省很多時間。

你的計算原理,我沒能看懂,所以沒給你改。

有個簡單的/笨的方法,就是原數加1,乙個乙個查詢對稱數,時間不知道是否滿足要求:

#include

#include

#include

int main()

s2[10];

int num,n,n5,i;

int64 aa,bb,cc;

gets(str);

num = strlen(str);

sscanf(str,"%i64d", &aa);

if (aa < 11)

bb = aa;

while (1) while( i < n5);

break;

printf("%i64d,%i64d,%i64d",aa,bb,bb-aa);

return 0;

供參考。

c++程式設計把18元錢分成一元、二元和五元的紙幣且紙幣張數共為10張的分法有多少

8樓:喻元愷

這個很簡單的了哈。

int x,y,z;

for (x=1 ;x<=18;x++)

for(y=1;y<=18;y++)

for (z=1;z<=18;z++)

編寫程式對任意乙個正整數進行分解,把每個數字分離出來,並判斷它是幾位數。c#

9樓:網友

這個不是很簡單嘛,自己想下吧。

10樓:

估計沒什麼人給你寫。

c語言程式設計:比較兩個數的大小

11樓:網友

1 輸入兩個數值。

2 比較大小。

3 輸出結果。

以整型為例,**如下:

#include

int main()

int a,b;

scanf("%d%d",&a,&b);

if(a>b) printf("%d>%d",a,b);

else printf("%d<%d",a,b);

12樓:電子情感解答達人

第一種方法:

使用if分支語句。

#include

int main()

第二種方法:

使用函式。#include

int max(int x,int y)

int main()

提問那請問一下 整數如何輸出它的符號嗎。

提問好的,麻煩您了。

提問[吃鯨]好的呢。

麻煩您可以再幫我一下嘛。

第二份哈[比心]

13樓:心碎不能救

//下面這個程式 也是正確的 關鍵是定義了兩個全域性變數 將函式swap 內的值 傳出來 (也可以不使用指標)

# include

int c , d; //定義全域性變數 c dvoid swap(int x,int y)int main (void)

int main (void)

int a ,b;

a=5;b=9;

if(a

shell程式編寫程式計算乙個數中各位數字的和

14樓:網友

可以這樣寫。

#!/bin/bash

echo -n "your numnber: "

read num

len=$(echo $num | wc -c)sum=0

for ((i=1;i<$len;i++)dosum=$((sum + echo $num | cut -c $i)))

doneecho "sum of '$num' is $sum"

執行結果:your numnber: 12

sum of '12' is 3

在執行一次。

your numnber: 1729

sum of '1729' is 19

pascal教程,怎麼使用pascal

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

pascal題。幫忙,pascal題。幫忙!!!

我這樣做 整數列嘛 首先就先輸入一個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 ...

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....