Results 1 to 13 of 13

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Sep:2004
    Posts: 136

    Ïðîáëåì íà Paskal

    Çàäà÷àòà ìè å äà íàïðàâèÿ ïðîãðàìà êîÿòî äà êîíæåðòèðà íîðìàëíî 4èñëî â ðèìñêî.
    Ñòèãíàõ äî òóê:
    program Rimski 4isla;
    var
    a:real; k:real; e:real; f:real; g:real;

    b:real; p:real; q:real; r:real; s:real;

    h:real; j:real; z:real; y:real;

    const
    I=1; II=2; III=3; IV=4; V=5; VI=6; VII=7; VIII=8;

    IX=9; X=10; L=50; C=100; D=500; M=1000;



    begin;
    writeln('Vavedete hiliadni');
    write ('k=');
    readln (k);

    writeln('Vavedete stotici');
    write ('e=');
    readln (e);

    writeln('Vavedete desetici');
    write ('f=');
    readln (f);

    writeln('Vavedete edinici');
    write ('g=');
    readln (g);

    if (k>9) or (e>9) or (f>9) or (g>9) then writeln('GRE6KA')
    else
    begin;
    p:=1000*k; q:=100*e; r:=10*f; s:=1*g;

    a:=p+q+r+s;
    writeln('Va6eto 4islo e', a:8:0);




    readln;
    end;
    end.
    Íÿêàêâè èäåè êàê äà ïðîäúëæà

  2. #2
    Ïàòëàäæàí! Rostislao's Avatar
    Join Date: Feb:2005
    Location: Bulgaria
    Posts: 822
    Ãëåäàé ñåãà. Ïî äîáðå èçïîëçâàé ÷èñëîòî êàòî ñòðèíã. Òàêà ùå èìàø äîñòúï äî âñè÷êè íåãîâè öèôðè êàòî ïîëçâàø ñèíòàêñèñ

    var number : string;


    ....
    write('Âúâåäåòå ÷èñëî :'); readln(number);

    edinici:=number[length(number)]
    desettici:=number[length(number)-1]

    ....

    è òàêà äî êðàÿ íà ÷èñëîòî. Ìîæåø äà ñëîæèø ïðîâåðêè çà òîâà äàëè íÿìà íàïèñàíà áóêâà èëè äðóã ñèìâîë. Àêî íÿêîé ìè íàïèøå ðèìñêî 9449 ùå òè êàæà è êàê äà ïðîäúëæèø
    "Àå ìîæå ëè äîêàòî ñè ðàáîòèø åé òàêà è äà òè ñå íàïúëíè êîìïþòúðà ñ âèðóñè? Ùîòî àç ãëåäàì ñè íÿêàêâè ïîðíî ñàéòîâå è òîé ñàì ñå ïúëíè ..."

  3. #3
    Registered User SAGE's Avatar
    Join Date: Sep:2005
    Location: Sofia
    Posts: 171
    Äîëíàòà ôóíêöèÿ å çà Delphi, íî ïðåäïîëàãàì íÿìà äà òè å òðóäíî äà ñè ÿ ïðåíàïèøåø çà Pascal.
    Code:
    function RomanNum(Number:Integer):String;
      {Returns concise Roman numeral string representation for Number in range [1..9999]}
    var
      i,j,n: integer;
      Digit,Pivot:String;
    begin
      if (Number<1) or (Number>9999) then begin
        Result:='Error!';
        Exit;
      end;
      Result:='';
      Digit:='IXCM';
      Pivot:='VLD';
      for i:=1 to 3 do begin
        n := Number MOD 10;
        Number := Number Div 10;
        case n of
          1..3: for j := 1 to n do Result := Digit[i]+Result;
             4: Result := Digit[i]+Pivot[i]+Result;
          5..8: begin
                  for j := 6 to n do Result:=Digit[i]+Result;
                  Result:=Pivot[i]+Result;
                end;
             9: Result:=Copy(Digit,i,2)+Result;
        end;
      end;
      for i:=1 to Number do Result:='M'+Result;
    end;

  4. #4
    Registered User
    Join Date: Jun:2007
    Location: bulgaria
    Posts: 1
    åè çäðàâåéòå è àç èìàì íóæäà îò ìàëêî ïîìîù ñòàâà äóìà çà ïðîãðàìèðàíå à àç ñàì ìîìè÷å êàêâî ðàçáèðàì îò òîâà



    åäíî åñòåñòâåíî ÷èñëî ñå íàðè÷à ñúâúðøåííî àêî å ðàâíî íà ñóìàòà îò äåëèòåëèòå ñè áåç ñàìîòî ÷èñëî . äà ñå íàïèøå ïðîãðàìà êîÿòî íàìèðà âñè÷êè ñúâúðøåííè ÷èñëà äî äàäåíî åñò. ÷èñëî n .


    ìîãà åäèíñòæåíî äà ïîìîãíà ñ èíôîðìàöèÿòà ÷å ñå ðåøàâà ñ öèêëè÷íè êîíñòðóêöèè è ñúùî ñ íÿêàêâè âëîæåíè öèêëè !
    àêî íÿêîè ìîæå äà ìè ïîìîãíå ùå ñúì ìíîãî áëàãîäàðíà

    ñòàâà äóìà çà Paskal
    Last edited by delian; 8th June 2007 at 09:34. Reason: ñëÿòè ìíåíèÿ

  5. #5
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Ïîçíàâàì ïîíå ïåò ìîìè÷åòà, êîèòî ñè âàäÿò õëÿáà ñ ïðîãðàìèðàíå è äîðè èçêàðâàò ïîâå÷å îò ìåí íà ìåñåö. Òàêà ÷å ìîòèâúò çà ïîëà îòïàäà
    Î÷åâèäíî íÿìàø íèêàêâà èäåÿ çà êàêâî ñòàâà äóìà, ñëåä êàòî äîðè èìåòî íà åçèêà çà ïðîãðàìèðàíå íå çíàåø (ïèøå ñå Pascal ïî èìåòî íà çíàìåíèòèÿ ôðåíñêè ó÷åí è ôèëîñîô îò 17-òè âåê).  ñïèñúêà ñ òåìè íà òîçè ïîäôîðóì èìà åäíà îò òèÿ äíè, êîÿòî âèñè íàé-îòãîðå (sticky å). Ïðî÷åòè ÿ. Íàêðàòêî - èçìèñëè îáùàòà èäåÿ íà ðåøåíèåòî, íàïèøè 3-4 ðåäà íà ñúîòâåòíèÿ åçèê, ñëåä êîåòî ïóñíè ðåøåíèåòî çà îáñúæäàíå. Èäåÿòà íà òîçè ôîðóì å äà áúäå èíñòðóìåíò çà âçàèìîïîìîù, à íå çàìåñòèòåë íà çíàíèÿòà (èëè ïî-ñêîðî ëèïñàòà íà òàêèâà) îò ó÷èëèùå.
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  6. #6
    Registered User
    Join Date: Jun:2007
    Location: BG
    Posts: 3

    çàäà÷à íà ïàñêàë

    ïðîãðàìà ÷åòå 2 ôàéëà - øàáëîí è áàçà îò äàííè.Øàáëîíúò ñúäúðæà òåêñò ñ åòèêåòè îò âèäà |1| |2| |3| ........è òðÿáâà äà áúäàò çàìåíåíè ñ 1âî 2ðî 3òî ...... ïîëå íà òåêóùèÿ çàïèñ:

    áàçà äàííè:
    Mr|Harry|Hacker|1105 torre ave.|cupertino|CA|95014
    miss|evelyn|garcia|1101 S. universe plasce|ann abort|MI|48105

    øàáëîíà å âúâ âèä íà ïèñìî è èçãëåæäà òàêà:
    To:
    |1| |2| |3|
    |4|
    |5| |6| |7|
    Dear |1| |3|
    You and the |3| family may be the lucky winners of $10 000 000 !
    1 - mr/mrs
    2-ime
    3-familia
    4-adres
    5-ulica
    6-grad
    7-post code

    Ìîÿòà èäåÿ å äà çàïèñâàì âñè÷êè ñèìâîëè äî ñðåùàíå íà '|' â çàïèñè è ïîñëå äà èçòðèâàì âå÷å çàïèñàíèòå ñèìâîëè è ïàê äà ïî÷âàì îò ïúðâè ñèìâîë.
    var......
    danni=record
    obru6tenie:string(10);
    malko ime:string(10);
    familia:string(10);
    adres:string(15);
    ulica:string(10);
    grad:string(10);
    post code:integer;

    1:=st.obra6tenie;
    2:=st.malko ime
    .........
    oba4e mi dava nqkakvi gre6ki a i samata zada4a e dosta dulga

  7. #7
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    icaci, íÿìà ñìèñúë. Òè ãî ïëþåø, òî ìèñëè, ÷å äúæä âàëè.
    Åòî êîíêðåòíî:
    @Klaas Huntelaar, åòî òè ðåøåíèåòî íà çàäà÷àòà òè.
    @sofito, åòî ðåøåíèåòî è íà òâîÿòà çàäà÷à.

    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

  8. #8
    Registered User
    Join Date: Jun:2007
    Location: BG
    Posts: 3
    mersi vse pak za ogromnata pomo6t

  9. #9
    Wall-e delian's Avatar
    Join Date: May:2003
    Location: ::1
    Posts: 4,723
    Íà ìåí ïúê ìè ñòàíà èíòåðåñíî êúäå äàâàò òàêèâà çàäà÷è íà Pascal, â êîèòî êðàéíàòà öåë å èçïðàùàíåòî íà SPAM.

  10. #10
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Àáå âñÿêàêâè ãè èìà. Ïîçíàâàì åäèí, äåòî ïðåäè áëèçî 10 ãîäèíè áåøå ïèñàë íà Pascal òðîÿíñêè êîí çà Windows, êîéòî èçïðàùàøå ñïàì, íî â ìààààààëêî ïî-ãîëåìè êîëè÷åñòâà, íà åäíî ISP. Ñúìíÿâàì ñå îáà÷å, ÷å ìó å áèëî ó÷èëèùåí ïðîåêò...
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  11. #11
    ɐ-əpoɔᴉu⋂ ɐí íəÔ anrieff's Avatar
    Join Date: Apr:2004
    Location: Sofia
    Posts: 8,448
    Êàòî ñìå òðúãíàëè íà òîÿ ñïàìàäæèéñêè/êðàêåðñêè îôòîïèê, åäèí ïðèÿòåë áåøå ïîäåë íÿêàêâà òðîÿíñêà èíèöèàòèâà, îùå êúì 1999òà ãîäèíà...

    Ñõåìàòà e ñëåäíàòà: Äàâàø íà ïðèÿòåë÷åòàòà ñè, ïðèìåðíî, äèñê ñúñ mp3êè, êîéòî èìà íÿêàêúâ autorun. Òîé, äà ðå÷åì, òè ïðåäëàãà äà ñè èíñòàëèðàø winamp, èëè òè ïîêàçâà ïåñíèòå êàòåãîðèçèðàíè â àëáóìè ñ êàðòèíêè è ëèðèêè. Êúì öÿëîòî òîâà íåùî, çàêà÷àø åäíî êîí÷å, êîåòî ñíèôèðà îïðåäåëåí òðàôèê (êúì/îò yahoo.com) è keylog-âà â ñúùîòî âðåìå.

    Òðîÿíåöà ïåðèîäè÷íî ïðàùà äàííèòå íà íÿêàêúâ ñúðâúð, îòêúäåòî âå÷å ñ íÿêàêâî custom daemon-÷å ñè ãè ëîâèø.

    Íàé-çàáàâíîòî â öÿëîòî òîâà íåùî å, ÷å íèêîé íå ñå å óñåòèë, ìàùàáèòå íà çàðàçèòå áèëè âïå÷àòëÿâàùè (íèùî ÷óäíî äå, ñïîìíÿì ñè êàòî íÿìàøå áúðç íåò êàê äèñêîâåòå ñ ìóçèêà/ïîðíî/ïðîãðàìè âúðâÿõà êàòî òîïúë õëÿá). È âúðõà íà ñëàäîëåäà - 2006-òà ãîäèíà daemon-à îùå áà÷êàë è ïîëó÷àâàë äàííè
    Åòî òàêà ñå ïëîäÿò òå, êàçâàì ñè àç. Ïîä íîñà òè.
    "640K îught to be enough for anybody" - Bill Gates, 1981
    Òåñòîâå íà áàòåðèè::Machine specs::Fract::AGG::ÍåÑåÑúðäè×îâå÷å::Baileys::blog::YouTube channel

  12. #12
    Registered User
    Join Date: Jun:2007
    Location: BG
    Posts: 3

    Thumbs up

    program cirkulqrni pisma;
    deklarirane na fail i stringove
    {$I Createfile}
    {$I Writefile}
    procedure replace(var f:file;i,k:integer;st,st1:string);
    reset(f);
    begin
    while not eof(f) do
    readln(f,st);
    rewrite(g);
    i:=;k:=0;
    while s[i]<> '|' do
    st1:=st1+st1[i];
    a[k]:=st1;
    k:=k+1;
    Writefile(g,st)
    end;
    i sea ostavat samo nqkolko ne6ta kato del,insert i e gotovo
    PLEASE DON'T STOP THE MUSIC
    Last edited by Klaas Huntelaar; 20th June 2007 at 15:06.

  13. #13
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Âåäíàãà ñå âèæäà åäíà ñèíòàêòè÷íà ãðåøêà...
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè