COBOL初心者です -ＣＯＢＯＬ初心者です。１月～6月の売上高の合計と-

COBOL　わかりません。。。

質問を書き直しました。テキストを読めば読むほどわからなくなります。どなたか教えてくださいませんか？。。。１月～6月の売上高の合計と、半年の売上高の合計に対する各月の割合を表示するプログラムを作成しろという課題が出たのですが、実行してみたら合計の数字が違うのです。。。。 WORKING-STORAGE以下を貼り付けました。 01 １月 PIC 9(8). 01 ２月 PIC 9(8). 01 ３月 PIC 9(8). 01 ４月 PIC 9(8). 01 ５月 PIC 9(8). 01 ６月 PIC 9(8). 01 半年合計 PIC 9(9). 01 表示半年合計 PIC Z(9)9. 01 １月割合 PIC Z(2)9.99. 01 ２月割合 PIC Z(2)9.99. 01 ３月割合 PIC Z(2)9.99. 01 ４月割合 PIC Z(2)9.99. 01 ５月割合 PIC Z(2)9.99. 01 ６月割合 PIC Z(2)9.99. PROCEDURE DIVISION. DISPLAY "各月の売上高を入力してください。" AT 0505. DISPLAY "１月の売上高" AT 0705. ACCEPT １月 AT 0718. DISPLAY "２月の売上高" AT 0805. ACCEPT ２月 AT 0818. DISPLAY "３月の売上高" AT 0905. ACCEPT ３月 AT 0918. DISPLAY "４月の売上高" AT 1005. ACCEPT ４月 AT 1018. DISPLAY "５月の売上高" AT 1105. ACCEPT ５月 AT 1118. DISPLAY "６月の売上高" AT 1205. ACCEPT ６月 AT 1218. COMPUTE 半年合計 = １月 + ２月 + ３月 + ４月 + ５月 + ６月. MOVE 半年合計 TO 表示半年合計. DISPLAY "合計売上高は" AT 1405. DISPLAY 表示半年合計 AT 1428. DISPLAY "円です。" AT 1436. COMPUTE １月割合 = 100.00 * (１月 / 半年合計). COMPUTE ２月割合 = 100.00 * (２月 / 半年合計). COMPUTE ３月割合 = 100.00 * (３月 / 半年合計). COMPUTE ４月割合 = 100.00 * (４月 / 半年合計). COMPUTE ５月割合 = 100.00 * (５月 / 半年合計). COMPUTE ６月割合 = 100.00 * (６月 / 半年合計). DISPLAY "半年間の売上高に対する各月の割合は" AT 1605. DISPLAY "１月：" AT 1905. DISPLAY １月割合 AT 1912. DISPLAY "％" AT 1918. DISPLAY "２月：" AT 2005. DISPLAY ２月割合 AT 2012. DISPLAY "％" AT 2018. DISPLAY "３月：" AT 2105. DISPLAY ３月割合 AT 2112. DISPLAY "％" AT 2118. DISPLAY "４月：" AT 2205. DISPLAY ４月割合 AT 2212. DISPLAY "％" AT 2218. DISPLAY "５月：" AT 2305. DISPLAY ５月割合 AT 2312. DISPLAY "％" AT 2318. DISPLAY "６月：" AT 2405. DISPLAY ６月割合 AT 2412. DISPLAY "％" AT 2418. STOP RUN. 実行結果例えば、1月　00000100 　　　　　　・　　　　　　・　　　　　　・　　　　6月　00000100 と各月すべて100と入力したら、合計は6円です。という具合に実行結果が出ます。どのように直せばよいでしょうか？

COBOLのCOUNTER

COBOL初心者です。 COBOL97を使用しています。人数を入力して、入力した人数の得点を入力、入力した得点の平均、合計、最大、最小を表示するプログラムを作成しています。 PERFORM文とCOUNTERの指定方法がよくわかりません。 COUNTERは数字でなければならないのでしょうか？どのようにプログラムを書いてよいかわかりません・・・・どなたかお助け下さい。お願いします。 01 VAL. 02 VAL PIC 9(4). 01 MAX-VAL PIC 9(4) VALUE ZERO. 01 MIN-VAL PIC 9(4). 01 TOTAL-VAL PIC 9(4). 01 AVERAGE-VAL PIC 9(4). 01 COUNTER PIC 9(1). 01 PEOPLE PIC 9(15). 01 MAX-Disp PIC Z(3)9. 01 TOTAL-Disp PIC Z(3)9. 01 AVERAGE-Disp PIC Z(3)9. 01 MIN-Disp PIC Z(3)9. 01 得点 PIC 9(4). PROCEDURE DIVISION. DISPLAY "人数を入力してください". ACCEPT PEOPLE. DISPLAY PEOPLE "人です". DISPLAY "テストの得点を入力してください". PERFORM TEST BEFORE VARYING COUNTER FROM 1 BY 1 UNTIL COUNTER > PEOPLE

COBOL初心者です。

COBOL初心者です。プログラミング自体初めて１か月です。いかんせん本当に初心者なのでどう質問したらイイのか分からないんですがヨロシクです。実行したらなんか固まってしまう？んです。記述がおかしいんでしょうけど、何がおかしいのか分からなくて… どう書けばイイのか分からないのでソースをそのまま貼り付けます。 IDENTIFICATION DIVISION. PROGRAM-ID. 000. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IN-FILE ASSIGN TO "x.txt". DATA DIVISION. FILE SECTION. FD IN-FILE. 01 IN-REC. 03 X PIC X(10). WORKING STORAGE SECTION. 01 WORK. 03 WK-X PIC X(10). 01 END-FLAG PIC 9 VALUE 0. PROCEDURE DIVISION. MAIN-SEC SECTION. MAIN-010. OPEN INPUT IN-FILE. PERFORM UNTIL END-FLAG = 1 READ IN-FILE AT END MOVE 1 TO END-FLAG NOT AT END MOVE X TO WK-X DISPLAY WK-X END-PERFORM. CLOSE IN-FILE. STOP RUN. MAIN-SEC-END. EXIT. なんしか、"x.txt"を読み込みたいんです。勉強中なのでとりあえず読み込みたいデータはちっちゃくしました。うーんどう伝えたらイイんでしょう～よろしくお願いします。

ＣＯＢＯＬのプログラムがビルドできません；；

今年の４月からシステム関係の会社に就職する者です。就職にあたって会社からの課題としてCOBOLのプログラムを転記して実行するというものが出たのですが、どうしてもビルドエラーになってしまい困っています。 IDENTIFICATION DIVISION. PROGRAM-ID. 　KADAI005 ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. / DATA DIVISION. FILE SECTION. / WORKING-STORAGE SECTION. 01 Ｗ－九九ＴＢＬ. 03 Ｗ－行　OCCURS 9. 05 Ｗ－列　OCCURS 9. 07 Ｗ－積　PIC 9(02). 01 Ｗ－指標１　PIC 9(02). 01 Ｗ－指標２　PIC 9(02). 01 Ｗ－合計　PIC 9(04). / PROCEDURE DIVISION. メインコントロール　　　　　　　 SECTION. メインコントロールＳ. メインコントロール　　PERFORM 初期処理. PERFORM 主処理. PERFORM 終了処理. メインコントロールＥ. EXIT. 初期処理　　　　　　　　　　　　 SECTION. 初期処理Ｓ. ワークエリアの初期化 MOVE ZERO TO Ｗ－九九ＴＢＬＷ－合計. 初期処理Ｅ. EXIT. 主処理　　　　　　　　　　　　　 SECTION. 主処理Ｓ. PERFORM VARYING Ｗ－行 FROM 1 BY 1 UNTIL Ｗ－行 > 9 PERFORM VARYING Ｗ－列 FROM 1 BY 1 UNTIL Ｗ－列 > 9 COMPUTE Ｗ－積(Ｗ－行,Ｗ－列) = Ｗ－行 * Ｗ－列　　　　 COMPUTE Ｗ－合計 = Ｗ－合計 + Ｗ－行 * Ｗ－列　　　END-PERFORM END-PERFORM. DISPLAY "合計　＝" Ｗ－合計. DISPLAY "５×４＝" Ｗ－積(5,4). DISPLAY "２×７＝" Ｗ－積(2,7). 主処理Ｅ. EXIT. 終了処理　　　　　　　　　　　　　SECTION. 終了処理Ｓ. プログラム終了 STOP RUN. 終了処理Ｅ. EXIT. 提出期限が明日に迫っていて焦っています；回答よろしくお願いします。

エクセル教えてください。初心者です。

エクセルで表をつくっているのですがわからず困っています。疑問は二つです。 (1)名簿の作成で、性別欄を作り名前ごとに「男」「女」と入力しました。男女の各人数の合計、そして、新規入力するたびに、自動的に人数合計が連動する合計欄をつくる方法を教えてください。 (2)年間の売上表を作成してます。月ごとの金額と、それまでの月毎の累計の表です。列に月、行に金額です（例えば4月100円　4月累計0円。　5月300円　5月累計400円…）。累計欄の計算式は、「+」をつかい、各月の売上欄をいちいち指定しました（ｃ2+ｃ4）。そうすると、まだ5月以降は売上がなく0円なので、5月以降の累計欄すべてに4月の金額がはいって、それが表示されてしまいました。 5月以降の累計欄は、各月の売上欄に記入があってから、各月の累計数を表示するようにする方法を教えてください。用語をしらず説明がへたでわかりにくいと思うのですがよろしくお願いします。

COBOL計算式の中間ワーク桁数について

富士通オフコン：GP6700-1、OS：ASP Version V10 のCOBOL で例えば、WORKING-STRAGE SECTION で 01 WORK-AREA. 03 A PIC S9(10)V9(03). 03 B PIC S9(10)V9(03). 03 C PIC S9(10)V9(03). 03 D PIC S9(10)V9(03). 03 E PIC S9(10)V9(03). 03 F PIC S9(10)V9(03). という項目があって COMPUTE E = ( A + B ) * C / D. COMPUTE F = A * B + C / D. を実行する場合、 (1) A + B の結果を格納する中間ワーク(1) (2) 中間ワーク(1) * C の結果を格納する中間ワーク(2) (3) A * B の結果を格納する中間ワーク(3) (4) C / D の結果を格納する中間ワーク(4) の４つはコンパイラが所定のルールに従って用意すると思います。この中間ワーク(1)、(2)、(3)、(4)の属性／桁数をコンパイラが決定する際のルールを教えて下さい。

MicroFocusを使ったCOBOLプログラミング

MicroFocusを使ったCOBOLプログラミング環境：MicroFocusNetExpress4.0 OS：WinXP 業務でCOBOLを使っているのですが、実行結果に疑問があり投稿しました。 ■PGのイメージ X PIC 9(3) O-SUM PIC 9(3) COMPUTE O-SUM = X + X O-SUMに、X + Xの計算結果を与えるものです。 X=1の場合は、O-SUM=2となります。異常値があった場合の検証として、Xが「A」となるINデータを用意して実行したところ、デバッグモードでは「数値項目に異常があります」とポップアップが表示されそれ以上実行されませんが、ビルドして作られたEXEを実際に動かしてみると、異常終了しません。（コマンドプロンプトからEXEを実行しています）さらに、O-SUMの計算結果が2となるデータが出来あがりました。 X=BだとO-SUM=4、X=DだとO-SUM=8…というように、 A→1 B→2 C→3 D→4 と暗黙で変換されているように見受けられる結果となりました。なぜ変換されたような結果になりデータ異常を検知できないのか、また、変換されないよう回避するための方法と、データ異常を検知する方法をご存知の方がみえましたら、ご教示ください。

COBOLのプログラムで・・。

現在COBOLプログラムを作ってまして以下のプログラムで表示結果が「EQUAL」となるようにしたいのですがどうやったらいいでしょうか？回答のほうよろしくお願いします、以下がプログラムです。 IDENTIFICATION DIVISION. PROGRAM-ID. TEST9. DATA DIVISION. * WORKING-STORAGE SECTION. * 01 GR01. 02 DATA1 PIC N(2). * 01 DATA2 PIC N(2). 02 SPACE TO DATA2 * PROCEDURE DIVISION. * MOVE SPACE TO GR01. * MOVE SPACE TO DATA2. IF DATA1 = DATA2 THEN DISPLAY "EQUAL" ELSE DISPLAY "NOT EQUAL" END-IF. * * STOP RUN. * END PROGRAM TEST9.

弥生会計での決算書の月別売上のプリントアウト結果

弥生会計で所得税青色申告決算書をプリントアウトしましたが、２ページの「月別売上金額」の決算額が各月、全てゼロ（0）になって、売上の合計が”家事消費等”にまとめられてしまっています。現金での売上なので「現金出納帳」で、「相手勘定科目」は”売上高”を選択しており、「残高試算表（年間推移）」の表でもきちんと”売上高”のランに各月合計がされています。売上の決算額が月ごとにプリントアウト結果ででるようにするにはどうしたらよろしいでしょうか。お願いいたします。

COBOLでのランダムアクセス

すみませんCOBOL初心者です。 FILE-CONTROL. SELECT URIAGE-MOKUHYOU ASSIGN TO "c:\dat\mokuhyou.dat" ORGANIZATION IS INDEXED ACCESS MODE IS RANDOM RECORD KEY IS UM-SHITEN-CODE. DATA DIVISION. 　　FILE SECTION. 　　FD URIAGE-MOKUHYOU. 　　01 UM-REC. 　　　05 UM-SHITEN. 　　　　10 UM-SHITEN-CODE PIC X(4). 　　　　10 UM-SHITEN-MEI PIC X(20). 　　　05 UM-KINGAKU PIC 9(10) OCCURS 12. WORKING-STORAGE SECTION. 　　01 TSUKI PIC 9(2). 　　01 WK-SHITEN-CODE PIC X(4). PROCEDURE DIVISION. 　　DISPLAY "支店コードを入力してください --> : " 　　ACCEPT WK-SHITEN-CODE 　　OPEN INPUT URIAGE-MOKUHYOU 　　READ URIAGE-MOKUHYOU 　　　INVALID KEY 　　　　DISPLAY "ERROR; 支店コード = " WK-SHITEN-CODE 　　　NOT INVALID KEY 　　　　DISPLAY WK-SHITEN-CODE " の売上げ目標は " UM-REC 　　END-READ. 　　STOP RUN. というプログラムを作成し、"mokuhyou.dat"という入力ファイルに正しくデータが格納されているのですが、コンパイルは問題なく、実行すると、 JMP0310I-U OPEN ERROR FILE=mokuhyou.dat. 'ACC-METHOD'. PGM=TEST046 ADR=00401258 とまず画面にでて、OKを押すと、 JMP0099I-U FORCED TERMINATION CODE=0310 というエラーになります。おそらくファイルが正常に読み込めないものと推測されますが、解決法を教えてください。お願いします。

VLOOKUPで左端に検索したいものが無い場合

表1　順位だけ５位まで入っています ┌────┬────┬──┐ │社員コード│売上合計│順位｜ ├────┼────┼──┤ ｜　　　　　｜　　　　　｜　 1｜ ├────┼────┼──┤ 　　　　　　　　　　　　　　　　　　　：　　　　　　：表２ ┌────┬────┬────┬────┬────┐ │社員コード│〇月売上│×月売上｜売上合計｜備考エリア｜ ├────┼────┼────┼────┼────┤ ｜　　 101｜　　----｜　 ----｜　－－－｜　　　　｜ ├────┼────┼────┼────┼────┤ 　　　　　　　：　　　　　　　：社員コードと各月売上、合計がデータとして入っていて、備考エリアには自分で何かを入れてよくて、最終的に表1の社員コードと売上合計を、売上合計が高い順に（順位の列に沿って）表2から拾って表示させたいのですが、私がやってみたのは備考エリアにＲＡＮＫ関数で売上合計の順位を出して、表1の社員コードをＶＬＯＯＫを使ってやろうと思ったのですができませんでした。何かいい方法はありませんでしょうか？？表を書き換えたり別の場所へ置き換えたりしないでの方法でできればお願いします。

Accessでの売掛金の管理に関して

Access売掛金の計上及び入金の管理行いたいと考えていますが下記のようなことは実現できますでしょうか。 (1)得意先 (2)4月分売上　(3)入金日付　(4)入金金額　(5)4月売掛残高　(6)備考　　　　　　　 (3)入金日付　(4)入金金額　(5)4月売掛残高　(6)備考　　　　　　 (3)入金日付　(4)入金金額　(5)4月売掛残高　(6)備考 (2)5月分売上　(3)入金日付　(4)入金金額　(5)5月売掛残高　(6)備考 (2)6月分売上　(3)入金日付　(4)入金金額　(5)6月売掛残高　(6)備考　　　： (2)3月分売上　 (3)入金日付 (4)入金金額 (5)3月売掛残高　(6)備考　　　　　　　　　　　　　　　　　　売掛残高合計 ※(2)の各月売上は期首から期末まで順番に表示される ※(3)と(4)の入金関連項目に関しては消しこみ対象の各月売上の行に表示される。　例えば3月分売上が6月に入金があった場合は入金関連項目は6月分売上の行ではなく　3月分の行に表示される。 ※入金は通常のサイトで回収される場合以外に一部入金(例えば3月分は3回にわたって　入金されている。）、過剰入金、過小入金等があるので各月の売上が１行であるのに　対して入金関連項目は複数行にわたる。⇒詳細に関して備考欄で説明を設ける。 ※(5)の各月残高はあくまで各月の売上の回収状況であって得意先ごとの残高総合計は　売掛金残高合計として最終行等に表示されるようにする。マスターとして ■得意先マスター　(1)得意先コード(2)得意先名 ■部署マスター　　(1)部署コード(2)部署名 ■売上科目マスター　(1)科目コード(2)科目名 ※上記の表の各月売上の詳細として科目ごとに表示することができるかどうか。 (1)売上１　(2)売上２　(3)売上３…(4)消費税といった具合に各月の合計値としてだけでなく詳細表示が可能かどうか。上記の表は各科目の合計値となっている。とりあえず他にも実現したいクエリがありますが話が複雑になってしまいますので上記のようなことがAccessで実現可能なのかどうかその場合どのような方法があるのかどうか。その方法を行うにはどの項目の知識が必要なのかどうか。何かヒントでも構いませんので多くの方のアドバイスを頂けたらと思います。大変お手数ですが宜しくお願いします。　

エクセルでデータが別シートに反映されない

パソコン、素人です。今、エクセルのデータで事業の収支をデータでまとめております。各月を各シートに記入していこうと思っております。そして、各シートの「売上合計」の「支出合計」のみをグラフのシートに飛ばし、年間のグラフにしようと思っています。１、グラフのシートの4月の売上のセルにて「SHIFT」「＝」キー２、4月の収支シートの売上合計のセルにで「ENTER」キーでＯＫだと思うのですが、「#VALUE!」が表示されてしまいます。ですが、同じグラフのシートでも同じ１，２の手順で表示されるセルもあります。（同じように「#VALUE!」が表示される場合もあります。）教えていただけませんでしょうか？宜しくお願いします。

エクセルマクロ

1月から12月までの合計で、野菜が何個売れたかが知りたいです。売上は月ごとに出ているのであとは各野菜の各月で売れた個数を足していくだけです。売れていない月もあります。エクセルで上記のマクロをくみたいです。どなたかご教授よろしくお願いいたします。

COBOL　1：１のマッチングについて

こんばんは。プログラム作成が行き詰ってしまったので、アドバイス頂けると幸いです。要件：マスタから名前を検索する出力番号、名前、合計点の３つ【マスタファイル】生徒番号　　名前（数字３桁）　（全角６文字）　　・　　　　　　　・　　・　　　　　　　・　　・　　　　　　　・【トランザクションファイル】生徒番号　　　合計点（数字３桁）　　（数字３桁）　　・　　　　　　　・　　　・　　　　　　　・【出力ファイル】生徒番号　氏名　合計点 001 ○○　　□□ DATA DIVISION. FILE SECTION. FD INFILEM. 01 INRECM. 05 IM-ID PIC X(03). 05 IM-NAME PIC X(12). FD INFILET. 01 INRECT. 05 IT-ID PIC X(03). 05 IT-GOUKEI PIC 9(03). FD OUTFILE. 01 OUTREC. 05 O-ID PIC X(03). 05 O-NAME PIC X(12). 05 O-GOUKEI PIC ZZ9. WORKING-STORAGE SECTION. 01 WM-ID PIC X(03). 01 WT-ID PIC X(03). 01 W-GOUKEI PIC 9(03). PROCEDURE DIVISION. PERFORM MAE-SHORI THRU MAE-SHORI-EXIT PERFORM SHU-SHORI THRU SHU-SHORI-EXIT UNTIL WM-ID = HIGH-VALUE AND WT-ID = HIGH-VALUE PERFORM ATO-SHORI THRU ATO-SHORI-EXIT STOP RUN. MAE-SHORI. OPEN INPUT INFILEM INFILET OUTPUT OUTFILE MOVE SPACE TO WM-ID MOVE SPACE TO WT-ID READ INFILEM AT END MOVE HIGH-VALUE TO WM-ID END-READ IF WM-ID NOT = HIGH-VALUE THEN MOVE IM-ID TO WM-ID END-IF READ INFILET AT END MOVE HIGH-VALUE TO WT-ID END-READ IF WT-ID NOT = HIGH-VALUE THEN MOVE IT-ID TO WT-ID END-IF. MAE-SHORI-EXIT. EXIT. SHU-SHORI. IF WM-ID = WT-ID THEN PERFORM KOUSHIN THRU KOUSHIN-EXIT ELSE IF WM-ID < WT-ID THEN PERFORM SHUTURYOKU THRU SHUTURYOKU-EXIT ELSE PERFORM ERRORS THRU ERRORS-EXIT END-IF END-IF. SHU-SHORI-EXIT. EXIT. KOUSHIN. MOVE IT-GOUKEI TO W-GOUKEI MOVE IM-ID TO O-ID MOVE IM-NAME TO O-NAME MOVE W-GOUKEI TO O-GOUKEI WRITE OUTREC READ INFILEM AT END MOVE HIGH-VALUE TO WM-ID END-READ IF WM-ID NOT = HIGH-VALUE THEN MOVE IM-ID TO WM-ID END-IF READ INFILET AT END MOVE HIGH-VALUE TO WT-ID END-READ IF WT-ID NOT = HIGH-VALUE THEN MOVE IT-ID TO WT-ID END-IF. KOUSHIN-EXIT. EXIT. SHUTURYOKU. MOVE IM-ID TO O-ID MOVE IM-NAME TO O-NAME MOVE W-GOUKEI TO O-GOUKEI WRITE OUTREC READ INFILEM AT END MOVE HIGH-VALUE TO WM-ID END-READ IF WM-ID NOT = HIGH-VALUE THEN MOVE IM-ID TO WM-ID END-IF. SHUTURYOKU-EXIT. EXIT. ERRORS. DISPLAY "** ERROR ** IM-ID=" IM-ID " IT-ID=" IT-ID READ INFILET AT END MOVE HIGH-VALUE TO WT-ID END-READ IF WT-ID NOT = HIGH-VALUE THEN MOVE IT-ID TO WT-ID END-IF. ERRORS-EXIT. EXIT. ATO-SHORI. CLOSE INFILEM INFILET OUTFILE. ATO-SHORI-EXIT. EXIT. 上記のソースで実行すると番号　名前　２桁の謎の数字が１レコードとしてでてきてしまいます。詳しい方、ご教示くださいませ。

何度もすみません（COBOLプログラミング）

何度もすみません。下記のようにプログラムを変更して実行しました。 IDENTIFICATION DIVISION. PROGRAM-ID. REI-01. ENVIRONMENT DIVISION. CONFIGURATION SECTION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INFILE ASSIGN TO "C:\COBOL\kamokuUT.txt" ORGANIZATION LINE SEQUENTIAL. SELECT OUTFILE ASSIGN TO "C:\COBOL\UT3.csv" ORGANIZATION LINE SEQUENTIAL. DATA DIVISION. FILE SECTION. FD INFILE. 01 INREC. 02 I-NUMBER PIC 9(2). 02 I-NAME PIC X(20). 02 I-KAMOKU-SYURUI PIC 9(3). 02 I-KAMOKU-TEN PIC X(3). FD OUTFILE. 01 OUTREC. 02 O-NUMBER PIC 9(2). 02 O-COMMA PIC X(1) VALUE ",". 02 O-NAME PIC X(20). 02 O-COMMA PIC X(1) VALUE ",". 02 O-KAMOKU-SYURUI PIC 9(3). 02 O-COMMA PIC X(1) VALUE ",". 02 O-KAMOKU-TEN PIC X(3). WORKING-STORAGE SECTION. 77 W-FLAG PIC X(1). 01 W-MIDASHI. 02 W-ID PIC X(8) VALUE "社員番号". 02 W-COMMA PIC X(1) VALUE ",". 02 W-NAME PIC X(4) VALUE "名前". 02 W-COMMA PIC X(1) VALUE ",". 02 W-KAMOKU PIC X(4) VALUE "科目". 02 W-COMMA PIC X(1) VALUE ",". 02 W-TEN PIC X(4) VALUE "点数". PROCEDURE DIVISION. PERFORM MAE-SHORI THRU MAE-SHORI-EXIT PERFORM SHU-SHORI THRU SHU-SHORI-EXIT UNTIL W-FLAG = "1" PERFORM ATO-SHORI THRU ATO-SHORI-EXIT STOP RUN. MAE-SHORI. OPEN INPUT INFILE OUTPUT OUTFILE MOVE "0" TO W-FLAG READ INFILE AT END MOVE "1" TO W-FLAG END-READ. MAE-SHORI-EXIT. EXIT. SHU-SHORI. WRITE OUTREC FROM W-MIDASHI. IF I-KAMOKU-TEN >= 70 THEN MOVE I-NUMBER TO O-NUMBER MOVE I-NAME TO O-NAME MOVE I-KAMOKU-SYURUI TO O-KAMOKU-SYURUI MOVE I-KAMOKU-TEN TO O-KAMOKU-TEN WRITE OUTREC FROM INREC ELSE CONTINUE END-IF. READ INFILE AT END MOVE "1" TO W-FLAG END-READ. SHU-SHORI-EXIT. EXIT. ATO-SHORI. CLOSE INFILE OUTFILE. ATO-SHORI-EXIT. EXIT. そして、CSVファイルを開くと、＿＿＿＿＿＿＿＿＿＿＿＿社員番号名前科目点数社員番号名前科目点数社員番号名前科目点数＿＿＿＿＿＿＿＿＿＿＿＿としか表示されませんでした。入力ファイルは前回のものと同様です・・・参考書を基に色々調べてみたのですが、解決できませんでした。。回答いただけると幸いです。宜しくお願い致します。

割合の求め方を教えてください

売り上げから月の割合を求めたいのですが、例えば、月１００万の売上額でそのうち、Ａの商品が月２６万あったとした場合、売り上げの何パーセントをＡがしめているか・・という割合をエクセルで表にしたいのですが、どの関数を使えばよいのでしょうか。ちなみに毎日の売り上げ額とＡの金額は表にしていて、月の合計をそれぞれＳＵＭ関数で最終欄（セル）に出る・・・というような表を作っていますので、そこにパーセンテージの欄を設けたいのです。割合などはやったことがなく、関数もせいぜい合計くらいしか使ったことがないのでヘルプで「割合」と質問してみましたがイマイチよくわかりません。出来れば関数は初心者なのでわかりやすく教えて頂ければありがたいです。また、他に簡単な方法があれば教えてください。よろしくおねがいします。

Java初歩。ループ問１～６の内３・４

コンパイルの環境はあります。『問題は、全て、　「forループ」を使って記述しなければなりません。そして、ループは、「forループのみ」と、限定されています。 (1)～(2)は、他にどんなやりかたがあるのか興味がありまして、質問させて頂きました。 (3)からは、ずっと試しているのですが、全くできません…悔しいです。。 (3) １００、５０、２００、１５０、３００を管理している配列を作成し、合計値を算出した上で、それぞれ値が合計に占める割合をパーセントを用いて実行結果のように出力する為にはどのようにプログラムをくめばよいのでしょうか？ (3)実行結果１２．５％６．２５％２５．０％１８．７５％３７．５％ (4) 問３を修正して、割合だけを表示するのではなく、元の数と最大値である旨も表示するようにしたいです。どのようにくめばよいのでしょうか？問４の実行結果　　　　１００：１２．５％　　　　５０：６．２５％　　　　２００：２５．０％　　　　１５０：１８．７５％最大値＞３００：３７．５％ちなみに、とまっている(3)は、こんな感じかなぁとやったんですが、だめでした。。。↓ class exercise_4_3 { public static void main(String args[]){ int a[] = new int[5]; a[0] = 100; a[1] = 50; a[2] = 200; a[3] = 150; a[4] = 300; int z = 0; for(int i = 0;i < 5;i ++){ z += a[i]; } int x = 0; for(int i = 0;i< 5;i ++){ x = i / z * 100; System.out.print(x + '%'); System.out.println(""); } } } (5)(6)をありますので、よろしくお願いいたします。

EXCELVBAで最終行が決まらない表の計算

VBAなども書き始めたの最近なので、説明がつたないかもしれませんがよろしくお願いします。 EXCELの下記のような表があります。それぞれのセットに対して、個数・のし代・売上を、各月ごとに出す表になっています。計算としては、B1に書き込まれる仕入れ値の値を、それぞれのセットの個数に掛け、その値と、のし代を加えたものが売上となって計算されて表示されるようにし、最終行の合計にはそれぞれのセットの売上の合計値が表示されます。例えば、お皿セットの4月は150x5+200の答えの950がC5のセルに入ります。このようにして、各セットの各月の売上が個数、もしくはのし代の欄に値があれば計算し、合計の欄に答えが入るようにしたいのです。セットの数は決まっていないため最終行は変動し、個数、もしくはのし代の値が入っているのであれば、求められるようにしたいのです。ただし、1年ごとなので、N列までになります。 A 　　　　　　　B　　　　　　　C　　　　　　D　　　　　　E 　　　　　　・・・ N 1 仕入れ値　　150 2　　　　　　　　　　　　　　　　　4月　　　　　5月　　　　 6月　　　　　・・・3月 3 お皿セット　　個数　　　　　　5　　　　　　10　　　　　10 4　　　　　　　　　のし代　　　　200　　　　　400　　　　200 5　　　　　　　　　売上 6 箸セット　　　個数　　　　　　　3　　　　　　5　　　　　　6 7　　　　　　　　　のし代　　　　100　　　　　　　　　　　　300 8　　　　　　　　　売上 9 茶碗セット　　個数　　　　　　2　　　　　　　　　　　　　　3 10　　　　　　　　のし代　　　　100　　　　　100　　　　　100 11　　　　　　　　売上　　　・　　　　　　　・　　　　　　・　　　　　　　　　・　　　　　　・　　　　　・　　　・　　　　　　　・　　　　　　・　　　　　　　　　・　　　　　　・　　　　　・　　　・　　　　　　　・　　　　　　・　　　　　　　　　・　　　　　　・　　　　　・　合計関数などを使って、別シートに一旦答えを出して・・・と行っていたのですが、表の中に計算式があると、入力した値を消した時に式が消えてしまうので Do　～Loopなどを使用することを考えました。しかし、簡単な空白や最終行が決まったものしか書いたことが無く、今回のような空白の行が点在し（個数無しでのし代あり、個数ありでのし代なしなど）途中にもあり、 2つおきに計算値が入るため途方にくれてしまいました。 1度で求められなくても良いので、マクロで作成できないものでしょうか。

Ｃ言語初心者です。

Ｃ言語初心者の者です・・。カレンダーを表示するというプログラムを作成して下さい。という問題でソースが途中まで出来ていてこれを元に作成するみたいなのですが、今まで、こちらのサイトで同じような質問は無いかなぁと検索してみたのですが、年数やうるう年の計算もされていて、どこをどの様に変えれば良いのかも分かりません。どなたか教えて頂けないでしょうか？〖問題〗以下のように、カレンダーを表示するプログラムを書いてください。 int main (void) { /* 1月表示 */ dispCalender(1); return 0; } void dispCalender(int month) { /* 2007年:月毎の最終日を管理する配列 */ int lastday[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30,31}; /* 2007年:各月が何曜日から始まるか管理する配列 */ int week[12] = {1, 4, 4, 0, 2, 5, 0, 3, 6, 1, 4, 6} /* ※0:日、1:月、2:火・・・ 6:土 */ (ここにいっぱいコード書く) } (実行結果) --------------------- [2007年1月] --------------------- 日月火水木金土 --------------------- 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ---------------------

COBOL初心者です

みんなの回答

お礼 2007/05/23 22:12

お礼 2007/05/23 22:14

関連するQ&A

COBOL　わかりません。。。

COBOLのCOUNTER

COBOL初心者です。

ＣＯＢＯＬのプログラムがビルドできません；；

エクセル教えてください。初心者です。

COBOL計算式の中間ワーク桁数について

MicroFocusを使ったCOBOLプログラミング

COBOLのプログラムで・・。

弥生会計での決算書の月別売上のプリントアウト結果

COBOLでのランダムアクセス

VLOOKUPで左端に検索したいものが無い場合

Accessでの売掛金の管理に関して

エクセルでデータが別シートに反映されない

エクセルマクロ

COBOL　1：１のマッチングについて

何度もすみません（COBOLプログラミング）

割合の求め方を教えてください

Java初歩。ループ問１～６の内３・４

EXCELVBAで最終行が決まらない表の計算

Ｃ言語初心者です。

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

COBOL初心者です

みんなの回答

お礼 2007/05/23 22:12

お礼 2007/05/23 22:14

関連するQ&A

COBOL わかりません。。。

COBOLのCOUNTER

COBOL初心者です。

ＣＯＢＯＬのプログラムがビルドできません；；

エクセル教えてください。初心者です。

COBOL計算式の中間ワーク桁数について

MicroFocusを使ったCOBOLプログラミング

COBOLのプログラムで・・。

弥生会計での決算書の月別売上のプリントアウト結果

COBOLでのランダムアクセス

VLOOKUPで左端に検索したいものが無い場合

Accessでの売掛金の管理に関して

エクセルでデータが別シートに反映されない

エクセルマクロ

COBOL 1：１のマッチングについて

何度もすみません（COBOLプログラミング）

割合の求め方を教えてください

Java初歩。ループ問１～６の内３・４

EXCELVBAで最終行が決まらない表の計算

Ｃ言語初心者です。

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

COBOL　わかりません。。。

COBOL　1：１のマッチングについて

カテゴリ
一覧

専門家に質問してみよう
専門家登録