代码搜索:continue
找到约 10,000 项符合「continue」的源代码
代码结果 10,000
www.eeworm.com/read/103672/15726814
for sub bupd.for
SUBROUTINE BUPD(N,ME,MI,M,NAMAX,X,NEWX,OGRA,CGRA,
* U,B,S,Y,BS,LG,LGNEW,W3,W4,W5,GRAD,IT,NG)
DOUBLE PRECISION X(N),NEWX(N),OGRA(N),CGRA(NAMAX,M),U(M),
* B(NAMAX,M),LG(N),LGNEW
www.eeworm.com/read/103672/15726816
for sub auxqp.for
SUBROUTINE AUXQP(N,ME,MI,M,NA,MEA,MA,NAMAX,CGRA,RHS,OGRA,B,PPRA)
DOUBLE PRECISION CGRA(NAMAX,M),RHS(M),OGRA(N),B(NAMAX,N),PPRA,
* SMALL
DATA SMALL/1.0D-3/
WRITE(6,100)
100 FO
www.eeworm.com/read/103672/15726817
for sub bwdsub.for
SUBROUTINE BWDSUB(N,NAMAX,D,TRANS,W)
DOUBLE PRECISION D(NAMAX,N),W(N)
LOGICAL TRANS
IF (TRANS)GOTO 3
DO 2 I=N,1,-1
DO 1 J=I+1,N
W(I)=W(I)-D(I,J)*W(J)
1 CONTINUE
W(I)=W(I)/D(I,I)
www.eeworm.com/read/103672/15726820
for sub check.for
SUBROUTINE CHECK(N,ME,MI,M,NAMAX,X,CFUN,CGRA,CGRA1,
* D1,AK,W0,W1,W2,W3,W4,CON1,GRAD,CORR,NF,NG)
DOUBLE PRECISION X(N),CFUN(M),CGRA(NAMAX,M),D1(N),AK(NAMAX,M),
* W0(N),W1(
www.eeworm.com/read/103443/15732262
cpp dowhlcmp.cpp
//这个程序在本书所带软盘中,文件名为DOWHLCMP.CPP
//这个程序保证只有输入n或N时,才停止程序的执行。
//这个程序可以是一个大程序的一部分。
#include
void main(void)
{
char ans;
do {
cout
www.eeworm.com/read/103430/15732765
c odd_even.c
#include
void main()
{
int counter;
printf("\nEven values\n");
for (counter = 1; counter
www.eeworm.com/read/103430/15732816
c getche.c
#include
#include
#include
void main(void)
{
int letter;
printf("Do you want to continue? (Y/N): ");
do
{
letter = getche();
l
www.eeworm.com/read/103430/15732834
c getchar.c
#include
#include
void main(void)
{
int letter;
printf("Type Y or N to continue and press Enter\n");
do {
letter = toupper(getchar());
} while ((
www.eeworm.com/read/103374/15735896
c odd_even.c
#include
void main()
{
int counter;
printf("\nEven values\n");
for (counter = 1; counter
www.eeworm.com/read/103374/15735947
c getche.c
#include
#include
#include
void main(void)
{
int letter;
printf("Do you want to continue? (Y/N): ");
do
{
letter = getche();
l