김진영_
가입: 2009년 12월 9일 올린 글: 337
|
올려짐: 2011년4월11일 19:48 주제: [HW3] K- 예제 프로그램 올려드립니다. |
|
|
테스트 하실 때 참고하시라고 올려 드립니다.
수강생 여러분들의 다양한 프로그램 공유도 환영합니다.
코드: | (* plus 1 *)
let x := 1;
y := 0 in
(read y;
write x + y) |
코드: | (* Fibonacci Sequence *)
let x := 0 in
let y := 1 in
let z := 1 in
let k := 0 in
let c := 0 in
read k;
while (c = 0) do (
if (z < k) then (
write z;
x := y;
y := z;
z := x + y
) else (
c := 1
)
) |
|
|