【PowerShellでやさしいプログラミング】第8回：練習問題集

#身長を入力してもらう
$height = Read-Host "身長を入力してください。"

#体重を入力してもらう
$weight = Read-Host "体重を入力してください。"

$BMI = $weight / [Math]::Pow($height/100,2)

#BMI値を表示
Write-Output "あなたのBMIは$BMI です。"

#判定基準
$Result = ""

if ($BMI -lt 18.5) {
    $Result = "低体重(痩せ型)"
}
elseif ($BMI -lt 25) {
    $Result = "普通体重"
}
elseif ($BMI -lt 30) {
    $Result = "肥満(1度)"
}
elseif ($BMI -lt 35) {
    $Result = "肥満(2度)"
}
elseif ($BMI -lt 40) {
    $Result = "肥満(3度)"
}
else {
    $Result = "肥満(4度)"
}

Write-Output "あなたは「$Result」です。"

for ($i = 0; $i -lt 10; $i++)
{    
    $row = ""
    for ($j = 0; $j -lt 10; $j++)
    {
        if ($i -eq 0)
        {
            $row += $j.ToString().PadLeft(3," ")
        }
        else
        {
            if ($j -eq 0)
            {
                $row += $i.ToString().PadLeft(3," ")
            }
            else
            {
                $row += ($i * $j).ToString().PadLeft(3," ")   
            }
        }
    }
    Write-Output $row
}

$HeightList = New-Object System.Collections.ArrayList

#身長を入力してもらう
for ($i = 0; $i -lt 5; $i++) {
    $height = Read-Host ($i + 1) "人目の身長を入力してください。"
    $HeightList.Add($height) | Out-Null
}

#各自の身長を表示
for ($i = 0; $i -lt 5; $i++) {
    $text = "" + ($i + 1) + "人目の身長は" + $HeightList[$i] + "です。"
    Write-Output $text
}

#最大値を表示
$MAX = 0
foreach($height in $HeightList)
{
    if ($MAX -lt $height) {
        $MAX = $height
    }
}
$text = "最も高い身長は" + $MAX + "です。"
Write-Output $text


#最小値を表示
$MIN = [System.Int32]::MaxValue
foreach($height in $HeightList)
{
    if ($MIN -gt $height) {
        $MIN = $height
    }
}
$text = "最も低い身長は" + $MIN + "です。"
Write-Output $text

#平均身長を表示
$SUM = 0
foreach($height in $HeightList)
{
    $SUM += $height
}
$text = "平均身長は" + $SUM/$HeightList.Count + "です。"
Write-Output $text

$beforeWord = "しりとり"
Write-Output "しりとりスタート！"
Write-Output $beforeWord

while ($true)
{
    $word = Read-Host

    if ($word.Substring(0,1) -ne $beforeWord.Substring($beforeWord.Length - 1, 1))
    {
        $text = "始めの文字が" + $beforeWord.Substring($beforeWord.Length - 1, 1) + "になっていません。"
        Write-Output $text
        Write-Output "ゲームオーバー"
        break
    }
    elseif ($word.Substring($word.Length - 1, 1) -eq "ん") {
        Write-Output　"「ん」で終わります。"
        Write-Output "ゲームオーバー"
        break
    }
    else {
        $beforeWord = $word
    }
}