Lab 10 Loop Min Max Sum Average N
เฉลย Lab 10 Loop
§ จงเขยนโปรแกรมเพอหาคา Min, Max, Sum, Average ของ N จำนวน โดยเลอกใชคำสงการวนซำทเหมาะสม Start Read N N>0 No Print No Data Yes Read Score Min = Score Max = Score Sum = Score Count = 1 Count<=N No Average = Sum / N Yes Read Score < Min Yes Min = Score Sum = Sum + Score No Score > Max Yes Max = Score Stop No Print Min Print Max Print Sum Print Average
Text. Box ���� txt. Input Picture. Box ���� pic. Output Command. Button ���� cmd. Compute Command. Button ���� cmd. End
Private Sub cmd. Compute_Click() Dim N As Integer Dim score As Double ����� Dim sum As Double Dim count As Double � Dim Min As Double Dim Max As Double Dim Average As Double. . End Sub
Private Sub cmd. Compute_Click(). . . N = Val(txt. Input. Text) If N > 0 Then Read N N>0 No Print No Data Yes Read Score Min = Score Max = Score Sum = Score Count = 1 Else Count<=N pic. Output. Print “No Data" Read Score < Min Yes Min = Score Sum = Sum + Score No Average = Sum / N Yes End If. . End Sub Start No Score > Max Yes Max = Score Stop No Print Min Print Max Print Sum Print Average
If N > 0 Then score = Input. Box(“คะแนนของนกเรยนคนท Min = score Max = score sum = score count = 1 1") N>0 Yes Read Score Min = Score Max = Score Sum = Score Count = 1 Count<=N No Yes Read Score Do While (count <= num) Score < Min Yes Min = Score Sum = Sum + Score Loop Else pic. Output. Print “No Data" End If No Score > Max Yes Max = Score No
Do While (counter <= num) count = count + 1 score = Input. Box(“คะแนนของนกเรยนคนท If score < Min Then Min = score Else If score > Max Then Max = score End If sum = sum + score Loop Sum = Sum + Score " & counter) Count<=N No Yes Count = count + 1 Read Score < Min Yes Min = Score No Score > Max Yes Max = Score No
Average = sum / N Count<=N Pic. Output. Print " Min = " & Min Pic. Output. Print " Max = " & Max Pic. Output. Print " Sum = " & sum Pic. Output. Print " Average = " & Average No Average = Sum / N Print Min Print Max Print Sum Print Average
- Slides: 8