Tryb drzewa | Tryb normalny

letwi · 17.05.2010 13:25

[/font]Witam mam taki problem muszę napisać program do tworzenia Haseł w pascalu w tym programie osoba musi wpisać ile znaków ma mieć hasło a program ma wylosować te znaki ja kompletnie nie wiem jak sie do tego zabrać proszę o pomoc i z góry dziekuje

Propagandi · 17.05.2010 16:04

Możesz użyć funkcji random, żeby wylosować liczbę z zadanego przedziału i zamienić ją na znak z tablicy ascii, np:

znak := chr(random(26)+65);

gdzie random(26)+65 losuje liczbę z przedziału 65-90 (duże litery) i za pomocą chr zamienia na znak ascii

znak typu char dodajesz potem w pętli do stringa, dajmy na to haslo:

haslo := haslo + znak;

Inne rozwiązanie, to zadeklarować tablice char'ów, w której wprowadzisz swoje znaki, a potem losujesz liczbę w zakresie długości tej tablicy. Do stringa dodajesz znak z tablicy z wylosowanym indeksem.

letwi · 17.05.2010 20:05

dużo mi to nie pomogło ja jestem ciemny z programowania a dostalem takie zadanie na prace kontrolną a w sumie ja jestem na poziomie pisania programu na kalkulator czyli bardzo poczatkujący

Propagandi · 17.05.2010 20:55

Szkoda. Spróbuj zatem czegoś takiego:

Kod:

program random_string;

var

i,n:integer;

znak: char;

haslo: string;

begin

write('Podaj liczbe znakow: ');

readln(n);

for i:= 1 to n do

    begin

    znak := chr(random(26)+65);

    haslo := haslo + znak;

    end;

writeln(haslo);

readln;

end.

Cudów nie ma, ale może wystarczy.

letwi · 18.05.2010 00:02

dzieki bardzo napewno wystarczy sam bym tego chyba nigdy nie wymyślił

Tryb drzewa \| Tryb normalny program do tworzenia haseł w pascalu
Autor	Wiadomość