单老师要的问题

水仙花数
python版

k = int(input("请输入一个数"))
bw = k // 100
sw = k // 10 % 10
gw = k % 10
print(bw, sw, gw)
if k == bw ** 3 + sw ** 3 + gw ** 3:
    print(f"{k}是水仙花数")
else:
    print(f"{k}不是水仙花数")

C

#include <stdio.h>
int main()
{
    int bw, sw, gw, k;
    printf("请输入一个正整数：");
    scanf("%d",&k);  
    bw = int(k / 100);
    sw = int(k / 10) % 10;
    gw = k % 10;
    if(k == bw*bw*bw + sw*sw*sw + gw*gw*gw)
            printf("%d是水仙花数", k);
    }else{
            printf("%d不是是水仙花数", k);
    }
    return 0;
}

VB

Private Sub Form_Click()
Dim q As Integer
Dim b As Integer
Dim s As Integer
Dim n As Integer
For n = 100 To 999
    q = n \ 100
    b = (n - q * 100) \ 10
    s = n Mod 10
    If ((q * q * q + b * b * b + s * s * s) = n) Then
        Print n
    End If
Next

素数
Python版本

k = int(input("请输入一个大于2的数"))
for i in range(2, k):
    if k % i == 0:
        print(f"{k}不是素数")
        break
else:
    print(f"{k}是素数")

#include <stdio.h>
int main(){
    int a=0;  // 是否素数
    int num=0;  // 输入的整数
    printf("输入一个整数：");
    scanf("%d",&num);
    for(int i=2;i<num;i++){
        if(num%i==0){
            a = 1
            break
        }
    }
    if(a==0){
        printf("%d是素数。\n", num);
    }else{
        printf("%d不是素数。\n", num);
    }
    return 0;
}

VB

Private Sub Command1_Click()
Dim yn As Boolean '为真表示是素数
Dim i As Integer, j As Integer, x As Integer
For i = 1 To 100
    yn = True          '为真表示是素数，否则就不是，先默认为是素数
    For j = 2 To i - 1        '素数要大小1,所以循环从2开始，素数不包括本身，所以循环终值减小1
        If i Mod j = 0 Then yn = False   '如果能整除就不是素数
    Next j
    If yn = True Then Print i; '如是素数，就在窗体上输出素数
Next i
End Sub

输入十个数，从小到大

k = []
for _ in range(10):
    n = eval(input("请输入一个数"))
    k.append(n)
for i in range(10):
    for j in range(0, n-i-1):
        if k[j] > k[j+1]:
            k[j], k[j+1] = k[j+1], k[j]
print(k)

C

#include <stdio.h>
int main(){
    int i,j,a[10],t;
    printf("输入数");
    for (i = 0; i < 10; i++)
        scanf("%d",&a[i]);
    for (i = 0; i < 10; i++){
        for (j = i + 1; j < 10;j++) 
            if (a[i] < a[j]){
                 t = a[i];
                a[i] = a[j];
                a[j] = t;
            }
    }
    printf("从大到小");
    for (i = 0; i < 10; i++)
        printf("%2d", a[i]);
    return 0;
}

VB

Dim a As String
Dim arr(1 To 10) As Integer
Dim i, j, t As Integer
Private Sub Command1_Click()
For i = 1 To 10
    a = InputBox("请输入第" & i & "个值")
    arr(i) = Val(a)
Next i
For i = 1 To 9
    For j = 1 To 9
        If arr(j) > arr(j + 1) Then
            t = arr(j + 1): arr(j + 1) = arr(j): arr(j) = t
        End If
    Next j
Next i
For i = 1 To 10
    Print arr(i)
Next i
End Sub

菱形

for i in range(5):
    print(" "*(5-i-1), end="")
    print("* "*(i+1))
for i in range(4):
    print(" " * (i + 1), end="")
    print("* " * (5 - i - 1))

C

#include <stdio.h>
int main(){
    int i = 0
    int k = 0
    for (i = 0; i < 5;i++){
         for (k=0; k<5-i-1;k++){
               printf(" ")
         }
         for (k=0; k<i+1;k++){
               printf("* ")
         }
         printf("\n")
    }
    for (i = 0; i < 4;i++){
         for (k=0; k<i+1;k++){
               printf(" ")
         }
         for (k=0; k<5-i-1;k++){
               printf("* ")
         }
         printf("\n")
    }
    return 0;
}

VB

Private Sub Form_Click()
Dim i As Integer
Dim q As Integer
For i = 1 To 5
    For k = 1 To 5-i
        print " ";
    Next k
    For k = 1 To i
        print "* ";
    Next k
    print ""
Next i
For i = 1 To 4
    For k = 1 To i
        print " ";
    Next k
    For k = 1 To 5-i
        print "* ";
    Next k
    print ""
Next i

斐波拉契
python

k = int(input("请输入斐波拉契数列的项数"))
n = []
for i in range(k):
    if i < 2:
        n.append(1)
    else:
        n.append(n[-1]+n[-2])
print(n)

C

#define _CRT_SECURE_NO_WARNINGS
#include <stdio.h>
#include <stdlib.h>
int main()
{
 int n = 0;
 int a = 1;
 int b = 1;
 int c = 0;
 int i = 0;
 scanf("%d", &n);
 printf("%5d %5d ", a, b);
 for (i = 0; i < n - 2;i++)
 {
   c = a + b;
   a = b;
   b = c;
   printf("%5d ", c);
 }
 printf("\n");
 system("pause");
 return 0;
}

VB

Function f(ByVal n As Double) As Double     '定义求第n项值的函数
   If n = 1 Then
       f = 0
   ElseIf n = 2 Then
       f = 1
   Else
       f = f(n - 1) + f(n - 2)
   End If
End Function

最大公约数

k = input("请输入两个数，用空格隔开")
a, b = k.split(" ")
c, d = max(int(a),int(b)), min(int(a), int(b))
while c % d != 0:
    c, d = d, c % d
print(f"最大公约数是{d}, 最小公倍数是{int(a) * int(b) // d}")

C

int main(void)
{
printf("这是两个整数求最大公约数的算式，请输入两个不相等的正整数，并按回车键确认：\n"); //操作提示
intm,n,r,i; //定义四个整形变量
scanf("%d %d",&m,&n); //输入m和n的值
if(m<n) {i=m;m=n;n=i;} //如果m<n，借用变量i进行m和n的数值互换
while(m%n!=0) //m取模n 赋值给r
{r=a%b;m=n;n=r;} //余数不等于0，则n的值给m，r的值给n，再次进入循环
printf("它们的最大公约数是%d\n",n);
system("PAUSE");
return 0;
}

VB

Private Sub Command1_Click()
Dim a As Long, b As Long, t As Long
a = Val(Text1.Text)
 b = Val(Text2.Text)
If a < b Then
t = a
a = b
b = t
End If
r = a Mod b
Do Until r = 0 Or r = 1
a = b
b = r
r = a Mod b
Loop
If r = 1 Then MsgBox "最大公约数为1", vbOKOnly, "提示"
If r = 0 Then MsgBox "最大公约数为" & b, vbOKOnly, "提示"
End Sub
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
  • 人面猴
    序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
    沈念sama阅读 159,290评论 4赞 363
  • 死咒
    序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
    沈念sama阅读 67,399评论 1赞 294
  • 救了他两次的神仙让他今天三更去死
    文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
    开封第一讲书人阅读 109,021评论 0赞 243
  • 道士缉凶录：失踪的卖姜人
    文/不坏的土叔 我叫张陵，是天一观的道长。 经常有香客问我，道长，这世上最难降的妖魔是什么？ 我笑而不...
    开封第一讲书人阅读 44,034评论 0赞 207
  • 港岛之恋（遗憾婚礼）
    正文 为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
    茶点故事阅读 52,412评论 3赞 287
  • 恶毒庶女顶嫁案：这布局不是一般人想出来的
    文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
    开封第一讲书人阅读 40,651评论 1赞 219
  • 城市分裂传说
    那天，我揣着相机与录音，去河边找鬼。 笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。 我是一名探鬼主播，决...
    沈念sama阅读 31,902评论 2赞 313
  • 双鸳鸯连环套：你想象不到人心有多黑
    文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
    开封第一讲书人阅读 30,605评论 0赞 199
  • 万荣杀人案实录
    序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
    沈念sama阅读 34,339评论 1赞 246
  • 护林员之死
    正文 独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 30,586评论 2赞 246
  • 白月光启示录
    正文 我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 32,076评论 1赞 261
  • 活死人
    序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
    沈念sama阅读 28,400评论 2赞 253
  • 日本核电站爆炸内幕
    正文 年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
    茶点故事阅读 33,060评论 3赞 236
  • 男人毒药：我在死后第九天来索命
    文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 26,083评论 0赞 8
  • 一桩弑父案，背后竟有这般阴谋
    文/苍兰香墨 我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 26,851评论 0赞 195
  • 情欲美人皮
    我被黑心中介骗来泰国打工， 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。 一个月前我还...
    沈念sama阅读 35,685评论 2赞 274
  • 代替公主和亲
    正文 我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
    茶点故事阅读 35,595评论 2赞 270