home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 September / Chip_2002-09_cd1.bin / zkuste / delphi / kompon / d123456 / STR_BIT.ZIP / 16 / PRIM / GENPSP.PAS < prev    next >
Pascal/Delphi Source File  |  1999-11-25  |  1KB  |  35 lines
  1. program GenPSP;
  2. {$F+,R+,X+,B+,V-}
  3.  uses  StrBit16;
  4.  const Dlpsp : Word = 8192;
  5.  var Ust, Pol : PStr_Bit;     Msig_rez : PBitFile;
  6.      i, KolKb : integer;      SimvPol, ImFail : string;
  7. begin
  8.  Writeln('Åp«úpá¼¼á úÑ¡Ñpᵿ¿ ÅæÅ');
  9.  Writeln('ÇóΓ«α : æѼѡ«ó é.ï. éÑαß¿∩ 3.3 «Γ 25.11.99 ú.');
  10.  Writeln('éóÑñ¿ΓÑ »«½¿¡«¼ ÅæÅ ó í¿Γ«ó«¼ ó¿ñÑ (¼½áñΦ.ßΓÑ».ó ¡áτá½Ñ)');
  11.  Writeln('         1111111111222222222233');
  12.  Writeln('1234567890123456789012345678901');
  13.  Readln(SimvPol);
  14.            { çáñá¡¿Ñ ¿¼Ñ¡¿ «Γ¬αδóáѼ«ú« Σá⌐½á }
  15.  Write('éóÑñ¿ΓÑ ¿¼∩ Σá⌐½á αѺπ½∞ΓáΓá : ');  Readln(ImFail);
  16.  Msig_rez:= New(PBitFile,Init(DlPsp,8192));
  17.  Msig_rez^.OpenBitFile(ImFail,btCreate);
  18.  repeat    { è«¡Γα«½∞ »αáó¿½∞¡«ßΓ¿ óó«ñá τ¿ß½á }
  19.    Write('éóÑñ¿ΓÑ αẼÑα Σá⌐½á αѺπ½∞ΓáΓá ó èíá⌐Γáσ : ');
  20.    Readln(ImFail);
  21.    Val( ImFail, KolKb, i );
  22.  until i = 0;
  23.        { ôßΓá¡«ó¬á ¡áτá½∞¡δσ º¡áτÑ¡¿⌐ ¿ úÑ¡Ñpᵿ∩ ÅæÅ }
  24.  Ust := New(PStr_bit,Init(32));    Ust^.Init_Sim('101000');
  25.  Pol := New(PStr_bit,Init(32));    Pol^.Init_Sim(SimvPol);
  26.    Msig_rez^.GenPsp_n(Pol, Ust, Dlpsp);
  27.    for i := 1 to KolKb do begin
  28.      Msig_rez^.WriteStr;
  29.      Msig_rez^.GenPsp_p(Dlpsp)
  30.                        end;
  31.    Msig_rez^.WriteStr;
  32.  Dispose(Ust,Done);           Dispose(Pol,Done);
  33.  Msig_rez^.CloseBitFile;      Dispose(Msig_rez,Done);
  34. end.
  35.