PROGRAM QnA IMPLICIT NONE CHARACTER(LEN=50) :: QUESTION WRITE (*,*) "QnAプログラムへようこそ！" WRITE (*,*) "質問をしてください：" READ (*,'(A)') QUESTION IF (INDEX(UPCASE(QUESTION), "このウェブアプリとは何ですか？") /= 0) THEN WRITE (*,*) "このウェブアプリは、シンタックスハイライト、オートコンプリートなど多くの機能を備えたFortranコードエディタです！" WRITE (*,*) "このアプリを使用すると、ソフトウェアのインストールが不要で、ブラウザ内でコードの作成と実行を直接行うことができます。" WRITE (*,*) "シンタックスハイライト機能により、コードが見栄え良くなり、オートコンプリート機能はコードの迅速で正確な入力を支援します。" WRITE (*,*) "さらに、アンドゥ/リドゥ、コードのコピーまたはエクスポート、オフラインでの作業など、その他の機能を備えています！" ELSE WRITE (*,*) "さあ、何を待っているのですか？今すぐコードの編集を始めましょう。" END IF END PROGRAM QnA