?? median.c,v
字號(hào):
access;symbols;locks; strict;comment @ * @;1.1date 96.08.19.22.31.31; author jaf; state Exp;branches;next ;desc@@1.1log@Initial revision@text@/*$Log$*/#ifdef P_R_O_T_O_T_Y_P_E_Sextern integer median_(integer *d1, integer *d2, integer *d3);#endif/* -- translated by f2c (version 19951025). You must link the resulting object file with the libraries: -lf2c -lm (in that order)*/#include "f2c.h"/* ********************************************************************* *//* MEDIAN Version 45G *//* $Log: median.f,v $ *//* Revision 1.2 1996/03/14 22:30:22 jaf *//* Just rearranged the comments and local variable declarations a bit. *//* Revision 1.1 1996/02/07 14:47:53 jaf *//* Initial revision *//* ********************************************************************* *//* Find median of three values *//* Input: *//* D1,D2,D3 - Three input values *//* Output: *//* MEDIAN - Median value */integer median_(integer *d1, integer *d2, integer *d3){ /* System generated locals */ integer ret_val;/* Arguments */ ret_val = *d2; if (*d2 > *d1 && *d2 > *d3) { ret_val = *d1; if (*d3 > *d1) { ret_val = *d3; } } else if (*d2 < *d1 && *d2 < *d3) { ret_val = *d1; if (*d3 < *d1) { ret_val = *d3; } } return ret_val;} /* median_ */@?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -