מבוא למדעי המחשב לתעשייה וניהול

1. הרצאה 6 מבוא למדעי המחשב לתעשייה וניהול

2. מפעל השעווה – לולאות • עד עכשיו • טיפלנו בייצור נרות מסוג אחד, במחיר אחיד • למדנו להתמודד עם טיפול במקרים שונים (הנחות, מחירים שונים לצבעים שונים וכד') • למדנו לחשב כמה נרות צריך (עבור קונה יחיד) לכל החג. • נרצה לתת אפשרות לבצע מספר הזמנות ברצף • כאשר מספר ההזמנות ידוע מראש • כאשר המשתמש יחליט כמה הזמנות לבצע ?

3. פתרון בעזרת for, כאשר מספר ההזמנות ידוע ConstWaxPerCandleAsInteger = 10 DimstorageWaxAsInteger = 1000 DimtotalWax, buyWax, numCandlesAsInteger totalWax= 0 ForiAsInteger = 1 To3 Console.WriteLine("Enter number of candles for order " & i) numCandles = Console.ReadLine() totalWax += WaxPerCandle * numCandles Next buyWax= totalWax - storageWax Console.WriteLine("Amount of wax to buy: " & buyWax)

4. While

5. while • אם התנאי conditionהוא 'אמת' אז ההצהרה statementמתבצעת • אח"כ התנאי נבדק שובאם ערכו עדיין 'אמת' ההצהרה מבוצעת שוב • ההצהרה מבוצעת שוב ושוב עד שהתנאי נהיה 'שקר' • ההצהרה יכולה להכיל מספר פקודות, ותקרא גוף הלולאה While condition statements End While

6. condition evaluated הביטוי נבדק false הלוגיקה של פקודת While true statement הצהרה מבוצעת

7. פתרון בעזרת while, כאשר מספר ההזמנות אינו ידוע ConstWaxPerCandleAsInteger = 10 DimstorageWaxAsInteger = 1000 DimtotalWax, buyWax, numCandlesAsInteger totalWax= 0 Console.WriteLine("Enter number of candles for order ") numCandles= Console.ReadLine() WhilenumCandles <> 0 totalWax += WaxPerCandle * numCandles Console.WriteLine("Enter number of candles for order ") numCandles = Console.ReadLine() EndWhile buyWax= totalWax - storageWax Console.WriteLine("Amount of wax to buy: " & buyWax)

8. דוגמא לשימוש בלולאה – חישוב ממוצע • הבעיה: • נקלוט מספרים ממשתמש, נחשב את ממוצע המספרים. • לא נקבע מראש כמה מספרים לקלוט • פתרון: • נקלוט מספר חדש • נוסיף אותו לסכום הביניים + נעדכן את המונה • כשנחליט לעצור • נחלק את סכום הביניים במונה • איך נדע לעצור? • נבחר ערך שמייצג רצון לעצור

9. קודלחישוב ממוצע – חלק 1 Dimsum AsInteger = 0, count AsInteger = 0 Dimvalue, average AsSingle Console.WriteLine("Enter an integer (0 to quit): ") value = Console.ReadLine Whilevalue <> 0 count += 1 sum += value Console.WriteLine("Enter an integer (0 to quit): ") value = Console.ReadLine EndWhile המשך בשקף הבא

10. קוד לחישוב ממוצע – חלק 2 המשך משקף קודם... Ifcount = 0 Then Console.WriteLine("No values were entered.") Else average = sum / count EndIf Console.WriteLine("The average is " & average)

11. דוגמא לשימוש בלולאה – בדיקת קלט • הבעיה: • רוצים לקלוט מספרים מהמשתמש • דרוש לקלוט מספרים מסוג מסוים • פתרון: • נשתמש בלולאה • כל עוד לא קיבלנו קלט מתאים • נבקש ונקלוט קלט נוסף

12. קוד- בדיקת קלט Dim value AsSingle Console.WriteLine("Enter a number between 1 to 10") value = Console.ReadLine Whilevalue < 1 Or value > 10 Console.WriteLine("Bad input. Enter number between 1 to 10") value = Console.ReadLine EndWhile Console.WriteLine("You entered {0}. Thank you!", value)

13. יציאה מ while • יציאה מתבצעת כאשר התנאי כבר לא מתקיים • ניתן להתערב בהתנהלות של הלולאה (כמו ב for) בצורות הבאות: • פקודת Continueגורמת ללולאה לדלג לסיבוב הבא • פקודת Exit גורמת ללולאה להסתיים לחלוטין Dimx AsInteger = 0 Whilex < 10 If x = 3 Then Exit While EndIf Console.WriteLine("the number is: " & x) x += 1 EndWhile

14. מה קורה? Dim x AsInteger = 0 Whilex < 10 Console.WriteLine("the number is: " & x) If x = 5 Then Continue While EndIf x += 1 EndWhile Dim x AsInteger = 0 Whilex > 10 Console.WriteLine("the number is: " & x) x += 1 EndWhile

15. מה עושה הקוד? Dim x AsInteger x = Console.Read() While x <> AscW(vbCr) If x >= AscW(0) And x =< AscW(9) Then Console.Write(ChrW(x)) EndIf x = Console.Read() EndWhile

16. Do … loop

17. Do Until … Loop Dim counter AsInteger = 0 DoUntil (counter = 10) Console.WriteLine("What is this " & counter) counter = counter + 1 Loop Console.ReadKey()

18. Do … loop Do statements Loop While condition Do While condition statements Loop Do Until condition statements Loop Do statements Loop Until condition While – כל עוד Until – עד ש

19. condition evaluated הביטוי נבדק condition evaluated הביטוי נבדק false false statement הצהרה מבוצעת השוואה בין גרסאות do loop Do While\Until …. Loop Do …. Loop While\Until true true statement הצהרה מבוצעת

20. השוואה בין do ל while Dimlow AsInteger = 0 Dimhigh AsInteger = 10 Do Console.WriteLine(low) low += 1 LoopWhile (low < high) Dim low AsInteger = 0 Dimhigh AsInteger = 10 DoWhile (low < high) Console.WriteLine(low) low += 1 Loop Dimlow AsInteger = 0 Dimhigh AsInteger = 10 Do Console.WriteLine(low) low += 1 LoopWhile (high < low) Dim low AsInteger = 0 Dimhigh AsInteger = 10 DoWhile (high < low) Console.WriteLine(low) low += 1 Loop

21. שימוש ב while – לולאה עד אירוע Dim x AsChar Dimcounter AsInteger = 0 x = ChrW(Console.Read()) If (x <> ".") Then counter = counter + 1 EndIf While (x <> ".") x = ChrW(Console.Read()) If (x <> ".") Then counter = counter + 1 EndIf EndWhile Console.WriteLine("The counter is " & counter)

22. שיפור ע"י Do while Dim x AsChar Dimcounter AsInteger = 0 Do x = ChrW(Console.Read()) If (x <> ".") Then counter = counter + 1 EndIf LoopWhile (x <> ".") Console.WriteLine("The counter is " & counter)

23. מה השתנה? Dimx AsChar Dimcounter AsInteger = 0 x = ChrW(Console.Read()) DoUntil (x = ".") x = ChrW(Console.Read()) counter = counter + 1 Loop Console.WriteLine("The counter is " & counter)

24. ומה עכשיו ? Dim x AsChar Dimcounter AsInteger = 0 x = Console.ReadLine() DoUntil (x = ".") x = Console.ReadLine() counter = counter + 1 Loop Console.WriteLine("The counter is " & counter)

25. ועוד גיוון... Dim x AsString Dimcounter AsInteger = 0 DoUntil (x = "stop") Console.WriteLine("Please enter a word") x = Console.ReadLine() counter = counter + 1 Loop Console.WriteLine("The counter is " & counter)

26. עבודה עם קבצים ולולאות

27. קריאה מתוך קובץ - הרחבה • ראינו שמאתחלים את שם הקובץ כך: writer =My.Computer.FileSystem.OpenTextFileWriter("שם קובץ") • ניתן גם להשתמש ב : • writer =File.OpenText("שם קובץ")

28. לולאה בקבצים עד אירוע DimInput AsInteger Dimsum = 0, count = 0 DimobjStreamReaderAsStreamReader objStreamReader= File.OpenText("z:\NumTest.txt") DoUntil Input = -1 Input = objStreamReader.ReadLine() If (Input <> -1) Then sum += Input count += 1 EndIf Loop Console.WriteLine("The Average is " & sum / count)

29. אפשר לוותר על ה if, ע"י השינוי הבא: DimInput AsInteger = 0 Dimsum = 0, count = 0 DimobjStreamReaderAsStreamReader objStreamReader= File.OpenText("z:\NumTest.txt") DoUntil Input = -1 sum += Input count += 1 Input = objStreamReader.ReadLine() Loop Console.WriteLine("The Average is " & sum / (count - 1))

30. לולאה עד סוף הקובץ DimInput AsString = "" DimobjStreamReaderAsStreamReader objStreamReader= File.OpenText("z:\NumTest.txt") Do Input = objStreamReader.ReadLine() Console.WriteLine("I read " & Input) LoopUntil Input IsNothing