Results 1 to 4 of 4

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Jun:2003
    Location: Ñòàðà Çàãîðà
    Posts: 416

    Unhappy Ìîëáà çà ïîìîù

    èìàì åäíà ìíîãî ãîëÿìà ìîëáà:

    Òðÿáâà äà íàïèøà ïðîãðàìà íà Pascal 6.0 (òðÿáâà íà ñåñòðà ìè çà óíèâåðñèòåòà), â êîÿòî äà ñå âúâåæäàò ÷èñëà, èçïèñàíè ñ ðèìñêè öèôðè (äî 1000 êàòî ÷èñëî)è ïîñëå äà ñå ñáîðóâàò.

    Àêî íÿêîé ìîæå äà ïîìîãíå, èìà áèðà, à ìîæå è ïîâå÷å. Çíàì, ÷å âñè÷êè ñòå çàåòè, íî àêî èìàòå âúçìîæíîñò ...

  2. #2
    Âåãàí íà ìåñíà äèåòà XaMaB's Avatar
    Join Date: Nov:2001
    Location: Ñîôèÿ
    Posts: 20,387
    ×è÷î ãóãúë ìîæå äà ïèøå òàêèâà à íå ïèå è áèðà.




    P.S. âçåìè ïèòàé â êëóá ïðîãðàìèñòè â clubs.dir.bg
    äà âèäèø êàêâè îðèãèíàëíè îòãîâîðè ìîæå äà ñúáåðåø
    Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà

    In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí

  3. #3
    Registered User
    Join Date: Jun:2003
    Location: Ñòàðà Çàãîðà
    Posts: 416
    çà ñúæàëåíèå íå íàìåðèõ íèùî ñ google

  4. #4
    Registered User nettle's Avatar
    Join Date: Sep:2003
    Location: Sofia
    Posts: 402
    Code:
    function ConvertRom2Arab(N:string):Integer;
      {-------------------------------------------}
      function Roman(aValue:string):Integer;
      var X:Char;
      begin
        X:=UpperCase(aValue)[1];
        case X of
          'M': Result:=1000;
          'D': Result:=500;
          'C': Result:=100;
          'L': Result:=50;
          'X': Result:=10;
          'V': Result:=5;
          'I': Result:=1;
          else Result:=0;
        end;//case
      end;{Roman}
      {-------------------------------------------}
    var I:Integer; lvRet:Integer;
    begin
      lvRet:=0;
      I:=1;
      while I<=Length(N)-1 do begin
        If(Roman(N[I]) < Roman(N[I+1]))then begin
          lvRet:=lvRet+(Roman(N[I+1])-Roman(N[I]));
          Inc(I);
        end else begin
          lvRet:=lvRet+Roman(N[I]);
        end;//If
        Inc(I);
      end;//while
      If(I=Length(N))then lvRet:=lvRet+Roman(N[I]);
      Result:=lvRet;
    end;{ConvertRom2Arab}
    íå ãàðàíòèðàì ÷å ùå âúðâè â TP6, íî â Äåëôè áà÷êà

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 Õàðäóåð ÁÃ. Âúçìîæíî å ñúäúðæàíèåòî íà òàçè ñòðàíèöà äà å îáåêò íà àâòîðñêè ïðàâà.
iskamPC.com | mobility.BG | Bloody's Techblog | Êðèïòîâàëóòè è ìàéíèíã | 3D Vision Blog | Ìàãàçèí çà åëåêòðîííè öèãàðè