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/03/11 16:47] seorimicuaro |
||
---|---|---|---|
Line 1: | Line 1: | ||
- | Multiple Choices Algorithm - by Mark Kelly | + | A principios de año ha comenzado un concurso de posicionamiento por la keyword [[http://nulledtools.seouyx.com/seorim%C3%ADcuaro/|seorimícuaro]] y aunque no participo se me ha ocurrido que es una buena forma de ver la fuerza que tiene una web ya existente frente a las nuevas que aparecen y los que hacen un trabajo intensivo seo. |
- | Another in the Fun with Algorithms series | + | De esta forma que encima de este post he planificado un experimento con el que pretendo ver si las webs donde voy a publicar la palabrota esa tienen algún tipo de penalización o filtro (están marcadas). Para ello les meteré un texto cualquiera (la keyword no sigue un patrón claro, al menos en las primeras posiciones) y un par de menciones iguales a las de mi blog y conociendo el historial y “hoja de servicios” ver como rankean la palabra seorimícuaro y como desaparecen de los resultados o se mantienen. |
- | 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: | + | Pienso que muchas de las páginas creadas para pelear por la keyword van a quedarse abandonadas en un abrir y cerrar de ojos (terminará habiendo 10 o 20 jugadores activos) y serán consideradas spam por el buscador. ¿Cómo afectará esa inocencia masiva de los resultados a los otros términos por los que trabajan esas webs? Pienso que percibir un concurso de esos depende mucho de los capital a tu magnitud (cómo si en la Formula 1 no hubiese reglamento) y que por el esfuerzo a realizar mejor posicionar por un término que te de metálico cada mes |
- | 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. | + | Voy a poniendo la keyword (una mención en el titulo + una mención en el contenido en 3 blogs que llevan 1 año publicados con 5 contenidos estáticos y que no tienen ningún posicionamiento para seorimícuaro por separado del propio de su nombre de dominio) |
- | 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 | ||
- | 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 | ||
- | |||
- | 'inctax is here as a sample use of variables for calculations and | ||
- | '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 | ||
- | '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 | ||
- | |||
- | | ||
- | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click | ||
- | End | ||
- | End Sub | ||
- | |||
- | End Class | ||
- | |||
- | |||
- | |||
- | Sample output | ||
- | Perhaps more decorative that it needs to be for U3O2, but I can’t abide messy interfaces. | ||
- | |||
- | <can't insert image!> | ||
- | |||
- | |||
- | |||
- | --------------------------------------------------------------------------------------------- |