Question

W TURBO PASCALU 1.Napisz program, który czyta hasło, wyświetlając gwiazdki zamiast wpisywanych znaków. Jeżeli podane hasło jest poprawne, program wyświetla tajną informację. 2.Napisz program, który odczyta datę urodzenia użytkownika i wypisze jego wiek. Program powinien sam ustalić bieżącą datę.

Answer 1

1.

Program hasloo;

Uses CRT;

CONST HASLO='TAJNE';

Var
 haselko:string;

Procedure wczytaj_haslo(x,y:byte; var s:string);
 Var kl:char;
     wynik:string;
 Begin
  wynik:='';
  kl:=#0;
  while (true) do
   begin
    kl:=readkey;
    if kl=#13 Then break else
    if kl=#8 Then
     Begin
      if length(wynik)>0 then
       begin
        dec(x);
        gotoxy(x,y);
        textcolor(black);
        write(wynik[length(wynik)]);
        delete(wynik,length(wynik),1);
       end;
     End else
    begin
     textcolor(white);
     wynik:=wynik+kl;
     gotoxy(x,y);
     write('*');
     inc(x);
    end;
   end;
  s:=wynik;
 End;

Begin
 ClrScr;
 GotoXY(3,5);
 textcolor(white);
 Write('Podaj haslo: ');
 wczytaj_haslo(16,5,haselko);
 GotoXY(3,7);
 if haselko=HASLO then writeln('TAJNA WIADOMOSC')
                  else writeln('Haslo nieprawidlowe!');
 ReadLn;
End.

 

 

2.

Program urodziny;

Uses CRT,DOS;

Type data=record
      rok,dzien,miesiac,dzien_tygodnia:word;
     end;

var user,ac:data;

Function wiek(j,d:data):byte;
 var wynik:byte;
 begin
  wynik:=d.rok-j.rok;
  if d.miesiac<j.miesiac then dec(wynik) else
  if d.miesiac=j.miesiac then
   if d.dzien<j.dzien then dec(wynik);
  wiek:=wynik;
 end;

Begin
 ClrScr;
 GetDate(ac.rok,ac.miesiac,ac.dzien,ac.dzien_tygodnia);
 WriteLn('Podaj rok urodzenia: ');
 ReadLn(user.rok);
 WriteLn('Podaj miesiac urodzenia: ');
 ReadLn(user.miesiac);
 WriteLn('Podaj dzien urodzenia: ');
 ReadLn(user.dzien);
 Writeln;
 Writeln('Masz ',wiek(user,ac),' lat!');
 ReadLn;
End.