[過去ﾛｸﾞ] 【初心者】課題をクリアしていくスレ【講習会】 (787ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
251: HSPが初プログラム@生徒希望 [sage] 04/07/05 22:51 ID:ZZjGGIiZ(1/2) AAS
sdim m,4000 : notesel m
mesbox m,640,480
noteadd "2" m : noteadd "3" m : noteadd "5" m : noteadd "7" m
n=7
c=4
*judge
n+=2
if n\3=0 : goto *judge
if n\5=0 : goto *judge
if n\7=0 : goto *judge
noteadd "n" m : c+
if c=1000 : goto *s
goto *judge
*s
stop
素数はこれで出るカナと思ったんですが、エラー発生。原因を突き止められませんTT
252(1): x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/05 23:00 ID:pTJ3lo22(1/2) AAS
エラーを読も・・・・・Σ(；ﾟДﾟ)HSPがエラー吐いてない！
noteadd "*" m
~|~
要らない。ここでエラーが出てる。
noteadd "n"
~|~
エラーの原因ではないが、""+nの誤り。
あと、objprm 0, mをstopの前に入れて出力させてあげよう。
253(1): HSPが初プログラム@生徒希望 [sage] 04/07/05 23:07 ID:ZZjGGIiZ(2/2) AAS
>>252
thx
でも、4363で終わりますがあってるんでしょうか?
sdim m,4000 : notesel m
mesbox m,640,480
noteadd "2" : noteadd "3" : noteadd "5" : noteadd "7"
n=7
c=4
*judge
n+=2
if n\3=0 : goto *judge
if n\5=0 : goto *judge
if n\7=0 : goto *judge
noteadd ""+n : c+
if c=1000 : goto *s
goto *judge
*s
objprm 0, m
stop
254: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/05 23:24 ID:pTJ3lo22(2/2) AAS
たしか7919のはずだけど・・・
暇だしPerlとJava版の素数判定作ってみようかな。。。
255: 名前は開発中のものです。 [sage] 04/07/05 23:25 ID:MIzlaErt(1) AAS
>>253
間違ってるよ・・・
121とかあるし・・・11からの素数の合成数が出まくりやね。
256: 名前は開発中のものです。 [sage] 04/07/06 00:11 ID:hNVuoewj(1) AAS
>>247247(3): 名前は開発中のものです。 [sage] 04/07/05 20:13 ID:axn64mRQ(1) AAS
すごいスレの流れと違うような気がしますが、
Cで、ウインドウ表示とか（課題3）、できないんですが･･･どうしたらいいんでしょうか？
それは簡単だって！どっかのサイトに張ってあるやつをそのままコピペで完成だぁよぉ！
257: 名前は開発中のものです。 [sage] 04/07/06 01:48 ID:IHRV3HSb(1/2) AAS
素数スレになってるのだが・・・
258: 名前は開発中のものです。 [] 04/07/06 02:29 ID:pkSoPn0/(1/5) AAS
Delphi エラトステネスの篩
外部ﾘﾝｸ[zip]:gamdev.org
259(1): x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/06 07:38 ID:BOq5Vq10(1/4) AAS
#!D:\perl\bin\perl.exe
print "Content-type: text/plain\n\n";
print "Start\n";
print "2\n";
$table[0] = 2;
$i = 1;
for(2..1000){
for($i += 2; ; $i += 2){
if(&IsPrime($i)){ last; }
}
}
print "Finish";
exit(1);
sub IsPrime{
(my $src) = @_;
for($j = 0; $table[$j] <= sqrt($src); $j++){
if($src % $table[$j] == 0){ return 0; }
}
print $src."\n";
push(@table, $src);
return 1;
}
# Perl版。printを取ってみると分かるけどPerlはインタープリタなのに
# 結構処理速いね。。。
260: 名前は開発中のものです。 [sage] 04/07/06 12:03 ID:IHRV3HSb(2/2) AAS
>>259
Perlは見かけ上インタプリタだけど、
処理はコンパイル後実行だと聞いたことがある。
261: 名前は開発中のものです。 [] 04/07/06 16:54 ID:pkSoPn0/(2/5) AAS
C#で素数
static void Main(string[] args)
{
int sosuCount=0;
for (int i = 2; sosuCount<1000; i++)
{
Boolean nososu;
nososu = false;
for (int j = 2; j < i ; j++)
{
if ((i % j) == 0)
{
nososu = true;
break;
}
}
if (!nososu)
{
Console.WriteLine(i);
sosuCount++;
}
}
Console.WriteLine(sosuCount + "個の素数を発見しました");
}
262: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/06 17:32 ID:BOq5Vq10(2/4) AAS
public class Prime {
public final static int PRIME_MAX = 1000;
static int PrimeTable[] = new int [PRIME_MAX];
static int TableLast = 1;
public static void main(String[] args) {
int l = 1;
PrimeTable[0] = 2;
System.out.println(2);
for(; TableLast < PRIME_MAX; TableLast++)
for(l += 2; ; l += 2)
if(IsPrime(l)) break;
System.out.println("Finish");
}
public static boolean IsPrime(int src) {
for(int i = 0; PrimeTable[i] <= Math.sqrt(src) && i < TableLast; i++)
if(src % PrimeTable[i] == 0) return false;
PrimeTable[TableLast] = src;
System.out.println(src);
return true;
}
}
// Java版。
// あと手を付けてない言語は何だっけ。
// ・・・ひまわりでもやってみるか。
263: 名前は開発中のものです。 [] 04/07/06 18:09 ID:pkSoPn0/(3/5) AAS
//PHPで素数
<?php
for ($i=2; $sosuCount<1000; $i++)
{
$nososu=false;
for ($j=2; $j<$i; $j++)
{
if (($i % $j) == 0)
{
$nososu=true;
break;
}
}
if (!$nososu)
{
echo $i;
echo "\n";
$sosuCount++;
}
}
echo $sosuCount + "個の素数を発見しました";
?>
264: 名前は開発中のものです。 [] 04/07/06 18:57 ID:pkSoPn0/(4/5) AAS
#Pythonで素数
sosuCount=0
i=2
while sosuCount<1000:
nososu=False
j=2
while j<i:
if ((i % j) == 0):
nososu=True
j=99999
break
j=j+1
if (not nososu):
print i
sosuCount=sosuCount+1
i=i+1
print sosuCount
print "個の素数を発見しました"
265: 生徒A [sage] 04/07/06 19:10 ID:B1nIIlBn(1) AAS
素数スレに変化していたらしい
266(1): 名前は開発中のものです。 [sage] 04/07/06 19:57 ID:2QvbUldx(1) AAS
いろんな言語で素数プログラムつくるとゲーム作れるようになるですか
267(1): 4 ◆3VUXqvbfSY [] 04/07/06 20:22 ID:sRW7wZ6D(1) AAS
>>266
なるわけありませんｗ
だだし、解らない方をホっといて課題を進める訳には…
うーん…
じゃあ、課題外伝でも出しますか…
余力が有ればどうぞ。
弾道シミュレーション:とは言え、何も波動方程式を使えとはいわない。
真空空間で結構。
画面を横を640kmと仮定し、初速、角度を入力させ、弾の軌道を描いてくれ。
ちなみに、初速は29000m/s以下で
重力加速度は10m/(s^2)でお願いします。
268: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/06 20:28 ID:BOq5Vq10(3/4) AAS
(；ﾟДﾟ)ﾉ先生!…まだ高1なので習ってません
269(1): 名前は開発中のものです。 [sage] 04/07/06 21:30 ID:Oq4N2t0v(1) AAS
>>２６８
高一だけどもう習ったよ
270(1): 名前は開発中のものです。 [sage] 04/07/06 21:32 ID:tJWPmmxn(1) AAS
とりあえず初速度を三角関数でxとyに分解した後、
重力加速度をyに対して適用していきましょう。
しかし初速29000m/sだと、軽々地球を離脱して重力圏外に吹っ飛んでいきそうです。
271(1): 名前は開発中のものです。 [sage] 04/07/06 21:37 ID:jam3e6md(1) AAS
地球の半径は6370kmぐらいでいいですか？
272: HSPが初プログラム@生徒希望 [sage] 04/07/06 22:03 ID:GhTVD8Z+(1/2) AAS
>>242242(1): x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/04 20:47 ID:WDudAYFD(5/5) AAS
あ、インデントかけるの忘れとった。。。
; 素数判定 with HSP 単純版
sdim log, 7000: notesel log
title "素数判定 - Calculating..."
mesbox log, 640, 480
repeat ,2
n = cnt
repeat cnt-2, 2
if n \ cnt = 0: n = 0: break
loop
if n{
noteadd ""+cnt
i++
if i >= 1000: break
await
}
loop
objprm 0, log
title "素数判定"
stop
> if n{
このｎって何の意味があるんですか?
それから>>241241(2): x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/04 20:45 ID:WDudAYFD(4/5) AAS
; 素数判定 with HSP 少しだけ高速版
sdim log, 7000: notesel log
title "素数判定 - Calculating..."
mesbox log, 640, 480
log = "2": n = 1
repeat 999
repeat
n += 2: f = 1
repeat n>>1-1,3
if n \ cnt = 0: f = 0: break
continue cnt+2
loop
if f: break
loop
noteadd ""+n
await
loop
objprm 0, log
title "素数判定"
stop
にある「>>」の使い方がわかりません…
273: HSPが初プログラム@生徒希望 [sage] 04/07/06 22:06 ID:GhTVD8Z+(2/2) AAS
連レス済みません
HSPでの平方根の出すのと、その整数か否かの判断てできますか?
できれば、教えてください。
質問ばっかで済みません
274(2): x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/06 23:17 ID:BOq5Vq10(4/4) AAS
>>269
ｶﾞ━━(ﾟДﾟ;)━━━ﾝ!!
物理じゃなくて化学だし・・・
>>270
何をすればいいのか全くわからそ( ´･ω･`)
>>271
ループを抜けるときにn = 0にされていたら(割り切れたときにn = 0にして抜けている)無視、
されていない(素数)のとき、いろいろしてる。
>>はビットシフト。2進数が関わってきます。
で、結果的には
x >> nは、xを2のn乗で割るのと同じ。
x << nは、xに2のn乗をかけるのと同じ。
だから、n>>1はn/2と同じ。
平方根も求められるには求められるけど、自分で求めるアルゴリズムは用意しないといけない。
その整数か否かとは・・・？
275(1): 名前は開発中のものです。 [sage] 04/07/06 23:53 ID:pkSoPn0/(5/5) AAS
//HSPヘルプではincludeするのはhspext.hsになってますがhspext.asじゃないと動きません
//なぜ？(´･ω･｀)
//
//平方根の求め方
//
//HSP2.61で動作確認しますた
//
#include "hspext.as"
//100の平方根を求めます
i=100
//iの平方根を固定少数点型でjに代入
emsqr j,i
//jの値を整数型にキャスト(少数点以下切り捨て)
j=j>>44(10): 受験生 ◆3VUXqvbfSY [age] 04/06/10 23:09 ID:aWWFz+nO(1) AAS
言語が解んなきゃ、出しようがないが…
C++ > ウィンドウを作ってみましょう。
VS.NET +VB > ビットマップでも読んでみましょう。
JAVA > …微妙…
//jを表示
print j
stop
上下前次1-新書関写板覧索設栞歴
あと 512 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.020s