代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/233421/14154403
pas unit2.pas
unit Unit2;
interface
uses
unit1;
Procedure BALANC(var A:matrx2; N:integer);
Procedure ELMHES(var A:matrx2; N:integer);
implementation
Procedure BALANC(var A:matrx2; N:integer);
Label 1,
www.eeworm.com/read/231652/14225013
pas ac1045.pas
program ural1045;
const
maxn=1000;
var
e:array[1..maxn,0..20]of integer;
v:array[1..maxn]of boolean;
n,k,i,x,y:integer;
function win(x:integer):boolean;
var
i:byte;
begin
www.eeworm.com/read/231652/14225227
pas ac1273.pas
program ural1273;
const
maxk=100;
var
a,b:array[1..maxk]of integer;
k,i,j,l,r,m:shortint;
t:integer;
begin
read(k);
for i:=1 to k do
read(a[i],b[i]);
for i:=1 to k-1 do
www.eeworm.com/read/128452/14298010
pas sysutils.pas
{ *********************************************************************** }
{ }
{ Delphi / Kylix Cross-Platform Runtime Librar
www.eeworm.com/read/125782/14461971
ads ncurses2-getopt.ads
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Bind
www.eeworm.com/read/225952/14509960
txt southsaint.txt
Option Explicit
Option Base 1
Const nsr As Integer = 200
Private ct, p, v, dtt As Single
Private ib As Integer
Private DXX(nsr), CNO(nsr), ZZ(nsr), QQ(nsr), PP(nsr),
www.eeworm.com/read/124221/14588269
txt elmhes.txt
Procedure ELMHES(var A:matrx2; N:integer);
var
M,J,I:integer; X,Y:real;
begin
If N > 2 Then
begin
For M:=2 To N - 1 do
begin
X:=0 ;
I:=M;
www.eeworm.com/read/124221/14589219
pas unit2.pas
unit Unit2;
interface
uses
unit1;
Procedure BALANC(var A:matrx2; N:integer);
Procedure ELMHES(var A:matrx2; N:integer);
implementation
Procedure BALANC(var A:matrx2; N:integer);
Label 1,
www.eeworm.com/read/123789/14612534
c lmdif.c
/* lmdif.f -- translated by f2c (version of 17 January 1992 0:17:58).
You must link the resulting object file with the libraries:
-lf77 -li77 -lm -lc (in that order)
*/
#include "f2c.h"
/* Ta
www.eeworm.com/read/122037/14724558
txt elmhes.txt
Procedure ELMHES(var A:matrx2; N:integer);
var
M,J,I:integer; X,Y:real;
begin
If N > 2 Then
begin
For M:=2 To N - 1 do
begin
X:=0 ;
I:=M;