pascal.docx

program Zamiana_tekstu_na_liczbe;

{$N+} uses  crt;

var   n:integer;

      liczba,potega255:extended;

      tekst:string;

procedure zamienTekstNaLiczbe(tekst:string);

begin

  liczba:=0;

  potega255:=1;

  for n:=length(tekst) downto 1 do

      begin

        liczba:=liczba+ord(tekst[n])*potega255;

        potega255:=potega255*255;

      end;

end;

begin

  clrScr;

  tekst:='Kom';

  zamienTekstNaLiczbe(tekst);

  writeLn(tekst,'=',liczba:1:0);

  readLn;

end.

program Binarne_na_rzeczywiste;

uses crt;

var n: longInt;

    RZ, p: real;

    Bin: string;

begin

  clrScr;

  Bin:='1010101,1100110011';

  p:=1;

  n:=2;

  while (Bin[n]<>',') and (n<=length(Bin)) do

    begin

      p:=p*2;

      n:=n+1;

    end;

  write(Bin,' -> ');

  Rz:=0;

  for n:=1 to length(Bin) do

    begin

      if Bin[n]='1' then Rz:=Rz+p;

      if Bin[n]<>',' then p:=p/2;

    end;

  write(Rz:1:11);

  readLn;

end.

Program Dziesietne_na_binarne;

uses crt;

var liczbaDz:integer;

    liczBin:string;

begin

  clrScr;

  liczbaDz:=85;

  write(liczbaDz,'    -    ');

  liczBin:='';

  repeat

    liczBin:=chr(liczbaDz mod 2+48) +liczBin;

    liczbaDz:=liczbaDz div 2;

  until liczbaDz=0;

  writeLn(liczBin);

  readLn;

end.

program sortowanie_liczb;

uses crt;

var tab:array[1..25] of integer;

    n,k,x:integer;

begin

  clrscr; randomize;

  for n:=1 to 25 do begin tab[n]:=round(random(100));write(tab[n],' ');end;

  for n:=1 to 25 do

     for k:=n+1 to 25 do begin if tab[n]>tab[k] then begin

         x:=tab[n]; tab[n]:=tab[k]; tab[k]:=x; end; end;

  writeln; for n:=1 to 25 do write(tab[n],' ');

  readln;

end.