[VB 2010] Problema con algoritmo

[Thunder2410]

Salve vorrei scrivere in visual basic un algoritmo che visualizzi questo


lo posto come immagine perchè non me lo fa allineare bene( --> in questa riga ci sono 7 asterischi )


se n = 7 (tipo diamante)
ma non riesco a farlo, se mi potreste aiutare... mi va bene anche in C

[Thunder2410]

image.jpgAllegato 25115

[oregon]

Come ti possiamo aiutare? Qui non si scrive il codice degli esercizi.

[Thunder2410]

Come scusa?

[oregon]

Come scusa?

"Come scusa" ... Cosa non era chiaro? Sembra che tu chieda lo svolgimento dell'esercizio e questo non è possibile. Chiarisci meglio cosa vorresti.

[LeleFT]

Alcune considerazioni:

1) Il linguaggio C viene trattato in quest'area; Visual Basic ha un forum dedicato. Quindi, per prima cosa, decidi quale linguaggio intendi usare (ci si aspetta che tu conosca il linguaggio che intendi usare).

2) I tag CODE permettono di mantenere formattazione e indentazione di ciò che viene scritto al loro interno. Esempio:

   *
  ***
 *****
*******
 *****
  ***
   *

3) Posta il codice che hai provato a scrivere; indica quali difficoltà incontri nel tuo codice, o gli eventuali errori che ottieni in compilazione/esecuzione. Ricordo, come diceva oregon, che il Regolamento interno vieta la richiesta di sviluppo codice.


Ciao.

[Thunder2410]

ok grazie ancora lele, sono nuovo e devo imparare ancora molto , ho messo due linguaggi perchè li conosco entrambi ma preferirei averlo in VB. (non so come spostare la domanda)
allora, vorrei che in output si vedesse quel diamante di asterischi (l'esercizio chiede un numero random ma qui generalizzo con il numero 7). Questo è il codice che avevo svolto ma mi fa solo una croce a + e non so come fare uscire gli altri
grazie

    Module Module1    Dim n, riga, colonna As Integer
    Dim div, div1, div2 As Single


    Sub Main()


        n = 7


        If (n Mod 2 <> 0) Then
            div = (n / 2) + 0.5
        Else
            div = n / 2
        End If


        For riga = 1 To n
            For colonna = 1 To n
                If (colonna = div Or riga = div) Then
                    Console.Write("* ")
                Else
                    Console.Write("  ")
                End If
            Next colonna
            Console.WriteLine()
        Next riga


        Console.ReadLine()


    End Sub


End Module

[LeleFT]

Quale versione di VB? Ce ne sono molte, tutte diverse.
Intanto sposto la discussione.


Ciao.

[Thunder2410]

ah si giusto scusami .. Visual Basic 2010 Express

[torn24]

*
  ***
 *****
*******
 *****
  ***
   *

Ciao, mi sembra che l'approccio al problema sia sbagliato, dall'output, quello che deduco io,
Stampare un rombo di asterischi avente numero "righe" e numero "colonne massimo" pari ad n.

Ora visto che n è un numero intero casuale, questo può essere pari o dispari, nel caso disperi come dal tuo esempio n=7 , la regola sembrerebbe , partendo da un asterisco, aggiungi due asterischi ad ogni riga fino ad arrivare a n, poi togli due asterischi ad ogni riga.

la soluzione per n=numero dispari, potrebbe essere, calcolare gli spazi iniziali stamparli e poi stampare gli asterischi necessari.

Sempre per n=numero dispari , il calcolo per ricavare gli spazi sarebbe.

n=numero massimo asterischi
i=numero di asterischi da stampare per riga

spazi=(n-i)/2 ' n-i somma degli spazi a sinistra e a destra degli asterischi /2 spazi a sinistra

======================================

Ora dovresti fare un esempio di Output , di rombo con n=numero pari, perché aggiungendo 2 asterischi per riga, non otterresti un rombo con n righe e n colonne ... fai un esempio di rombo n=8