This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision Next revision Both sides next revision | ||
start [2011/05/10 11:23] kel |
start [2013/04/25 03:23] vipreklam |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | Multiple Choices Algorithm - by Mark Kelly | + | Zamanın birinde, bundan çok yıllar önce. Saraylarda padişahların yaşadığı, meydanlarda |
- | Another in the Fun with Algorithms series | + | okların atıldığı, pazarlarda altın sikkelerle alış veriş yapıldığı zamanın birinde... |
- | Stuff Pty Ltd sells stuff. The unit cost of the stuff varies according to the quantity ordered. Customers can order any number of items. Stuff Pty Ltd use this scale: | + | Güzel bir bahçenin tam ortasına kurulu bembeyaz bir ev varmış. Bu evde altın sarısı |
- | 1-9 items = $100 each | + | |
- | 10-19 items = $97 each | + | |
- | 20-29 items = $92 each | + | |
- | 30-39 items = $88 each | + | |
- | 40-49 items = $85 each | + | |
- | 50 or more = $82 each | + | |
- | Task: using pseudocode, create an algorithm to calculate the unit cost of the items at different quantities. Then calculate a total cost with 10% GST added. | + | saçları olan güzel mi güzel, alımlı mı alımlı; al yanaklı, gül dudaklı, boylu poslu, |
- | Convert the pseudocode into code. | + | |
- | Create test data to fully test all aspects of the solution’s functionality. | + | |
- | Note: Input data need not be validated, and the interface can be very basic. | + | |
- | + | ||
- | Sample VB2010 solution | + | |
- | Public Class Form1 | + | |
- | ' Multiple options algorithm | + | |
- | ' by M.Kelly 10 May 2011 | + | |
- | ' Version 1.0 | + | |
- | ' To Do Next: nil | + | |
- | Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalc.Click | + | Bukle adında bir genç [[http://www.izmirescortbayan.org|izmir escort]] kız anneciği ile |
- | Dim Qty As Integer = CInt(txtQty.Text) | + | |
- | Dim inctax As Single = 0 'declare and initialise in one hit | + | |
- | ' deliberately lacks validation of qty | + | |
- | Select Case Qty | + | |
- | Case 1 To 9 | + | |
- | lblCostper.Text = 100 | + | |
- | Case 10 To 19 | + | |
- | lblCostper.Text = 97 | + | |
- | Case 20 To 29 | + | |
- | lblCostper.Text = 92 | + | |
- | Case 30 To 39 | + | |
- | lblCostper.Text = 88 | + | |
- | Case 40 To 49 | + | |
- | lblCostper.Text = 85 | + | |
- | Case Else | + | |
- | lblCostper.Text = 82 | + | |
- | End Select | + | |
- | lblSubtotal.Text = Qty * CInt(lblCostper.Text) 'using labels for output | + | beraber otururmuş. |
- | 'inctax is here as a sample use of variables for calculations and | + | Güzeller güzeli Bukle her sabah, babaannesinden kalma bir kemik tarak ile saçlarını |
- | 'using labels just for display purposes. | + | |
- | 'Using variables mean less converting back & forth between text and number. | + | |
- | inctax = CInt(lblSubtotal.Text) * 1.1 'add GST | + | taramayı pek severmiş. Bir saat, iki saat hiç bıkmadan tarar da tararmış yumuşacık |
- | 'The final total is nicely formatted currency just to show how it's done. | + | |
- | 'Nice formatting is not needed in U3O2. | + | |
- | lblIncTax.Text = Format(inctax, "$#,####.#0") | + | |
- | End Sub | + | |
- | + | saçlarını. Sonra da tarağın dişlerine takılan, bir de yere dökülen tellerini itinayla | |
- | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click | + | |
- | End | + | |
- | End Sub | + | |
- | End Class | + | toplarmış. Onları pembe ipek mendilinin içine sarar bir çekmecede saklarmış. Oturdukları |
- | + | beyaz evin bahçesi öyle güzel çiçeklerle bezeliymiş ki, kokuları siz deyin on mahalle, | |
- | Sample output | + | ben diyeyim yirmi mahalle öteden duyulurmuş. Renkleri o kadar canlı, o kadar başkaymış |
- | Perhaps more decorative that it needs to be for U3O2, but I can’t abide messy interfaces. | + | |
- | + | ||
- | <can't insert image!> | + | |
+ | ki; bahçenin önünden her geçen durup bakar, hayran kalırmış bu güzelliğe. | ||
+ | [[http://www.izmirescortbayan.org|izmir escort bayan]] Bukle’nin annesi Menzile, bir | ||
- | --------------------------------------------------------------------------------------------- | + | çocuk gibi severmiş bu güzel çiçekleri. Okşarmış, öpermiş; her akşam güneş batınca |
+ | |||
+ | dağların gerisine, ay ışığı altında sularmış tek tek. Laleler onu gördüklerinde daha dik | ||
+ | |||
+ | durmaya, menekşeler kokularını her köşeye yaymaya, güller iri iri açmaya çalışırlar; | ||
+ | |||
+ | güzellik yarışına girişirlermiş. Hem çiçeklerle yaşamak öyle kolay da değilmiş. Çabuk | ||
+ | |||
+ | küser, çabuk solar, çabuk bükerlermiş boyunlarını. Pek nazlı, pek nazenin, pek hassas, | ||
+ | |||
+ | pek narin, pek kırılgan imişler. Öyleymişler işte. [[http://www.izmirescortbayan.org| | ||
+ | |||
+ | Escort izmir]] Sevgi imiş asıl onları besleyip büyüten. Menzile haftada bir kere, | ||
+ | |||
+ | karanlık çöker çökmez Bukle’nin altın sarısı tellerinden birisini alır, bahçedeki o | ||
+ | |||
+ | güzel çiçeklerden seçtiğinin içine usulca koyarmış. Ertesi sabah da aynı çiçek bir altın | ||
+ | |||
+ | verirmiş Menzile’ye. Bu, kimseye duyurmak istemedikleri bir sırmış. Anne kız böyle yaşar | ||
+ | |||
+ | giderlermiş işte. Kimseye zararları yokmuş. [[http://www.izmirescortbayan.org|izmir | ||
+ | |||
+ | escortları]] Kimseye de muhtaç değillermiş. |