2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 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

7 :99:2007/01/05(金) 15:43:37
プログラミングの宿題で「簡単な絵を動かしなさい」って言うのが出たので本当に基本的ななのでいいので誰か教えてください;;
○が動くとか、顔の表情が変わるとかいうぐらいのレベルでいいらしいです!!
お願いしますッッ(>д<;)

8 :デフォルトの名無しさん: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

9 :デフォルトの名無しさん: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

10 :デフォルトの名無しさん:2007/01/06(土) 20:26:44
どなたか助けてください。
簡単なことなようなのに、どうしてもできないのです。

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

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


11 :11:2007/01/06(土) 20:44:26
このスレッドは10を超えました。
重複なので、↓のスレで聞いてくださいです。。。

BASICの宿題はお前にまかせた
http://pc10.2ch.net/test/read.cgi/tech/1136788500/l50

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

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

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)