トップページ⇒tech
11コメント5KB

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

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん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と同じってことはなんとかわかってます。
よろしくお願いします。
0002昌也D2006/12/13(水) 20:58:49
このスレは
すき焼き総合スレになりました。
0003デフォルトの名無しさん2006/12/13(水) 21:42:07
>>2
鍋統合じゃないの？
0004デフォルトの名無しさん2006/12/13(水) 22:38:46
BASICだけにスパゲッティ総合スレでひとつ
0005デフォルトの名無しさん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);
}
0006デフォルトの名無しさん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
0007992007/01/05(金) 15:43:37
ﾌﾟﾛｸﾞﾗﾐﾝｸﾞの宿題で「簡単な絵を動かしなさい」って言うのが出たので本当に基本的ななのでいいので誰か教えてください;;
○が動くとか、顔の表情が変わるとかいうぐらいのレベルでいいらしいです!!
お願いしますｯｯ(>д<;)
0008デフォルトの名無しさん2007/01/06(土) 00:44:48
>>7
10 cls
20 for x=0 to 25
30 locate x,x: print "簡単な絵";
40 for i=1 to 2000:next
50 locate x,x: print "　　　　";
60 next
0009デフォルトの名無しさん2007/01/06(土) 04:19:08
10 cls
20 for i=0 to 15
30 locate (0,i);
40 print " (>д<;)";
50 for j=0 to 1000
60 next j,i;
70 end
0010デフォルトの名無しさん2007/01/06(土) 20:26:44
どなたか助けてください。
簡単なことなようなのに、どうしてもできないのです。

”tanX=c/X”を求めようとして調べている間に「高校数学の窓」というページを見つけ、
質問「１１２６」で下記のようなプログラムを見つけましたが、
このプログラムは”tanX=c/X”ではなくて”tanX=X”を求めるプログラムなのです。
自分で”tanX=c/X”用にアレンジしようとしたのですが、どうして良いのかわかりません。
Ｂａｓｉｃに詳しいどなたか、どういう風に書き換えればよいのか教えてください。
どうぞよろしくお願いします。

DEF f(x)=x-tan(x)
DEF g(x)=-(tan(x))^2 ! g(x)=f'(x)
INPUT a
LET x=a
LET E=0.000001
DO
LET x1=x-f(x)/g(x)
PRINT x1
IF ABS(x1-x)＜E THEN EXIT DO
LET x=x1
LOOP
END
0011１１2007/01/06(土) 20:44:26
このスレッドは１０を超えました。
重複なので、↓のスレで聞いてくださいです。。。

BASICの宿題はお前にまかせた
http://pc10.2ch.net/test/read.cgi/tech/1136788500/l50
■ このスレッドは過去ログ倉庫に格納されています