代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/237818/13927675
tmp mfc163.tmp
/*这是一个测试程序*/
Program abc;
Integer x,y,z;
Real a,b;
Procedure ab(Var m,n:Integer;t:Real);
Begin
t:=n+m;
If m>n then n:=m else t:=m;
While n
www.eeworm.com/read/237818/13927677
tmp mfc46c.tmp
/*这是一个测试程序*/
Program abc;
Integer x,y,z;
Real a,b;
Procedure ab(Var m,n:Integer;t:Real);
Begin
t:=n+m;
If m>n then n:=m else t:=m;
While n
www.eeworm.com/read/237818/13927738
pl0 test.pl0
/*这是一个测试程序*/
Program abc;
Integer x,y,z; /*变量声明*/
Real a,b;
Procedure ab(Var m,n:Integer; t:Real); /*过程*/
Begin
t:=n+m;
If m>n then /*条件语句*/
n:=m
els
www.eeworm.com/read/135438/13929068
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,unit1, Controls, Forms, Dialogs;
procedure BSSTEP(var Y, DYDX:array of real; NV:integer; var X1:real;
www.eeworm.com/read/135438/13929083
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes,unit1, Graphics, Controls, Forms, Dialogs;
procedure ODEINT(var YSTART:array of real; NVAR:integer;X1, X2, EPS,
H1, HMIN:rea
www.eeworm.com/read/135438/13929163
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,unit1, Controls, Forms, Dialogs;
Function GASDEV:real;
procedure KSTWO(DATA1:array of real; N1:integer;
www.eeworm.com/read/135438/13929209
pas unit2.pas
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,unit1, Controls, Forms, Dialogs;
Function GASDEV:real;
procedure KSONE(DATA:array of real; N:integer;var D, PROB:re
www.eeworm.com/read/135438/13929367
pas unit2.pas
unit Unit2;
interface
uses
unit1;
procedure MDIAN1(var X:array of real; N:integer;var XMED:real);
Function GASDEV:real;
procedure MDIAN2(X:array of real; N:integer;var XMED:real);
impleme
www.eeworm.com/read/135438/13929831
pas unit2.pas
unit Unit2;
interface
Function BS(N:integer; A:real):real;
implementation
Function BS(N:integer; A:real):real;
label 5,6,15;
var
B:array[1..20] of real;
DEL,R,EPS,S,AK,A2,DA,AJP,AJ
www.eeworm.com/read/135438/13930034
txt simp3.txt
Procedure SIMP3(var A:matrx2; MP, NP, I1, K1:integer;var IP, KP:integer);
var
PIV:real; II,KK:integer;
begin
PIV:=1 / A[IP + 1, KP + 1];
For II:=1 To I1 + 1 do
begin
I