my $cap=10; if($cap > 101){ #べき乗を求める my $c=int($cap / 10); my $beki=$cap - $c*10; #容量を求める my $piko=$c * 10 ** $beki; $micro = $piko * 10 ** (-6); print ("** beki=$beki capacity = $micro μF\n"); } else{ print ("capacity = $cap pF\n");} #101以下はピコで表示
こんな感じ
かけ算は* 割り算は/で表記してある
"PSE TYIN CAPA"?->F If F>100:Then int(F / 10)->C F-C*10->B C*10^B->P P*10^(-6)->M Loacte 1,4,M Locate 8,4,"μF" Else Loacte 1,4,F Locate 8,4,"pF" IfEnd
変数は1文字、代入は→、Engはコマンドにない、