【最小値順の場合】
①A[0]を最小値と仮定する。
②A[0]～A[n-1]内の最小値をA[0]にセットする。
③A[0]を除いて、A[1]～A[n-1]内の最小値をA[1]にセットする。
④上記処理をA[n-2]～A[n-1]まで繰り返す。

#include <stdio.h>

main() {
int i,j,t,min;
int n[5]={5,8,4,3,9};

for(i=0;i<5;i++){
min=i;
for(j=i+1;j<5;j++){
if(n[j] < n[min]){
min=j;
}
}
t=n[i];
n[i]=n[min];
n[min]=t;
printf("%i\n", n[i]);
}
}

学校に通ってから、プログラムを書く機会が増えた。90%以上は自力で書いていた。中に2、3日悩んだものもある。今日振り返ってみると、書いた内容のほとんどを忘れてしまった。ゆっくり思い出せるが、基本的なアルゴリズムばかりで、眼を閉じてもかけるようになりたい。書いたプログラムを繰り返し復習しなければならないと痛感した。

※復習の仕方について

http://www.21rots.com/hukusyu.htm

先週悪夢のような１週間だった。3つの課題の締め切り日に続き、1つの中間試験があった。おまけに分からない授業が増えた。今までは先生の説明が分かるようでわからないことが多かった。何とか重要なポイントだけ理解するようにしていた。先週のOSの授業は何に言っているのか、さっぱり分からなかった。ショックで学校のうどん屋で大盛りのうどんを注文して、やけ食いをしていた。

この状態では決して勉強できる状態ではないと思う。私には開き直る精神が必要だ。と思いながらも開きなりきれないのだ。コツがほしいのだ。

array[n]からarray[0]まで 隣同士比較、一番小さい数字をarray[0]に入れる。

array[n]からarray[1] まで隣同士比較、一番小さい数字をarray[1]に入れる。

array[n]からarray[2] まで隣同士比較、一番小さい数字をarray[2]に入れる。

配列の要素が無くなるまで、上記処理を繰り返す。

/*
小さい順に並べる
*/

#include <stdio.h>

main() {
int n[5]={8,17,45,9,5};
int i,j,t;

for(i=0;i<5;i++) {
for(j=4;j>i;j--){
if(n[j] < n[j-1]){
t=n[j];
n[j]=n[j-1];
n[j-1]=t;
}

}
printf("%d\t",n[i]);
}

}

/*大きい順に並べる*/

#include <stdio.h>
#include <stdlib.h>

int m( int x ){
if ( x > 100 ) {
return x - 10;
} else {
int n = m(x+11);
return m(n);
}
}

main(void){
int x = 0,n=0;
x=99.5;
n = m( x );
printf( "m(%d)=%d\n", x, n );
}

１．宣言

２．コンストラクタ（make-構造体名）、セレクタ（構造体名-各引数）　構造体？が生成

問1：ballの座標値から原点までの距離を求める。

入力　⇒ballの構造体

処理　⇒distance-to-0関数

出力　⇒数値（距離）

；；ballの構造体を定義

(define-struct ball
(x y delta-x delta-y))

以下のものが生成

；；make-ball(x y delta-x delta-y)

：：ball-x,ball-y,ball-delta-x,ball-delta-y

；；ball?

；；distance-to-0関数を定義

(define (distance-to-0 a-ball)
(sqrt
(+ (sqr (ball-x a-ball)) (sqr (ball-y a-ball)))))

；；実行
(distance-to-0 (make-ball 3 4 0 0))

問2：A点とB点のXの差を求める

入力　⇒A点とB点の構造体

処理　⇒関数distance 引数A点とB点の構造体のコンストラクタ

出力　⇒数値
；；任意点の座標の構造体pointを宣言

(define-struct point(x y z))

；；distance関数を定義

(define (distance pA pB)
(- (point-x pA) (point-x pB)))

；；実行１

(distance (make-point 19 2 3) (make-point 6 7 8))

；；実行２
(define p0 (make-point 0 0 0))
(define p1 (make-point 100 0 0))
(distance p0 p1)

問3：3次元空間の、2点間のユークリッド距離を求める
;; distance = sqrt( sqr((x1-x2 )+(y1-y2)+(z1-z2)
(define-struct point(x y z))
(define p0 (make-point 0 0 0))
(define p1 (make-point 100 0 0))
(define p2 (make-point 0 200 0))
(define p3 (make-point 100 100 0))

(define (distance p-fast p-next)
(cond
[(and (point? p-fast)
(point? p-next))
(sqrt
(+
(sqr (- (point-x p-fast) (point-x p-next)))
(sqr (- (point-y p-fast) (point-y p-next)))
(sqr (- (point-z p-fast) (point-z p-next)))
))]
[else 'ERROR]))

(distance p0 p1)
(distance p0 p2)
(distance p0 p3)
(distance 1 2)

DrSchemeに組み込み済の構造体

posn構造体　任意1点：属性x　ｙ

問4：3次元上の球を表現する構造体

(define-struct point (x y z))
(define-struct circle (c r))

;;c0とc1の距離を求める
(define (distance c-fast c-last)
(sqrt
(+
(sqr (- (point-x (circle-c c-fast)) (point-x (circle-c c-last))))
(sqr (- (point-y (circle-c c-fast)) (point-y (circle-c c-last))))
(sqr (- (point-z (circle-c c-fast)) (point-z (circle-c c-last))))
)))

;;c0とc1の半径の合計を求める
(define (sumr c-fast c-last)
(+
(circle-r c-fast)
(circle-r c-last)
))

;;over関数を定義
(define (over c-fast c-last)
(cond
[(> (distance c-fast c-last) (sumr c-fast c-last)) false]
[else true]))

;;比較
(define c0 (make-circle (make-point 0 0 0) 10))
(define c1 (make-circle (make-point 10 0 0) 3))
(define c2 (make-circle (make-point 0 -12 0) 2))

;;(distance c0 c1)
;;(sumr c0 c1)
(over c0 c1)
(over c0 c2)
(over c1 c2)

問5：式の計算

(define-struct expr (opc opr1 opr2))


(define (eval expr1)
(cond
[(eq? (expr-opc expr1) 'PLUS) (+ (expr-opr1 expr1) (expr-opr2 expr1))]
[(eq? (expr-opc expr1) 'MUL) (* (expr-opr1 expr1) (expr-opr2 expr1))]
[(eq? (expr-opc expr1) 'DIV) (/ (expr-opr1 expr1) (expr-opr2 expr1))]
[(eq? (expr-opc expr1) 'SUB) (- (expr-opr1 expr1) (expr-opr2 expr1))]
))

(eval (make-expr 'PLUS 1 3))
(eval (make-expr 'MUL 100 2))
(eval (make-expr 'DIV 3 1))
(eval (make-expr 'SUB 1000 200))