正文

設(shè)計(jì)vi 計(jì)算階乘（設(shè)計(jì)vi,計(jì)算階乘）

發(fā)布時(shí)間：2023-05-01 13:11:38 稿源：創(chuàng)意嶺閱讀： 138

大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于設(shè)計(jì)vi 計(jì)算階乘的問題，以下是小編對此問題的歸納整理，讓我們一起來看看吧。

開始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對話答疑等等，官網(wǎng)：https://ai.de1919.com

創(chuàng)意嶺專注品牌設(shè)計(jì)、策劃，為各大上市企業(yè)、個(gè)人提供一站式設(shè)計(jì)、策劃服務(wù)，服務(wù)客戶遍布全國，咨詢相關(guān)業(yè)務(wù)請撥打電話：175-8598-2043，或添加微信：1454722008

本文目錄:

利用矩陣式鍵盤,設(shè)計(jì)一個(gè)10以內(nèi)數(shù)的階乘計(jì)算器,計(jì)算結(jié)果用六位數(shù)碼管顯示？
編寫VB階乘的函數(shù)
labview創(chuàng)建階乘程序
設(shè)計(jì)vi,用 for循環(huán)求n的階乘

設(shè)計(jì)vi 計(jì)算階乘（設(shè)計(jì)vi,計(jì)算階乘）

利用矩陣式鍵盤,設(shè)計(jì)一個(gè)10以內(nèi)數(shù)的階乘計(jì)算器,計(jì)算結(jié)果用六位數(shù)碼管顯示？

首先，我們需要選擇一種合適的單片機(jī)進(jìn)行編程。在本例中，我們可以選擇AT89S52單片機(jī)作為主控芯片。

接下來，我們需要設(shè)計(jì)電路圖并進(jìn)行硬件搭建。按照題目要求，我們需要使用矩陣式鍵盤和六位數(shù)碼管?？赏ㄟ^鏈接進(jìn)行查看：

https://www.easyeda.com/claraliu/matrix-keyboard-and-6-digit-display

接下來，我們需要編寫程序?qū)崿F(xiàn)階乘計(jì)算功能并將結(jié)果顯示在六位數(shù)碼管上。以下是具體的程序?qū)崿F(xiàn)方式：

首先定義一個(gè)用于保存輸入數(shù)字的變量，并初始化為0；另外還需要定義一個(gè)用于保存階乘結(jié)果的變量。

2.然后通過鍵盤讀取用戶輸入的數(shù)字，并進(jìn)行判斷是否小于等于10。如果不是，提示用戶重新輸入。

3.接著，通過一個(gè)循環(huán)語句計(jì)算出所輸入數(shù)字的階乘，并將結(jié)果保存到之前定義的結(jié)果變量中。

4.最后，將計(jì)算出的階乘結(jié)果轉(zhuǎn)換為六位十進(jìn)制數(shù)，并通過數(shù)碼管進(jìn)行顯示。

以下是完整程序的示例：

#include <reg52.h> // 包含AT89S52頭文件

#define uchar unsigned char // 定義uchar類型

#define uint unsigned int // 定義uint類型

sbit LSA = P2^2; // 設(shè)置LSA-P2.2引腳

sbit LSB = P2^3; // 設(shè)置LSB-P2.3引腳

sbit LSC = P2^4; // 設(shè)置LSC-P2.4引腳

uchar code table[]={ // 建立表格實(shí)現(xiàn)數(shù)碼管顯示

0xc0,0xf9,0xa4,0xb0,

0x99,0x92,0x82,0xf8,

0x80,0x90,0xbf,0xff,

0x88,0x83,0xc6,0xa1};

void delay(uint i) // 延時(shí)函數(shù)

{

while(i--);

}

void Display(uchar FirstBit,uchar Num) // 數(shù)碼管顯示函數(shù)

{

LSA=FirstBit; // 選擇哪一位數(shù)碼管

P0=table[Num]; // 顯示數(shù)字

delay(100); // 延時(shí)一段時(shí)間

P0=0xff; // 關(guān)閉數(shù)碼管

}

void main()

{

uchar input_num = 0; // 輸入的數(shù)字

uint result = 1; // 階乘結(jié)果

uchar i; // 循環(huán)計(jì)數(shù)器

while(1)

{

P1 = 0xf0;

if(P1 != 0xf0) // 如果有鍵按下

{

delay(1000); // 延時(shí)去抖

if(P1 != 0xf0) // 確認(rèn)是否有鍵按下

{

switch(P1) // 判斷按下的是哪個(gè)鍵

{

case 0x7f: input_num = 1;break;

case 0xbf: input_num = 2;break;

case 0xdf: input_num = 3;break;

case 0xef: input_num = 10;break;

}

break; // 跳出while循環(huán)

}

if(input_num != 0 && input_num <= 10) // 判斷輸入的數(shù)字是否符合要求

{

for(i = 1; i <= input_num; i++) // 計(jì)算階乘

{

result *= i;

}

else

{

P1 = 0xfe;

Display(0,result/100000); // 顯示結(jié)果

Display(1,(result%100000)/10000);

Display(2,(result%10000)/1000);

Display(3,(result%1000)/100);

Display(4,(result%100)/10);

Display(5,result%10);

}

最后，我們需要將程序下載到單片機(jī)中，并將硬件連接好。這樣，當(dāng)用戶輸入一個(gè)1-10之間的數(shù)字時(shí)，該計(jì)算器就會(huì)

編寫VB階乘的函數(shù)

1、vb代碼中，求一個(gè)數(shù)的階乘的函數(shù)代碼如下：

Public Function jiecheng(ByVal n As Integer) As Double
        Dim jc As Double
        jc = 1
        For i = 1 To n
            jc = jc * i
        Next
        jiecheng = jc
    End Function

2、具體用法：首先打開VB6.0，新建一個(gè)標(biāo)準(zhǔn)exe工程；

3、在設(shè)計(jì)界面上添加一個(gè)Command控件，Command1的Caption屬性設(shè)置為"N的階乘"。
4、雙擊Command1控件進(jìn)入代碼編輯界面，編輯代碼如下：

Public Function jiecheng(ByVal n As Integer) As Double
        Dim jc As Double
        jc = 1
        For i = 1 To n
            jc = jc * i
        Next
        jiecheng = jc
    End Function
Private Sub Command1_Click()
Dim sum As Double, n As Integer
n = InputBox("計(jì)算的N的階乘，請輸入數(shù)字N")
sum = jiecheng(n)
MsgBox (sum)
End Sub

5、運(yùn)行新建的工程，單擊按鈕，輸入要計(jì)算的N的階乘的數(shù)字N，得出階乘結(jié)果。

設(shè)計(jì)vi 計(jì)算階乘（設(shè)計(jì)vi,計(jì)算階乘）