代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/382440/9029217
txt factln.txt
Function FACTLN(N:integer):real;
var
I:integer;
A:array[1..100] of real;
begin
For I:=1 To 100 do
A[I]:=-1;
If N < 0 Then ShowMessage('警告：现在N
www.eeworm.com/read/382440/9029274
txt bessi.txt
Function BESSI(N:integer; X:real):real;
const
IACC = 40; BIGNO = 1.e10;
BIGNI = 1.e-10;
var
TOX,BIP,BI,BIM,ANS:real; M,J:integer;
begin
If N < 2 Then
ShowMessage('ba
www.eeworm.com/read/382440/9029286
txt ass.txt
Function ASS(N:integer; B:real):real;
var
DB:real;A:array[1..15] of real; I:integer;
begin
A[1]:=Exp(-B) / B;
If N = 1 Then
ASS:=A[N]
else
begin
DB:=1 / B;
www.eeworm.com/read/382436/9029417
txt pendag.txt
procedure PENDAG(A,B,C,D,E,R:array of real;var U:array of real; N:integer);
var
W,BETA,ALPHA,CG,H:array[0..100] of real;
K:integer;
begin
W[1]:=C[1];
BETA[1]:=0;
BETA[2]:=D[
www.eeworm.com/read/382436/9029442
txt qrbksb.txt
procedure QRBKSB(A:matrx2; N:integer; Q:matrx2; B:array of real;
var X:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
www.eeworm.com/read/382436/9029460
txt chobsb.txt
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
www.eeworm.com/read/185574/9029828
frm frmmain.frm
VERSION 5.00
Object = "{02BEE3A6-4264-45B0-93C8-76FBBA329150}#5.2#0"; "SuperLegend.ocx"
Object = "{A61255F7-0A20-431C-86CE-78C14314BE9E}#5.2#0"; "SuperWkspManager.ocx"
Object = "{03ED3B1E-ED1B-4A2E
www.eeworm.com/read/382385/9032557
java mystery.java
package mystery;
import java.io.*;
/*该程序用于输出所谓的“魔幻矩阵”——即用户输入所需要矩阵的行数（前提为奇数，否则程序发送错
*误信息提醒用户输入正确数据），然后程序输出每行，每列以及对角线上的各数之和为同一个数。*/
public class Mystery {
public static void main(String[] args)
www.eeworm.com/read/283196/9036728
c mmap.c
/* We start by defining a RECORD structure
and then create NRECORDS versions each recording their number.
These are appended to the file records.dat. */
#include
#include
www.eeworm.com/read/185427/9038616
ctl qqform.ctl
VERSION 5.00
Begin VB.UserControl QQForm
AutoRedraw = -1 'True
ClientHeight = 3600
ClientLeft = 0
ClientTop = 0
ClientWidth = 4800
ControlCo