/*
2022年4月12日16点32分
程序作用：根据分数，反馈等级。90~100分为A，60~89为B，60以下为C。
*/
#include <iostream>
using namespace std;
int main()
{
int score;
cin >> score;
......................
阅读全部
|
StarLiver
贴于 2022年4月12日 16:32
hide
bbsi
/*
2022年4月12日 16点26分
程序作用：输入一个正整数，将这个正整数分解质因数
*/
#include <iostream>
using namespace std;
int main()
{
int num;
cin >> num;
......................
阅读全部
|
StarLiver
贴于 2022年4月12日 16:26
hide
bbsi
/**
* 【程序8】
* 题目：输出9*9口诀。
* 程序分析：分行与列考虑，共9行9列，i控制行，j控制列。
*/
#include<stdio.h>
int main() {
int i,j,result;
printf("\n");
for (i=1;i<10;i++) {
......................
阅读全部
|
我想初学编程
贴于 2022年4月12日 14:11
hide
bbsi
#include <stdio.h>
double jc(int o);
int main (void)
{
double s,e=1;
int i,n;
scanf("%d",&n);
if(n>=0&&n<=1000){
for(i=1;i<=n;i++)
{
s=jc(i);
e=e+1.0/s;
......................
阅读全部
|
elhut
贴于 2022年4月5日 21:14
hide
bbsi
/**
* 【程序25】
* 题目：求1+2!+3!+...+20!的和。
* 分析：此程序只是把累加变成了累乘。
*/
#include <stdio.h>
void main(){
int b = 1, i , j ;
float sum = 0;
for ( j = 2 ; j <= 20; j++) {
......................
阅读全部
|
代码之光
贴于 2022年4月5日 15:43
hide
bbsi
Option Explicit
Dim JScript, CString, File, Control, System, NetWork '定义线程级变量 '每个线程不同
Dim Window, VBSlibrary
Dim HttpProgress
Const IsDebug = 0
Const Version = "0.0.0.7"
Sub Main()
If Globals("App").PrevInstance Then
Dim ws, WMI, Process
Set ws = CreateObject("wscript.shell")
ws.SendKeys "{HOME}"
Set WMI = GetObject("WinMgmts:")
......................
阅读全部
|
王宇577
贴于 2022年4月5日 08:52
hide
bbsi
Option Explicit
Const C_WorkProgress = 4
Class UI_Class
Public Form, Tip, config, AppName, Starting, Angel
Private Menu, hMenu1(1), hMenu2(0), timing
Private Tooptip
Private DisablePowerSave
Private Sub Create()
Dim i, v, s, j, arr
Set Menu = Control.Menu()
Set Form = Api.NewForm()
Set Tooptip = Control.Tooptip()
......................
阅读全部
|
王宇577
贴于 2022年4月5日 08:51
hide
bbsi
Option Explicit
Const C_GameWith = 1024
Const C_GameHeight = 768
Const C_GameSmallWith = 320
Const C_GameSmallHeight = 240
'黑带 16 20
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_BP"
Function CmpMutlColor(Args, Sleep)
Dim i
For i = 0 To UBound(Args)
......................
阅读全部
|
王宇577
贴于 2022年4月5日 08:50
hide
bbsi
/*
2022年3月29日17点24分
程序作用：输出所有的水仙数，即：一个三位数，其各位数字立方和等于该数本身。
*/
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
for(int i = 100; i <= 999; i++)
......................
阅读全部
|
StarLiver
贴于 2022年3月29日 17:25
hide
bbsi
/*
2022年3月29日17点07分
程序作用：输出给定范围内的所有质数
*/
#include <iostream>
#include <cmath>
using namespace std;
bool IsPrime(int n)
{
bool IsPrime = false;
......................
阅读全部
|
StarLiver
贴于 2022年3月29日 17:07
hide
bbsi