Kashub's Code Barn - "Odczytywanie"

podświetlone jako qbasic (dodał(a) to ja @ 2009-03-31 19:19:32)

Twoja wyszukiwarka
Parcel ABC
Podświetl ten kod w:
Ostatnio dodane:
Losowe wpisy:
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.
 
 
 
| Opony letnie | | Opony specjalne | | Kamery IP sklep | | Dyskretny sexshop internetowy | | Programista PHP | | Blogi za darmo | | Przenieś bloga z onetu | | Skróć link | | Pionowe opisy |