🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.pascal
Article #141

summary [read line twice?]

#141
From: Takahashi akira
Date: Wed, 30 Jul 1997 00:00
82 lines
3229 bytes


$B!!@8L?8&$N9b66$G$9!%(B


$B!!?tCM%G!<%?$NJ?6Q$HI8=`JP:9$r5a$a$kLdBj$K$D$-$^$7$F!$(B
$B3'MM$+$i%a!<%kEy$G%"%I%P%$%9$r$$$?$@$-$^$7$?!%(B
$B!!BgJQ$"$j$,$H$&$4$6$$$^$7$?!%(B
$B!!0J2<!$$=$NJ}K!$r$^$H$a$^$9!%(B


$B!!$^$:!$=);3!w(Bascii$BMM$h$j65$($FD:$$$?J}K!$O!$(B
$B!|0lEYFI$s$@CJ3,$GG[Ns$KF~$l$F$7$^$$!$$=$l$r$b$&0lEYFI$`(B

$B!t$?$@$3$N>l9g5$$K$J$k$N$O!$%G!<%?$N8D?t$,ITDj$N>l9g(B
$B!J5-;v$G$O=q$-K:$l$^$7$?$,!$$3$N$h$&$J>r7o$,ImBS$7$F(B
$B$$$^$9!K7k6I0lEY%G!<%?$rIaDL$KFI$_9~$s$G$_$F8D?t$r?t$($F(B
$BG[Ns$NMWAG?t$r3NDj$7$F$+$i!$$"$i$?$a$F$h$&$d$/G[Ns$KFI$_(B
$B9~$`$3$H$K$J$k$N$G!$F1$8LdBj$rJz$($k$3$H$K$J$i$J$$$+!$$H(B
$B$$$&$3$H$G$9$,!$$3$3$O[9M+$G$7$g$&$+!%(B


$B!!<!$K!$5WJ]!wElBg2=3XMM$h$j65$($FD:$$$?J}K!$O!$(B
$B!|F1$8%U%!%$%k$rJL!9$J%U%!%$%kJQ?t$K3d$jEv$F!$$"$?$+$b(B
$B0c$C$?%U%!%$%k$rFI$s$G$$$kMM$K=hM}$9$k(B

$B!&F1$8%U%!%$%k$r2>A[E*$KFs2sFI$`Nc!'(B
var f1,f2:text;
      s:string;
begin
  assign(f1,'foo.dat');reset(f1);{* foo.dat$B$r(Bf1$B$K7k$S$D$1$k(B*}
  assign(f2,'foo.dat');reset(f2);{* foo.dat$B$r(Bf2$B$K7k$S$D$1$k(B*}
  while not eof(f1) do begin
    readln(f1,s);writeln(s);{* $B0l9TFI$s$GI=<((B*}
    readln(f2,s);writeln(s) {*$BF1$89T$rFI$s$GI=<((B*}
  end;
  close(f1);
  close(f2)
end.

$B!!$J$k$[$I!$$3$l$O3N$+$K$$$$J}K!$@$H;W$$$^$7$?!%(B


$B!!$7$+$7$J$,$i!$7k2LE*$K;d$,:NMQ$7$?J}K!$O!$:dED!w2#IMMM$N(B
$B!|I8=`JP:9$OESCf$GJ?6QCM$,$J$/$H$b7W;;$G$-$k4J0W<0$,$"$k(B
$B$G$7$?!%(B

sd:$BI8=`JP:9(B
ss:$B%G!<%?$NFs>hOB(B
ave:$BJ?6QCM(B
n:$B%G!<%??t(B
$B$N>l9g!$(B
sd:=sqrt((ss-n*ave*ave)/n)
$B$GI8=`JP:9$,5a$a$i$l$^$9!%$3$N>l9g$K$OJ?6QJP:9(B(data-ave)$B$r(B
$B0l$D0l$D$H$C$FJP:9J?J}OB$r=P$9I,MW$,$J$$$N$G!$ESCf$KJ?6QCM$,(B
$BI,MW$J$/$J$j$^$9!%$9$k$H!$$=$b$=$b!VFs2sFI$`!WI,MW@-$,$J$/$J$k(B
$B$?$a$K%W%m%0%i%`$,C1=c$K$J$j$^$9!%(B

$B!t<B$O$3$N<0$O!$<+J,<+?H$,E}7W$N%$%s%9%H%i%/%?!<$r$7$F$$$?(B
$B$H$-$K<+J,$G$b65$($F$$$?$b$N$@$C$?$N$G$9$,!$<B:]$K2?$KM-8z(B
$B$J$N$+<+J,$G$h$/$o$+$C$F$$$J$+$C$?$?$a$KE,MQ$K5$$,$D$-$^$;$s(B
$B$G$7$?!%:#2s$h$&$d$/!V0UL#!W$,H=$C$FMh$?<!Bh$G$9!%(B


$B!!;d$K$H$C$F$OIT;W5D$J$3$H$K!$0l8+4JC1$J$3$H$N$h$&$K;W$($F$$$?(B
$B!VF1$89T$rFs2sFI$`!W$H$$$&$3$H$K4X$7$F$O!$$d$^$b$H$5$s$N(B
$B!&%F%-%9%H%U%!%$%k$r%P%$%J%j%U%!%$%k$H$7$F3d$jEv$F$F!$(Bseek,
blockread$B$r;H$&(B
$B$H$$$&8f0U8+$7$+;G$&$3$H$,$G$-$^$;$s$G$7$?!J$d$^$b$H$5$s$b(B
$BLLE]$J$N$G$*A&$a$7$J$$$H=R$Y$F$*$i$l$k$h$&$G$9!K!%(B

$B!!$A$g$C$H$7$?$3$H$N$h$&$K;W$($k$N$G$9$,!$<B$OFq$7$$$3$H$J$N(B
$B$G$7$g$&$+!%(B


$B!!8f65<($r2<$5$C$?3'MM$K$O!$$3$N>l$r<Z$j$F8fNi?=$7>e$2$^$9!%(B
$B$*K;$7$$$H$3$m$I$&$b$"$j$,$H$&$4$6$$$^$7$?!%(B

///////////////////////////// // ///////
akilaTakahasi NEDOco-researcher in nibh
akirtaka@nibh.go.jp :memory congnition
Technical Details
Message-ID: <5rncf7$7om$1@ripspost.aist.go.jp>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: ff90a,9ed52b4fe63a37e7,start
X-Google-Attributes: gidff90a,public
From: akirtaka@nibh.go.jp (Takahashi akira)
Subject: summary [read line twice?]
Date: 1997/07/30
Message-ID: <5rncf7$7om$1@ripspost.aist.go.jp>
X-Deja-AN: 261195709
Organization: Agency of Industrial Science and Technology, Tsukuba
Newsgroups: fj.lang.pascal