09/01/11 21:16:31
>>863
で、どの課題が残ってるのかね？
869:デフォルトの名無しさん
09/01/12 22:18:35
program prog1(input, output);
var i ,x1,x2,x3,y1,m1,d1,y2,m2,d2: integer;
function calcd(y,m,d:integer):integer;
var i,leapday,years,days,mdays:integer;
begin
years := y-1;
days := d;
days := days + years * 365;
days := days + trunc (years/4) - trunc (years/100) + trunc (years/400);
if ( (y mod 4 =0) and (y mod 100 <>0) and (y mod 400 =0) ) then
leapday := 1
else
leapday := 0;
for i:=1 to m - 1 do begin
case i of
1,3,5,7,8,10,12 : mdays := 31;
4,6,9,11 : mdays := 30;
2 : mdays := 28 + leapday ;
end;
days := days + mdays;
end;
calcd:=days;
end;
begin
writeln('next birthday'); write('year=');readln(y1); write('month=');readln(m1); write('day=');readln(d1);
writeln('today'); write('year=');readln(y2); write('month=');readln(m2); write('day=');readln(d2);
x1:=calcd(y1,m1,d1); x2:=calcd(y2,m2,d2); x3:=x1-x2;
write('tanjobi made ',x3,' nichi');
end.
870:デフォルトの名無しさん
09/01/19 02:10:07
４行４列の行列の各要素を読み込み、ファイルへ行列形式で書き込ませるプログラムを作れ。
全然わかりません。お願いします。
火曜日までです。
871:デフォルトの名無しさん
09/01/19 02:16:16
cat 行列1.txt > 行列2.txt
872:デフォルトの名無しさん
09/01/19 19:06:58
ファイルの入出力関係って難しいよね
873:デフォルトの名無しさん
09/01/19 20:09:01
高校数学では行列を教えなくなるらしいね。
874:空落ち ◆SniperBHgo
09/01/21 20:17:38
>>870
行列形式ってなんだろう
program Mat(input,output,ExtFile);
const
COL = 4;
ROW = 4;
type
Matrix = packed array [1..COL,1..ROW] of integer;
MatrixFile = file of Matrix;
var
ExtFile : MatrixFile;
i : 1..COL;
j : 1..ROW;
InputMatrix : Matrix;
begin
rewrite( ExtFile, 'ExtFile' );
for i := 1 to COL do begin
for j := 1 to ROW do begin
write( '[', i, ',', j, ']?:' );
readln( InputMatrix[i,j] )
end
end;
write( ExtFile, InputMatrix )
end.
875:デフォルトの名無しさん
09/01/27 16:40:44
Delphi6.0で
（１）2つの自然数nとmが与えられたとき、
nとmの最大公約数を出力するプログラムを書け。
（２）与えられた3×3行列の行列式を計算するプログラムを書け
(行列は2次元配列で表すこと。)
という課題はどうやってとけばいいのでしょうか？
876:デフォルトの名無しさん
09/01/27 18:36:09
頭を使って解けばいいと思います
877:デフォルトの名無しさん
09/01/27 21:48:58
頭じゃなくてDelphi6.0でって書いてあるのに･･･
878:デフォルトの名無しさん
09/01/28 02:31:19
>>875
動作確認なんてしてないから間違ってたらすまん
改行大杉って怒られたんでつめて書く
type
TMatrix3x3 = array[0..2][0..2]of Double;
function det3x3(Mat:TMatrix3x3):Double;
var
i,j:Integer;
hoge:Extended;
begin
Result:=0;
//Plus
for i:=0 to 2 do begin
hoge:=1;
for j:=0 to 2 do
hoge:=hoge*Mat[j][(i+j)mod 3];
Result:=Result+hoge;
end;
//Minus
for i:=0 to 2 do begin
hoge:=1;
for j:=0 to 2 do
hoge:=hoge*Mat[j][(3+i-j)mod 3];
Result:=Result-hoge;
end;
end;
879:デフォルトの名無しさん
09/01/28 02:32:32
我ながら改行とかインデント崩れすぎﾜﾛﾀ
880:デフォルトの名無しさん
09/01/28 08:59:15
大丈夫、環境によってはキチンとインデントされて見えてるから。
半角2文字づつ綺麗にインデントされたやつが。
881:デフォルトの名無しさん
09/01/28 10:09:12
俺のとこもちゃんとなってるよ
882:１２３
09/02/11 17:58:34
４４０！を８８１で割ったときの余りをＲを求めよ。また、Ｒ2を８８１で割ったときの余りを求めよ。
883:デフォルトの名無しさん
09/02/12 01:16:47
program prog1(input, output);
var i,ans:integer;
begin
ans := 1;
for i := 1 to 440 do
begin
ans := ans * i mod 881;
end;
writeln(ans);
readln;
end.
884:１２３
09/02/12 10:02:40
さすがです！！！任務完了！
885:デフォルトの名無しさん
09/02/13 01:09:04
[1] 授業単元：Pascal
[2] 問題文(含コード&リンク)：
1から9までの数字を縦横方向に同じものが並ばないように下記の例のように並べる
並べ方が全部で何通りあるかとその並びをすべて列挙する
[3] 環境：特になし
[4] 期限： 明日まで
[5] その他の制限：
例
534681297
685293714
948367125
153472869
426538971
261759483
817945632
379126548
792814356
886:デフォルトの名無しさん
09/02/13 01:25:52
547 名前： デフォルトの名無しさん [sage] 投稿日： 2009/02/12(木) 17:07:40
Python の宿題ここで答えます Part 1
ｽﾚﾘﾝｸ(tech板:785番)
C/C++の宿題片付けます 122代目
ｽﾚﾘﾝｸ(tech板:542番)
Rubyの宿題教えてください。2限目
ｽﾚﾘﾝｸ(tech板:476番)
こんなんで数独の掲載料もらえるなら俺だって問題送りたい
887:デフォルトの名無しさん
09/02/13 20:40:20
数独の条件はそれだけじゃないだろ。
888:デフォルトの名無しさん
09/02/15 13:11:36
課題が全部列挙だとするとマジキチなサイズのレポートが出来上がる