[TP] Poszukiwanie dwóch losowych liter

[pawelk3k]

Witam

Mam pytanie, jak w Turbo Pascalu zrobić losową literę? Liczba oczywiście mi wychodzi ale litera . Mam pewien pomysł może zapisać je w tablicy? Lecz nie wiem jak. Mógłby mi ktoś powiedzieć jak to zrobić ? Z góry dziękuje.

[[Ekspert] Mormegil]

Litery to liczby

Litery są kodowane a pomocą kodu ASCII.

Wielkie litery 65 - 90. Małe litery 97 - 122.

[pawelk3k]

humm ok malałem ze sobie poradzę ale jednak nie Dokładnie chodzi mi by program pokazywał losową literę:

f:char;

wektor:array[62..90] of char;

begin

randomize;

f:=(wektor[random(65)+25]);

...

...

...

oczywiście losuje ale nie to co trzeba:D

[Lord Hrabula]

Popełniasz dwa błędy, deklarujesz tablicę, w której mają być znaki, ale jej nie inicjalizujesz, więc można się tam spodziewać Bóg wie czego

Druga sprawa, trochę na odwrót wyliczasz indeks dla tej tablicy. No ale dość marudzenia, do rzeczy

Zamiast tworzyć tablicę znaków proponowałbym Ci wykorzystanie funkcji Chr, która zwraca znak na podstawie liczby kodowej ASCII. Jeśli interesują Cie tylko wielkie litery to losujesz liczbę z przedziału 65-90 i za pomocą ww. funkcji uzyskasz interesujący Cie znak.

Co do samego losowania, to po pierwsze zwróć uwagę, że random "losuje" liczbę z zakresu 0,(argument-1), czyli jeśli dasz random(65) to dostaniesz z przedziału <0,64>. Druga sprawa losuj spośród 26 liczb (liter masz 26, a nie 25) i do nich dodawaj stała 65, a nie na odwrót

[pawelk3k]

Bardzo dziękuje za pomoc Wszystko działa jak powinno. Może moja gra w końcu zostanie ukończona