![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
下記のパスカルからJAVAに変えるのですが、わからなくてこまってます。よろしくおねがいします。
{ 宣言部 }
type ZISU= array[0..99] of real;
var n,k :integer;
p,VALREAL,VALIMAG: ZISU;
{
EXTERNAL procedure EVAL ( p:ZISU; n:integer; var VALREAL,VALIMAG:ZISU );
}
{$I B:EVAL.SRC}
{ メ イ ン プ ロ グ ラ ム }
begin
write(lst,'Input vector');
writeln(lst);
read(n);
readln;
write(lst,' n=',n);
writeln(lst);
for k:=0 to n-1 do
begin
read(p[k]);
readln;
write(lst,p[k]);
writeln(lst)
end;
EVAL(p,n,VALREAL,VALIMAG);
writeln(lst);
writeln(ist);
write(lst,'Output vector [THE DISCRETE FOURIER TRANSFORM]');
writeln(lst);
for k:=0 to n-1 do
begin
write(lst,' ',VALREAL[k],'+(',VALIMAG[k],'*i)');
writeln(lst)
end
end.
No.1ベストアンサー
- 回答日時:
何がどのようにわからないのかわかりませんが、pascalが解読できないと言う前提で少し説明します。
{ 宣言部 }
type ZISU= array[0..99] of real;
var n,k :integer;
p,VALREAL,VALIMAG: ZISU;
上記は型宣言とグローバル変数の定義です。
ZISU 実数型で0~99の100個の配列変数の型宣言です。
n,k : 整数型です。
p,VALREAL,VALIMAG: ZISU型の配列変数です。
{
EXTERNAL procedure EVAL ( p:ZISU; n:integer; var VALREAL,VALIMAG:ZISU );
}
上記はコメントです。
{$I B:EVAL.SRC}
インクルードファイルの宣言です。
{ メ イ ン プ ロ グ ラ ム }
begin
write(lst,'Input vector');
writeln(lst);
プリンタに'Input vector'と印刷します
read(n);
readln;
数字を読み込んで改行キー待ちです。
write(lst,' n=',n);
writeln(lst);
読み込んだ数字を印刷します。
for k:=0 to n-1 do
begin
read(p[k]);
readln;
write(lst,p[k]);
writeln(lst)
end;
n回ループで数字を配列変数pに順次読み込んでいきます。
読み込んだ数字は1個ずつプリンタに印字します。
EVAL(p,n,VALREAL,VALIMAG);
外部手続きを実行します。
writeln(lst);
writeln(ist);
2行プリンタを改行します。
write(lst,'Output vector [THE DISCRETE FOURIER TRANSFORM]');
writeln(lst);
タイトル行をプリンタに印刷します。
for k:=0 to n-1 do
begin
write(lst,' ',VALREAL[k],'+(',VALIMAG[k],'*i)');
writeln(lst)
end
n個分のデータをreal と imag 部に分けて印刷します。
end.
お役に立つかどうかわかりませんが、アドバイスまで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(趣味・アウトドア・車) LST 12V充電器と表示がありますが? 1 2022/07/20 07:16
- 政治 岸田政権の「資産所得倍増計画」と「貯蓄から投資へ」 少し前の記事になりますが、これの検討は今どうなっ 5 2023/07/30 19:00
- C言語・C++・C# c言語の問題の説明、各所ごとに 5 2023/07/26 11:03
- その他(SNS・コミュニケーションサービス) 自分のpcがハッキングされたようなメールが来たのですがどうすればいいですか? 4 2022/10/02 16:14
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) エクセル マクロ(A1:A10)までの中で一番多く出た数字をB10に表示 6 2023/04/25 17:01
- オープンソース Coinmarketcap api 1 2022/05/30 15:47
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- 経済 日本・世界の来年の景気 5 2022/11/27 22:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
{ CONTROL Forms.Label.1}が...
-
テキストファイルの1行目のみを...
-
vba クリップボードクリアにつ...
-
Googleタグマネージャで、既存H...
-
Version Control on Unity
-
Processingについて
-
Python... 環境設定 初心者です...
-
そのまま使っただけなのに・・...
-
htaccessで特定のディレクトリ...
-
ExcelVBAでFormulaR1C1を列範囲...
-
Google ColaboでGUI作成
-
関数定義について質問です 架空...
-
フォルダを自動作成・移動を複...
-
ITパスポートの勉強をしていま...
-
バッチファイルが保存されてい...
-
P2P地震速報のEEW APIの仕様書...
-
Pythonについて。
-
JRのjsonファイルって使って大...
-
HTMLソースが表示のページのも...
-
PythonのTkinter詳しい方へ。画...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
write downとfill outの違いを...
-
シリアル通信プログラミングで...
-
奇数・偶数の区別をプログラミング
-
最大値と最小値の間を循環する変数
-
fortran if文
-
私は、もっと早くお祝いメッセ...
-
arduinoのスケッチについて教え...
-
数字の右側にゼロを付加する
-
サブドメインを自前でいくつで...
-
fortranのwrite文コメント有無...
-
EILSEQが発生
-
C言語について。
-
Hello!
-
複数のランダムクイズの表示が...
-
micropython コードについて
-
パスカル→JAVA
-
忘れないうちに書き留めておき...
-
プログラムの勉強をしているの...
-
HTMLの値の渡し方について質問...
-
フォームのtextareaにnl2brを使...
おすすめ情報