Generator nr.

[Cooleka]

Cześć.

 

Dawno się nie odzywałem, więc tak sobie pomyślałem, że mojego pisania troszkę zabrakło .

Eh... Ale jak wiadomo to mam problem. Problem na skale większą niż zwykły program w Visual Basic.

 

Mianowicie poszukuję programu, a najlepiej kodu bym mógł sam go zrobić. SSA daje w załączniku.

 

Program ma generować numery od np 0 do 1000 od -21943298 do 98127612876923.

 

Radia mają pomóc przy wygenerowaniu w jakiej postaci. Jeżeli ktoś z was o wielcy koderzy mielibyście chwilkę to chętnie przeczytam waszą mądrość.

 

 

POZDRAWIAM.

[Heniut]

Mianowicie poszukuję programu, a najlepiej kodu bym mógł sam go zrobić. SSA daje w załączniku.

Chcesz gotowca i mówisz, że sam zrobisz

 

Podpowiem Ci, że w google wpisujesz coś typu "random vb net" w pierwszym wyniku dostajesz

CInt(Math.Ceiling(Rnd() * n))

Ależ magia

[Gość Pan Szymek]

Dim rand As New Random()

rand.Next(int, int)

[Nygol]

jak chcesz pażyste to po prostu Modulo z liczby wylosowanej i jeżeli jest ono 0 to liczba pazysta :-)

[Gość Pan Szymek]

A ja dam Ci nawet przykład w C#

using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Collections;

namespace pprzyklad2
{
class Program
{
private static ArrayList listaLiczb;
static void Main(string[] args)
{
listaLiczb = new ArrayList();
int l1 = -1, l2 = -1, op = -1;
Random rand = new Random();
bool p = false;
Poczatek:
Console.WriteLine("Podaj od ilu ma być liczba");
if (!int.TryParse(Console.ReadLine(), out l1))
goto Poczatek;
goto Poczatek;
DrugaL:
Console.WriteLine("Podaj do ilu ma być liczba");
if (!int.TryParse(Console.ReadLine(), out l2))
goto DrugaL;
if (l2 < l1)
goto DrugaL;
WyborOpcji:
Console.WriteLine("Podaj opcję, liczby pod sobą(1), liczby obok siebie z \",\"(2), liczby obok siebie bez \",\"(3)");
if (!int.TryParse(Console.ReadLine(), out op))
goto WyborOpcji;
if (op < 1 || op > 3)
goto WyborOpcji;
WyborP:
Console.WriteLine("Czy liczby mają być tylko parzyste? (1/0)");
if (!bool.TryParse(Console.ReadLine(), out p))
goto WyborP;
int ostLiczba = -1;
if (p)
while ((ostLiczba % 2) != 0)
ostLiczba = rand.Next(l1, l2);
else
while ((ostLiczba % 2) == 0)
ostLiczba = rand.Next(l1, l2);
listaLiczb.Add(ostLiczba);
goto Poczatek;
}
}
}

[witek2424]

a to działa?

[Cooleka]

Dzięki, ale nie ogarniam ;P