代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/176119/9515521
f90 fleg.f90
SUBROUTINE fleg(x,pl,nl)
INTEGER nl
REAL x,pl(nl)
INTEGER j
REAL d,f1,f2,twox
pl(1)=1.
pl(2)=x
if(nl>2) then
twox=2.*x
f2=x
d=1.
do j=3,nl
f1=d
f2=f2+twox
d=d+1.
www.eeworm.com/read/176119/9515567
f90 piksrt.f90
SUBROUTINE piksrt(n,arr)
INTEGER n
REAL arr(n)
INTEGER i,j
REAL a
do j=2,n
a=arr(j)
do i=j-1,1,-1
if(arr(i)
www.eeworm.com/read/176119/9515591
f90 qrdcmp.f90
SUBROUTINE qrdcmp(a,m,n,q)
REAL a(n,n),q(m,m)
INTEGER i,k,j
REAL s,t,f,h
do i=1,m
do j=1,m
q(i,j)=0.
end do
q(i,i)=1.
end do
do k=1,m-1
s=0.
do i=k,m
s=s+abs(a(i,k))
www.eeworm.com/read/176119/9515672
f90 splint.f90
SUBROUTINE splint(xa,ya,y2a,n,x,y)
INTEGER n
REAL aaa,x,y,xa(n),y2a(n),ya(n)
INTEGER k,khi,klo
REAL a,b,h
klo=1
khi=n
do
aaa=0
if (khi-klo>1) then
aaa=2.
k=(khi+klo)/2
if(x
www.eeworm.com/read/176119/9515716
f90 bessi.f90
FUNCTION bessi(n,x)
INTEGER n,IACC
REAL bessi,x,BIGNO,BIGNI
PARAMETER (IACC=40,BIGNO=1.0e10,BIGNI=1.0e-10)
!USES bessi0
INTEGER j,m
REAL bi,bim,bip,tox,bessi0
if (n
www.eeworm.com/read/176119/9515727
f90 plgndr.f90
FUNCTION plgndr(l,m,x)
INTEGER l,m
REAL plgndr,x
INTEGER i,ll
REAL fact,pll,pmm,pmmp1,somx2
if(ml.or.abs(x)>1.) pause&
'bad arguments in plgndr'
pmm=1.
if(m>0) then
so
www.eeworm.com/read/176119/9515759
f90 factln.f90
FUNCTION factln(n)
INTEGER n
REAL factln
!USES gammln
REAL a(100),gammln
SAVE a
DATA a/100*-1./
if (n
www.eeworm.com/read/372194/9517845
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, CL2005OCXLib_TLB, StdCtrls, ExtCtrls;
Const
LedType =
www.eeworm.com/read/176083/9517979
pl0 e111.pl0
PROGRAM EX01;
VAR A,B:INTEGER;
BEGIN
B:=1;
READ(A);
IF A0 THEN
WRITE(A)
ELSE
WRITE(B);
END.
www.eeworm.com/read/176083/9517994
pl0 ftd.pl0
PROGRAM FTD;
VAR
I:INTEGER;
BEGIN
FOR I:=3 DOWNTO 1 DO
WRITE(I);
FOR I:=0 TO 3 DO
WRITE(I)
END.