Results 1 to 13 of 13

Thread: Paskal

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 |