Newsgroups: fj.lang.c
Path: galaxy.trc.rwcp.or.jp!news.trc!nf2.iij.ad.jp!nr0.iij.ad.jp!news.iij.ad.jp!rim.or.jp!Q.T.Honey!news.hbl.or.jp!merope!void
From: void@merope.opus.or.jp (Kusakabe Youichi)
Subject: Re: [Q]=?ISO-2022-JP?B?GyRCNmhAWiRqJEokNyVHITwlPyRySjg7ejc/GyhC?=
Message-ID: <1998Mar20.035036.3299@merope.opus.or.jp>
Organization: Macintosh User Group PLEIADES in opus
X-Newsreader: TIN [version 1.2 PL0]
References: <6esjd9$4t@sakunami.gw.tohoku.ac.jp>
Date: Fri, 20 Mar 1998 03:50:36 GMT
Lines: 88
Xref: galaxy.trc.rwcp.or.jp fj.lang.c:6176
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.c&nb=6176&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

Tomoaki Chiba (chiba@dges.tohoku.ac.jp) wrote:
: fj.test $B0J30$K$O=iEj9F$G$9$N$G!"ITHw$,$"$j$^$7$?$i8f;XE&2<$5$$!#(B

fj.test$B$ON}=,MQ$N(BNewsGroup$B$G$O$J$$$G$9$h!#(B


: $B%G!<%?$N3F9T$O(B 200$B!A(B400$B!_(B5 $B8D0L$N?t;z$+$i@.$jN)$C$F$$$k$H$$$&$3$H$G$9!#(B
: $B$9$J$o$A9T$4$H$KNc$($P(B Data[350] $B$N$h$&$JG[Ns$KFI$_9~$`$3$H$r9M$($^$9!#(B

$B$I$&$7$F(B200$B!A(B400$B$J$N$K!V(B350$B!W$J$s$F$$$&@k8@$r$9$k$N$G$7$g$&$+(B?


: DblData[i] = 10000 * ( CharArray2D[i][0] - '0' ) \
:     + 1000 * ( CharArray2D[i][1] - '0' ) \
:     +  100 * ( CharArray2D[i][2] - '0' ) \
:     +   10 * ( CharArray2D[i][3] - '0' ) \
:     +    1 * ( CharArray2D[i][4] - '0' );
: $B$N$h$&$K$9$l$P!JB-$70z$-4V0c$C$F$?$i$9$_$^$;$s!K!"(Batof$B7O$N4X?t$O;H$o$J(B
: $B$/$F$b$h$$$N$G$9$,!"$3$l$O$H$j$"$($:!V2DG=$J8B$j4J7i!W$G$O$J$$$H$5$;$F(B
: $B2<$5$$!#(B

$B$&!<$`$=$l$J$j$K4J7i$@$H$*$b$$$^$9$,$M!#(B
5$B2sJ,$r%k!<%W$K$9$l$P(B2$B9T$G=q$1$^$9$7!#(B


: $B$=$3$G<!$K%@%$%l%/%H$K(B
: FILE *fp;  /* $B%G!<%?%U%!%$%k$N%U%!%$%k%]%$%s%?(B */
: double DblData[350];  /* $B<B:]$K%G!<%?$r3JG<$9$kG[Ns(B */
: fread(DblData, 5, 350, fp);
: $B$J$I$H$$$&$3$H$O$G$-$J$$$+$H;W$C$F(B

$B$J$<!V(Bdouble$B!W$J$s$F$$$&$b$N$,=P$F$/$k$N$G$7$g$&(B?
$B$7$+$b$=$l$,!V%@%$%l%/%H$K!W$C$F$$$&$N$,0UL#ITL@$G$9!#(B
$B$=$b$=$b!"$=$N$"$?$j$NM}2rITB-$,860x$N$h$&$G$9$M!#(B

$B$H$$$&$o$1$G!"(B

: ---$B!J0J2<!"<+J,$N:n6H4D6-0MB8$NOC!)!K(B-------------------------------
: ---$B!J0J>e!"<+J,$N:n6H4D6-0MB8$NOC!)!K(B--------------------------------

$B$N$"$?$j$O!VL5BL$J9M;!!W$K$J$C$A$c$C$F$^$9$M!#(B


: $B<+J,$N$d$jJ}$G$O(B fread $B$N;H$$J}$,JQ$@$H$$$&$h$&$J8f;XE&$b$*BT$A$7$F$$$^$9!#(B

$BJQ$G$9!#(B


: $B=i?4<T$K$bM}2r$G$-$k!"9T%G!<%?$r4]$4$HFI$_9~$`!"4J7i$GH4$1$k$h$&$J%"%$(B
: $B%G%#%"$,2?$+$J$$$b$N$G$7$g$&$+!#(B

$B$I$&$7$F$b!V(Bscanf$B!W7O$N4X?t$,;H$$$?$$!#$=$l$r!V4J7i!W$@$H;W$C$F$$$k(B
$B$H$$$&$N$J$i$P!"$?$H$($P!"0J2<$N$O$I$&$G$7$g$&$+(B?
($B$$$^$3$N>l$G;n$;$J$$$N$G;n$7$F$J$$$G$9!#$"$7$+$i$:(B)

---$B$3$3$+$i(B-------------------------------------------------------------------
#include <stdio.h>
#include <ctype.h>

#defineMAX400
#defineFIGURE5

main()
{
intdata[MAX];
charbuf[FIGURE * MAX + 2];
inti;

while (fgets(buf, FIGURE * MAX + 2, stdin) != NULL) {
for (i = 0; i < MAX && isdigit(buf[i * FIGURE]); i++)
sscanf(&buf[FIGURE * i], "%*d", FIGURE, &data[i]);
}
}
---$B$3$3$^$G(B-------------------------------------------------------------------

$BOC$NFbMF$+$i(Bint$B$O(B16bit$B$G$O$J$$4D6-$@$HM=A[$5$l$^$9$,!"(B
16bit$BDxEY$N(Bint$B$@$H!"(B5$B7e$N(B10$B?J?t$O(Bint$B$KG<$^$i$J$$$N$GCm0U$,I,MW$G$9$M!#(B

$B$"$H!"(Bgcc$B$N(Bsscanf()$B$G!V(B*$B!W$,(B $B;H$($k$+$I$&$+CN$i$J$$$N$G$9$,!"(B
sscanf(&buf[FIGURE * j], "%*d", FIGURE, &data[j]);
$B$,$@$a$@$C$?$i(B
sscanf(&buf[FIGURE * j], "%5d", &data[j]);
$B$H$G$b$7$F$_$F$/$@$5$$!#(B

  $B%X(B_$B%X(B   ________________________
$B%_!&!&(B $B%_(B  void@merope.opus.or.jp
 (  $B!k(B )$B!A(B            $BF|2<ItM[0l(B
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
