5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

【教えてください】BASICのプログラムの宿題

1 :デフォルトの名無しさん:2006/12/13(水) 19:58:06
下記のプログラムをC言語に変換するごく基本的な問題らしいのですが、よく分かりません。
期限は明日までなので答えだけ教えてもらえるだけでも助かりますし、お時間が空いていらっしゃるなら
詳しい説明を教えていただければ幸いです。


10 REM det
20 N=8
30 DIM A(N),B(N),X(N)
40 FOR I=0 TO N-1
50 READ X(I)
60 NEXT I
70 P=6.283/N
80 FOR K=0 TO N-1
90 A(K)=0:B(K)=0
100FOR J=0 TO N-1
110 A(K)=A(K)+X(J)*COS(P*J*K)
120 B(K)=B(K)-X(J)*SIN(P*J*K)
130NEXT J
140 NEXT K
150 FOR I=0 TO N-1
160 Y=SQR(A(I)^2+B(I)^2)
170 LPRINT I;:LPRINT USING "###.###";A(I),B(I),Y
180 NEXT I
190 DATA 1,1,1,1,0,0,0,0

READ文は、DATA文以降のデータを順番に読み取っていて。
LPRINTは、プリンタに直接出力する命令で、printfと同じってことはなんとかわかってます。
よろしくお願いします。

2 :昌也D:2006/12/13(水) 20:58:49
このスレは
すき焼き総合スレになりました。

3 :デフォルトの名無しさん:2006/12/13(水) 21:42:07
>>2
鍋統合じゃないの?


4 :デフォルトの名無しさん:2006/12/13(水) 22:38:46
BASICだけにスパゲッティ総合スレでひとつ

5 :デフォルトの名無しさん:2006/12/13(水) 23:53:36
// det
import System;
var x = [1, 1, 1, 1, 0, 0, 0, 0];
var n = x.length;
var a = new Array(n), b = new Array(n);
var p = 2 * Math.PI / n;
for (var k = 0; k < n; k++) {
    a[k] = b[k] = 0;
    for (var j = 0; j < n; j++) {
        a[k] += x[j] * Math.cos(p * j * k);
        b[k] -= x[j] * Math.sin(p * j * k);
    }
}
for (var i = 0; i < n; i++) {
    var y = Math.sqrt(a[i] * a[i] + b[i] * b[i]);
    Console.WriteLine("{0}{1,7:F3}{2,7:F3}{3,7:F3}", i, a[i], b[i], y);
}

6 :デフォルトの名無しさん:2006/12/14(木) 01:18:10
! det
program main
 implicit none
 integer, parameter :: dp = selected_real_kind(12)
 integer, parameter :: n = 8
 real(kind=dp), parameter :: p = 6.283_dp / n
 real(kind=dp), dimension(0:n-1) :: A, B, X, Y
 integer :: i, j, k
 X = (/1, 1, 1, 1, 0, 0, 0, 0/)
 A = 0; B = 0
 do k = 0, n-1
  do j = 0, n-1
   A(k) = A(k) + X(j) * cos(p*j*k)
   B(k) = B(k) - X(j) * sin(p*j*k)
  end do
 end do
 Y = sqrt(A**2 + B**2)
 do i = 0, n-1
  print "(1X, I0, 3F7.3)", i, A(i), B(i), Y(i)
 end do
end program main

3 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)