Kashub's Code Barn - "Odczytywanie"

program cw4_15;
 
uses
  Crt;
 
const
  TajneHaslo = '6a6b6c';
  NazwaPliku = 'WOW.HKT';
 
var
  PodaneHaslo : String;
  F : Text;
  Wiersz : String;
 
function PodajHaslo : String;
{ Funkcja czyta haslo bez wyswietlania go na ekranie. }
var
  Haslo : String;
  Znak : Char;
begin
  Haslo := '';
  repeat
    Znak := ReadKey;
    if (Znak <> #13) then
    begin
      Write ('*');
      Haslo := Haslo + Znak;
    end;
  until Znak = #13;
  PodajHaslo := Haslo;
end; {----------------------------------- PodajHaslo -}
 
begin
  ClrScr;
  Write ('Podaj haslo: ');
  PodaneHaslo := PodajHaslo;
  Writeln;
 
  if PodaneHaslo = TajneHaslo then
   begin
 
    ClrScr;
 
    Assign (F, NazwaPliku);
    Reset (F);
 
    while not Eof(F) do
    begin
     Readln (F, Wiersz);
     Writeln (Wiersz)
    end;
 
    Close (F);
    Readln;
 
    Writeln ('Odpowiedz');
    ClrScr;
 
   Assign (F, NazwaPliku);
   Rewrite (F);
 
   repeat
     Readln (Wiersz);
     if Wiersz<>'' then
       Writeln (F, Wiersz);
   until Wiersz ='';
   Close (F);
   Writeln('Poprawnie');
   end else
     Writeln ('Nie jestes z grupy!!');
   Readln;
end.
 
 
 

| Perfumy Dla Dzieci | | Odżywki i suplementy | | Opony całoroczne | | Skróć link | | Wklejacz kodów | | Blogi za darmo | | Best UK Deals | | UK Fashion Shop | | Hair Care Shop UK | | Jewellery Shop UK |