質問編集履歴
6
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -58,6 +58,8 @@
|
|
|
58
58
|
|
|
59
59
|
自分で文字型markを読みこみ、そのマークの値によって、条件分岐で整数値mの登録、削除、探索、データの列挙、もしくは終了を行う2分木構造プログラムです。
|
|
60
60
|
|
|
61
|
+
register,delete,search,enumerateは各操作を2分木に行う関数です。
|
|
62
|
+
|
|
61
63
|
これを実行した時に、
|
|
62
64
|
|
|
63
65
|
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
5
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
freepascalのプログラム
|
|
1
|
+
freepascalのプログラム 文字型の扱い
|
test
CHANGED
|
@@ -56,7 +56,7 @@
|
|
|
56
56
|
|
|
57
57
|
|
|
58
58
|
|
|
59
|
-
自分で文字型markを読みこみ、そのマークの値によって、条件分岐で整数値mの登録、削除、探索、データの列挙、もしくは終了を行うプログラムです。
|
|
59
|
+
自分で文字型markを読みこみ、そのマークの値によって、条件分岐で整数値mの登録、削除、探索、データの列挙、もしくは終了を行う2分木構造プログラムです。
|
|
60
60
|
|
|
61
61
|
これを実行した時に、
|
|
62
62
|
|
4
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
大学の夏休みの課題で、自分一人で解決できなくなってしまいました。もし分かる方がいらっしゃれば教えて下さい。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
3
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
大学の夏休みの課題で、自分一人で解決できなくなってしまいました。もし分かる方がいらっしゃれば教えて下さい。
|
|
1
|
+
f大学の夏休みの課題で、自分一人で解決できなくなってしまいました。もし分かる方がいらっしゃれば教えて下さい。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
@@ -58,8 +58,6 @@
|
|
|
58
58
|
|
|
59
59
|
自分で文字型markを読みこみ、そのマークの値によって、条件分岐で整数値mの登録、削除、探索、データの列挙、もしくは終了を行うプログラムです。
|
|
60
60
|
|
|
61
|
-
|
|
62
|
-
|
|
63
61
|
これを実行した時に、
|
|
64
62
|
|
|
65
63
|
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
2
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
freepascalのプログラム
|
test
CHANGED
|
@@ -2,11 +2,13 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
freepascal データの挿入探索削除列挙のプログラム
|
|
5
|
+
freepascal データの挿入探索削除列挙のプログラム(実行文部)
|
|
6
6
|
|
|
7
7
|
|
|
8
8
|
|
|
9
|
-
|
|
9
|
+
```freepascal
|
|
10
|
+
|
|
11
|
+
|
|
10
12
|
|
|
11
13
|
begin
|
|
12
14
|
|
|
@@ -45,6 +47,12 @@
|
|
|
45
47
|
writeln('終了');
|
|
46
48
|
|
|
47
49
|
end.
|
|
50
|
+
|
|
51
|
+
|
|
52
|
+
|
|
53
|
+
```
|
|
54
|
+
|
|
55
|
+
|
|
48
56
|
|
|
49
57
|
|
|
50
58
|
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,49 +1,107 @@
|
|
|
1
|
-
|
|
1
|
+
大学の夏休みの課題で、自分一人で解決できなくなってしまいました。もし分かる方がいらっしゃれば教えて下さい。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
ここに質問の内容を詳しく書いてください。
|
|
6
|
-
|
|
7
|
-
|
|
5
|
+
freepascal データの挿入探索削除列挙のプログラム
|
|
8
|
-
|
|
9
|
-
■■な機能を実装中に以下のエラーメッセージが発生しました。
|
|
10
6
|
|
|
11
7
|
|
|
12
8
|
|
|
9
|
+
(実行文部)
|
|
10
|
+
|
|
11
|
+
begin
|
|
12
|
+
|
|
13
|
+
root:=nil;
|
|
14
|
+
|
|
13
|
-
|
|
15
|
+
mark:=' ';
|
|
16
|
+
|
|
17
|
+
while mark<>'q' do
|
|
18
|
+
|
|
19
|
+
begin
|
|
20
|
+
|
|
21
|
+
writeln('[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了');
|
|
22
|
+
|
|
23
|
+
write('選択キー:'); read(mark);
|
|
24
|
+
|
|
25
|
+
if mark='r' then
|
|
26
|
+
|
|
27
|
+
begin write('登録データ入力:'); read(m); register(m,root) end
|
|
28
|
+
|
|
29
|
+
else if mark='d' then
|
|
30
|
+
|
|
31
|
+
begin write('削除データ入力:'); read(m); delete(m,root) end
|
|
32
|
+
|
|
33
|
+
else if mark='s' then
|
|
34
|
+
|
|
35
|
+
begin write('探索データ入力:'); read(m); search(m,root) end
|
|
36
|
+
|
|
37
|
+
else if mark='e' then
|
|
38
|
+
|
|
39
|
+
begin write('データ一覧:'); enumerate(root); writeln end;
|
|
40
|
+
|
|
41
|
+
writeln;
|
|
42
|
+
|
|
43
|
+
end;
|
|
44
|
+
|
|
45
|
+
writeln('終了');
|
|
46
|
+
|
|
47
|
+
end.
|
|
14
48
|
|
|
15
49
|
|
|
16
50
|
|
|
17
|
-
```
|
|
18
|
-
|
|
19
|
-
|
|
51
|
+
自分で文字型markを読みこみ、そのマークの値によって、条件分岐で整数値mの登録、削除、探索、データの列挙、もしくは終了を行うプログラムです。
|
|
20
|
-
|
|
21
|
-
```
|
|
22
52
|
|
|
23
53
|
|
|
24
54
|
|
|
25
|
-
|
|
55
|
+
これを実行した時に、
|
|
56
|
+
|
|
57
|
+
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
|
58
|
+
|
|
59
|
+
選択キー:r
|
|
60
|
+
|
|
61
|
+
登録データ入力:7 (①)
|
|
26
62
|
|
|
27
63
|
|
|
28
64
|
|
|
29
|
-
|
|
65
|
+
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
|
30
66
|
|
|
31
|
-
|
|
67
|
+
選択キー:
|
|
32
68
|
|
|
69
|
+
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
|
70
|
+
|
|
71
|
+
選択キー:r (②)
|
|
72
|
+
|
|
33
|
-
|
|
73
|
+
登録データ入力:8
|
|
34
74
|
|
|
35
75
|
|
|
36
76
|
|
|
77
|
+
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
|
78
|
+
|
|
79
|
+
選択キー:
|
|
80
|
+
|
|
81
|
+
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
|
82
|
+
|
|
83
|
+
選択キー:e
|
|
84
|
+
|
|
37
|
-
|
|
85
|
+
データ一覧:7,8,
|
|
38
86
|
|
|
39
87
|
|
|
40
88
|
|
|
41
|
-
|
|
89
|
+
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
|
90
|
+
|
|
91
|
+
選択キー:
|
|
92
|
+
|
|
93
|
+
[r]:登録,[d]:削除,[s]:探索,[e]:データ列挙,[q]:終了
|
|
94
|
+
|
|
95
|
+
選択キー:q
|
|
42
96
|
|
|
43
97
|
|
|
44
98
|
|
|
45
|
-
|
|
99
|
+
終了
|
|
46
100
|
|
|
47
101
|
|
|
48
102
|
|
|
103
|
+
このように、毎回のループで選択キーが登録されない？(空白になる)ループが一回起きてしまいます。上で言えば、①を打ち込んだあと、すぐに②の行に移るという感じです。
|
|
104
|
+
|
|
105
|
+
|
|
106
|
+
|
|
49
|
-
|
|
107
|
+
色々自分で試行錯誤したのですが、解決できなかったので、よろしくお願い致します。
|