User Tools

Site Tools


start

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

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 stuffThe 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 ​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 ​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 ​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. 
-  
- 
- 
- 
----------------------------------------------------------------------------------------------