Question

Potrzebuje to zadanie na TERAZ !!!! BARDZO PILNE !!! :) oraz wyjasniecie kodu na czym polega. Z góry dzięki :) Treść zadania to:

Napisz programktóry czyta haslo, lecz nie wyswietla go na ekranie,
zamiast tego wyswietlajac gwiazdki. Jezeli podane haslo
jest poprawne, wyswietla tajna informacje.

Answer 1

tu masz w zip spakowane, to zrobione jest w delphi 7

http://www.sendspace.pl/file/e20a8756db9f95ef89d0767

projekt otwierasz otwierając z poziomu delphi otwierając plik info.dpr

 

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text='haslo' then ShowMessage('Tajna Informacja')
else ShowMessage('Złe hasło');
end;

 

teraz co jest co  Edit1.Text='haslo' tu gdzie pisze hasłow ' ' to tu ma byc hasło

po then instrukcja którą wykonuje

po else instrukcja którą wykona jeżeli warunek przed then jest nieprawdziwy

te instrukcje są w tej procedurze, poniewarz jest to procedura która wywołuje się gdy

nacisniesz guzik Informacja (jak załadujesz plik info.dpr to zobaczysz)

 

 jezcze takie info niektóre antywirusy blokują uruchamianie się programów z delphi

a żeby wyświetlały sie gwiazdki to trzeba było po kliknieciu komponentu edit1 zmienic passwordchar z #0 na *

 

 

 plik pobierasz klikając zadanie.zip (w nazwie)

 

 

 tu kod w pascalu

 

 

 program haslo;
uses crt;
var
h,h2:string;
z:char;
begin
clrscr;
h:='haslo';
h2:='';
Writeln('Podaj haso');
repeat
z:=readkey;
if z<>#13 then
begin
h2:=h2+z;
write('*');
end;
until z=#13;
writeln;
if h=h2 then Writeln('tajna informacja')
else writeln('Zle haslo');
readkey;
end.