gladiatus2
Użytkownik
- Dołączył
- Czerwiec 26, 2012
- Posty
- 5
turbo pascal problem z kodowaniem hasła(Gwiazdki).
Witam napisałem sobie program,ale nie potrafię zrobić by hasło było kodowane * .I jak chce skasować jedna cyfrę/literę to gwiazdka jedna znika np. pisze 123 zapisze to tak: *** a kiedy skasuje jedno to będzie 12 a zapisane ** jak złe hasło to powtarza podaj hasło do puki nie poda poprawnego. Mój Kod
Kod jest opisany Proszę by ktoś mi kod przerobił lub dał przykład jak to zrobić. Z góry dziękuje
Witam napisałem sobie program,ale nie potrafię zrobić by hasło było kodowane * .I jak chce skasować jedna cyfrę/literę to gwiazdka jedna znika np. pisze 123 zapisze to tak: *** a kiedy skasuje jedno to będzie 12 a zapisane ** jak złe hasło to powtarza podaj hasło do puki nie poda poprawnego. Mój Kod
Kod:
USES CRT; {modu}
VAR {Zmiene}
haslo:longint; {zmiena do hasa}
wybor:char; {zmiena do g˘wnego wyboru}
imie:string; {zmiena do procedury powitanie}
a,liczba:longint; {zmiene do procedury wykaz}
c:char; {zmiena do procedury wykaz}
b:text; {zmiena do procedury wykaz}
e1,e2:integer; {zmiene do procedur: kalkulator,mnoz,dziel,dodaj,odejmij}
decyzja:char; {zmiena do procedury kalkulator}
t:text; {zmiena do procedury zapisz}
s:string; {zmiena do procedury zapisz}
q:char; {zmiena do procedury tabliczka mnozenia}
z,x:longint; {zmiene do procedury tabliczka mnozenia do 100}
PROCEDURE muzyka; {Pierwsza procedura}
BEGIN
clrscr;
sound(2200);
delay(5000);
nosound;
END;
PROCEDURE powitanie; {Druga procedura}
BEGIN
clrscr;
writeln('Jak masz na imi©?');
read(imie);
write('Witaj ');
write(imie);
writeln(' ˝ycze miego dnia!!!');
readln;
readln;
END;
PROCEDURE wyjscie; {Trzecia procedura}
BEGIN
halt;
END;
PROCEDURE wykaz; {Czwarta procedura}
BEGIN
clrscr;
writeln;
writeln;
writeln('program tworzy plik tekstowy z wykazem liczb!');
writeln;
writeln('ile liczb mam wypisa† w pliku wykaz.txt na g˘wnym katalogu dysku C?');
read(a);
writeln;
writeln('Czy na pewno mam wypisa† ',a,' liczb? [T/N]');
c:=readkey;
IF (c='n') OR (c='N') THEN halt;
IF (c='t') OR (c='T') THEN
BEGIN
liczba:=1;
Assign(b, 'C:/wykaz.txt');
rewrite(b);
writeln(b,'');
writeln(b,' Wykaz liczb:');
writeln;
REPEAT
writeln(b,liczba);
liczba:=liczba+1;
UNTIL liczba=a+1;
close(b);
writeln;
writeln('Zakoäczono tworzenie pliku wykaz!');
readln;
readln;
END;
END;
PROCEDURE dziel; {procedura do kalkulator}
BEGIN
writeln(e1,':',e2,'=',e1/e2);
readln;
END;
PROCEDURE mnoz; {prodecura do kalkulator 2}
BEGIN
writeln(e1,'*',e2,'=',e1*e2);
readln;
END;
PROCEDURE dodaj; {procedura do kalkulator 3}
BEGIN
writeln(e1,'+',e2,'=',e1+e2);
readln;
END;
PROCEDURE odejmij; {procedura do kalkulator 4}
BEGIN
writeln(e1,'-',e2,'=',e1-e2);
readln;
END;
PROCEDURE kalkulator; {piĄta procedura}
BEGIN
clrscr;
writeln('Podaj 1 liczb©');
readln(e1);
writeln('Podaj 2 liczb©');
readln(e2);
writeln('Co chcesz zrobi†?');
writeln('1-dzielenie');
writeln('2-dodawanie');
writeln('3-mnoľenie');
writeln('4-odejmowanie');
decyzja:=readkey;
IF decyzja='1' THEN dziel;
IF decyzja='2' THEN dodaj;
IF decyzja='3' THEN mnoz;
IF decyzja='4' THEN odejmij;
END;
PROCEDURE zapisz; {procedura sz˘sta}
BEGIN
clrscr;
writeln('Wpisz dowolny tekst a nast©pnie Enter');
read(s);
assign(t,'C:/plik1.txt');
rewrite(t);
writeln(t,s);
Close(t);
writeln('Plik zostal pomylnie zapisany');
readln;
readln;
END;
PROCEDURE tabliczka_mnozenia_do_100; {Procedura procedury tabliczka_mn...}
BEGIN
clrscr;
writeln(' A oto tabliczka mnoľenia');
z:=0;
REPEAT
z:=z+1;
x:=0;
REPEAT
x:=x+1;
writeln(z,'*',x,'=',z*x);
delay(500);
UNTIL x=10;
UNTIL z=10;
readln;
END;
PROCEDURE tabliczka_mnozenia; {Procedura si˘dma}
BEGIN
clrscr;
writeln('Wybierz tabliczke mnoľenia:');
writeln('1 tabliczka mnoľenia do 100');
q:=readkey;
IF q='1' THEN tabliczka_mnozenia_do_100;
END;
BEGIN {poczĄtek programu}
REPEAT {p©tla do hasa}
clrscr;
writeln('Podaj haso by otrzyma† dost©p do programu');
read(haslo);
UNTIL haslo=28031999;
clrscr;
writeln('Otrzymujesz dost©p do programu');
readln;
writeln('Oto lista dost©pnych komend:');
writeln('Wybierz liczb© by uruchomi†: ');
writeln('1 dla melodi');
writeln('2 dla powitania');
writeln('3 by stworzy† wykaz liczb');
writeln('4 by wonczy† kalkulator');
writeln('5 by zapisa† plik tekstowy z wasnym tekstem');
writeln('6 aby wonczy† tabliczk© mnoľenia');
writeln('7 exit the program');
wybor:=readkey;
IF wybor='1' THEN muzyka;
IF wybor='2' THEN powitanie;
IF wybor='3' THEN wykaz;
IF wybor='4' THEN kalkulator;
IF wybor='5' THEN zapisz;
IF wybor='6' THEN tabliczka_mnozenia;
IF wybor='7' THEN wyjscie;
END. {koniec programu}
Ostatnia edycja: