|
|
DIM Q$(27),SCORE(6)
INPUT PROMPT "あなたの年齢は":AGE
INPUT PROMPT "あなたの性別は 男(1) 女(2)":SEX
INPUT PROMPT "年間の走行距離(Km)は":MILEAGE
FOR I=1 TO 27
READ A$
DO
PRINT "No.";I;":";A$;" (Yes/No) ";
INPUT Q$(I)
LET Q$(I)=UCASE$(Q$(I))
LOOP UNTIL Q$(I)="Y" OR Q$(I)="N"
NEXT I
FOR I=1 TO 27
SELECT CASE I
CASE 1 TO 6
IF Q$(I)="Y" THEN LET SCORE(1)=SCORE(1)+1
CASE 7 TO 10
IF Q$(I)="Y" THEN LET SCORE(2)=SCORE(2)+1
CASE 11 TO 15
IF Q$(I)="Y" THEN LET SCORE(3)=SCORE(3)+1
CASE 16 TO 18
IF Q$(I)="N" THEN LET SCORE(4)=SCORE(4)+1
CASE 19 TO 23
IF Q$(I)="Y" THEN LET SCORE(5)=SCORE(5)+1
CASE 24 TO 26
IF Q$(I)="Y" THEN LET SCORE(6)=SCORE(6)+1
CASE 27
IF Q$(I)="N" THEN LET SCORE(6)=SCORE(6)+1
END SELECT
NEXT I
PRINT
PRINT ">>>>>>>>>> 結果 <<<<<<<<<<"
PRINT
SELECT CASE AGE
CASE IS<=29
SELECT CASE MILEAGE
CASE IS<2400
IF SEX=1 THEN
IF SCORE(1)=6 THEN CALL 自己中心的
IF SCORE(2)>=2 AND SCORE(2)<4 THEN CALL ながら
ELSE
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)=4 OR SCORE(3)=5 THEN CALL 不注視
IF SCORE(5)>=3 AND SCORE(5)<=5 THEN CALL 攻撃的
END IF
CASE 2400 TO 12000
IF SEX=1 THEN
IF SCORE(1)=6 THEN CALL 自己中心的
IF SCORE(2)>=1 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)>=1 AND SCORE(3)<=5 THEN CALL 不注視
IF SCORE(5)>=1 AND SCORE(5)<=5 THEN CALL 攻撃的
ELSE
IF SCORE(2)>=1 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(5)=4 OR SCORE(5)=5 THEN CALL 攻撃的
END IF
CASE IS>12000
IF SEX=1 THEN
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
ELSE
IF SCORE(6)=3 OR SCORE(6)=4 THEN CALL 無関心
END IF
END SELECT
CASE 30 TO 59
SELECT CASE MILEAGE
CASE IS<2400
IF SEX=1 THEN
IF SCORE(1)>=1 AND SCORE(1)<=6 THEN CALL 自己中心的
IF SCORE(2)=3 OR SCORE(2)=4 THEN CALL ながら
IF SCORE(3)=4 OR SCORE(3)=5 THEN CALL 不注視
IF SCORE(5)>=1 AND SCORE(5)<=5 THEN CALL 攻撃的
IF SCORE(6)>=2 AND SCORE(6)<=4 THEN CALL 無関心
ELSE
IF SCORE(1)>=4 AND SCORE(1)<=6 THEN CALL 自己中心的
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)>=2 AND SCORE(3)<=5 THEN CALL 不注視
IF SCORE(4)>=1 AND SCORE(4)<=3 THEN CALL 配慮不足
IF SCORE(5)>=2 AND SCORE(5)<=5 THEN CALL 攻撃的
IF SCORE(6)>=2 AND SCORE(6)<=4 THEN CALL 無関心
END IF
CASE 2400 TO 12000
IF SEX=1 THEN
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)>=3 AND SCORE(3)<=5 THEN CALL 不注視
IF SCORE(5)>=1 AND SCORE(5)<=5 THEN CALL 攻撃的
ELSE
IF SCORE(1)>=4 AND SCORE(1)<=6 THEN CALL 自己中心的
IF SCORE(2)=3 OR SCORE(2)=4 THEN CALL ながら
IF SCORE(3)>=2 AND SCORE(3)<=5 THEN CALL 不注視
IF SCORE(4)>=1 AND SCORE(4)<=3 THEN CALL 配慮不足
IF SCORE(5)>=1 AND SCORE(5)<=5 THEN CALL 攻撃的
IF SCORE(6)>=2 AND SCORE(6)<=4 THEN CALL 無関心
END IF
CASE IS>12000
IF SEX=1 THEN
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)>=3 AND SCORE(3)<=5 THEN CALL 不注視
IF SCORE(4)>=1 AND SCORE(4)<=3 THEN CALL 配慮不足
IF SCORE(5)>=3 AND SCORE(5)<=5 THEN CALL 攻撃的
IF SCORE(6)>=2 AND SCORE(6)<=4 THEN CALL 無関心
ELSE
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)>=3 AND SCORE(3)<=5 THEN CALL 不注視
IF SCORE(5)>=3 AND SCORE(5)<=5 THEN CALL 攻撃的
END IF
END SELECT
CASE 60 TO 69
SELECT CASE MILEAGE
CASE IS<2400
IF SEX=1 THEN
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)=4 OR SCORE(3)=5 THEN CALL 不注視
IF SCORE(5)>=3 AND SCORE(5)<=5 THEN CALL 攻撃的
IF SCORE(6)>=1 AND SCORE(6)<=4 THEN CALL 無関心
ELSE
IF SCORE(3)>=3 AND SCORE(3)<=5 THEN CALL 不注視
END IF
CASE 2400 TO 12000
IF SEX=1 THEN
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)=4 OR SCORE(3)=5 THEN CALL 不注視
IF SCORE(5)>=3 AND SCORE(5)<=5 THEN CALL 攻撃的
IF SCORE(6)>=1 AND SCORE(6)<=4 THEN CALL 無関心
ELSE
IF SCORE(3)>=3 AND SCORE(3)<=5 THEN CALL 不注視
END IF
CASE IS>12000
IF SEX=1 THEN
IF SCORE(2)>=2 AND SCORE(2)<=4 THEN CALL ながら
IF SCORE(3)=4 OR SCORE(3)=5 THEN CALL 不注視
IF SCORE(5)>=3 AND SCORE(5)<=5 THEN CALL 攻撃的
IF SCORE(6)>=1 AND SCORE(6)<=4 THEN CALL 無関心
ELSE
IF SCORE(3)>=3 AND SCORE(3)<=5 THEN CALL 不注視
END IF
END SELECT
END SELECT
DATA 後からクラクションを鳴らされると腹が立つ
DATA 渋滞時に、横から割り込まれると損した気分になる
DATA 割り込みされそうな時は、車間距離をつめる
DATA 歩行者が道路をゆっくり横断しているとイライラする
DATA 歩行者や自転車に、自分のペースをみだされるのは嫌だ
DATA 何度も信号で止められると、とても嫌な感じがする
DATA カーナビや地図を見ながら運転することがある
DATA 運転中、身支度や飲食をすることがある
DATA 運転中、よくオーディオ、テレビを操作する
DATA 走行中、携帯電話に着信があると、受けてしまう
DATA 前の車のブレーキランプに気づくのが遅れて、慌てることがある
DATA 脇見をしていて、ハッとすることがある
DATA 考え事をしていて、ハッとすることがある
DATA 夜、歩行者や自転車に、ハッとすることがある
DATA カーブミラーに映る他車の位置を見誤ることがある
DATA 体調を整えてから運転する
DATA 初心者マーク、高齢者マークの車を意識して運転する
DATA 後方に注意して運転するほうだ
DATA 追い越しや車線変更をするほうだ
DATA 前方が空いていると、ついスピードが出てしまう
DATA 信号が赤になる前に、急いで交差点に進入することがある
DATA 人から運転が強引だと言われたことがある
DATA カーブでも、スピードを落とさずに走れる
DATA 夜間や悪天候のときは、運転しないようにする
DATA 長距離の運転を控える
DATA 見通しや路面状態がよくても、制限速度より遅めに走る
DATA ちょっとしたことでもよくブレーキを踏む
SUB 自己中心的
PRINT "--------------自己中心的--------------"
PRINT
PRINT "自分のペースを乱されると不快になる傾向が強いようです"
PRINT
PRINT "不快な気持ちが運転にも反映され、知らず知らずのうちに、"
PRINT "的確な認知や判断、操作等ができなくなり、事故の危険性が高くなります"
PRINT
PRINT "イライラは禁物、余裕を持った運転を心がけるように努めましょう"
PRINT
END SUB
SUB ながら
PRINT "--------------ながら--------------"
PRINT
PRINT "運転中に、運転に直接関係のないことに関心が向いてしまう傾向が強いようです"
PRINT
PRINT "人間は同時に複数の作業もできますが、そうした場合、効率が低下したり、"
PRINT "ミスが多くなり、事故の危険性が高くなります"
PRINT
PRINT "運転中は、運転に必要な作業に専念し、急な状況の変化にも対応できるように努めましょう"
PRINT
END SUB
SUB 不注視
PRINT "--------------不注視--------------"
PRINT
PRINT "運転中に、前方の道路交通状況に対する注視を怠ってしまう傾向が強いようです"
PRINT
PRINT "脇見はもちろん、前方を見ていても集中力が低下すると、危険に気づくのが遅れたり、"
PRINT "気づかなかったりで、事故の回避が困難になります"
PRINT
PRINT "道路の状況、他の道路利用者の動きを、常に把握するように心がけて運転しましょう"
PRINT
END SUB
SUB 配慮不足
PRINT "--------------配慮不足--------------"
PRINT
PRINT "他の道路利用者の行動特性や考え方をしっかり理解することに関心がないようです"
PRINT
PRINT "他者や自己の状態をしっかり理解することで、交通場面に応じた状況を想定することもでき、"
PRINT "急な状況の変化にも的確に対応できます"
PRINT
PRINT "他者や周囲の状況に配慮して運転すると、事故の危険性を低くすることができます"
PRINT
END SUB
SUB 攻撃的
PRINT "--------------攻撃的--------------"
PRINT
PRINT "少しでも前に、少しでも早くという気持ちで運転する傾向が強いようです"
PRINT
PRINT "高い速度での運転や度々行う車線変更は、自己だけでなく他の道路利用者の判断や"
PRINT "操作ミスを誘発することで、事故に結びつく可能性を高めます"
PRINT
PRINT "他の人が危ないと感じたり、事故の危険性を高めるような運転はやめましょう"
PRINT
END SUB
SUB 無関心
PRINT "--------------無関心--------------"
PRINT
PRINT "事故の危険性が高い状況を回避しない傾向が強いようです"
PRINT
PRINT "人は十分に注意していてもミスを犯すことがありますが、そのミスが大きなミスに"
PRINT "繋がらないような状況、条件での運転であれば、事故は回避できます"
PRINT
PRINT "頻繁にブレーキを踏まなくてもよい運転に心がけることで、事故の危険性が低くなります"
PRINT
END SUB
END
|
|