投稿一覧に戻る 日本テクノ・ラボ(株)【3849】の掲示板 2023/04/19〜2023/08/13 240 倍金倍倍金倍金倍倍 2023年5月14日 14:48 >>231 > 昨今一般の方にも浸透してきたchat gpt など黒船的な流れなどがありますが、世の中の流れを先の先の先まで先行して見据えて、是非、今後さらなる大活躍をされることを期待します。 ド素人でもプリンタードライバーを作れる!🤪 "以下は、Fortran 90を使って三色の "Hello World" を印刷するプログラムです。 ```fortran program HelloWorld implicit none integer :: iunit=stdout ! ターミナル上での出力には "stdout" を使います ! ただし、Windows環境によってはエラーが発生する場合があるので、 ! 変数iunitに別の値を指定することもできます ! 赤 write(iunit,"(a,a,a)") char(27), "[1;31m", "Hello " ! 黄色 write(iunit,"(a,a)") char(27), "[1;33m" write(iunit,"(a)") "World" ! 青 write(iunit,"(a,a)") char(27), "[1;34m" write(iunit,"(a)") "!" ! リセット write(iunit,"(a)") char(27) \/\/ "[0m" end program HelloWorld ``` このプログラムでは、`stdout`を使用してFortranからメッセージを表示しています。また、エスケープシーケンスを使って、文字の色を赤、黄色、青に変更し、クリアする際にもリセットコードを使用しています。 ビルドして実行する場合は、環境に合わせて`iunit`の設定を確認することが重要です。" そう思う3 そう思わない1 開く お気に入りユーザーに登録する 無視ユーザーに登録する 違反報告する 証券取引等監視委員会に情報提供する ツイート 投稿一覧に戻る
倍金倍倍金倍金倍倍 2023年5月14日 14:48
>>231
> 昨今一般の方にも浸透してきたchat gpt など黒船的な流れなどがありますが、世の中の流れを先の先の先まで先行して見据えて、是非、今後さらなる大活躍をされることを期待します。
ド素人でもプリンタードライバーを作れる!🤪
"以下は、Fortran 90を使って三色の "Hello World" を印刷するプログラムです。
```fortran
program HelloWorld
implicit none
integer :: iunit=stdout
! ターミナル上での出力には "stdout" を使います
! ただし、Windows環境によってはエラーが発生する場合があるので、
! 変数iunitに別の値を指定することもできます
! 赤
write(iunit,"(a,a,a)") char(27), "[1;31m", "Hello "
! 黄色
write(iunit,"(a,a)") char(27), "[1;33m"
write(iunit,"(a)") "World"
! 青
write(iunit,"(a,a)") char(27), "[1;34m"
write(iunit,"(a)") "!"
! リセット
write(iunit,"(a)") char(27) \/\/ "[0m"
end program HelloWorld
```
このプログラムでは、`stdout`を使用してFortranからメッセージを表示しています。また、エスケープシーケンスを使って、文字の色を赤、黄色、青に変更し、クリアする際にもリセットコードを使用しています。
ビルドして実行する場合は、環境に合わせて`iunit`の設定を確認することが重要です。"