Results 1 to 6 of 6

Thread: Pascal

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Mar:2010
    Location: sofia
    Posts: 2

    Pascal

    !

    Pascal, , . , , , a . ??

    -
    ... , .

    7:

    . 1

    , , , . . . , - .1

    . 1:



    := TRUE

    CASE
    Flag:= false Flag:false
    , , ,

    Flag - false -
    |
    True
    CASE




    . 2

    , , . .

    . 3
    , . .


    :

    .1
    , Value , AmOt. .

    .2
    , . 10 .

    .3

    , 0 N, , N . . 3.7



    x>n
    true |
    | |
    False
    | |
    | (:=1)
    | |
    | (:=*)
    | |
    |
    | |
    | (:= +1)
    | |
    | A*X>N-----False
    |________________________|
    |
    k
    .4
    , Sum 1 000 000, Lih. .




    !

  2. #2
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,387
    , ?


    ...
    : XaMaB; . 0.42

    In God we Trust (all others must submit a X.509 certificate). , ()

  3. #3
    Registered User
    Join Date: Mar:2010
    Location: sofia
    Posts: 2
    Quote Originally Posted by XaMaB View Post
    , ?


    ...
    , ... ...
    , , - ?!

    , , , , . , , , , ...
    .. , / .

    , , :

    , (5.3) , . , - .1.5.


    F(x)=0, <= 1
    F(x)= 1,126x, 1< <=2
    F(x)= 0,232 2<<=3
    F(x) = 1,16x > 3

    Program zad_5.1;
    Uses
    Wincrt;
    Var
    X: integer;
    Y: real;
    Begin
    Write (Vuvedete X); Read (x);
    If x <= 1 then y:=0;
    If (x>1) and (x <= 2) then y:=1.126*x;
    If (x>2) and (x <= 3) then y:=0.232*x;
    If (x>3) then y:=1.16*x;
    Readln;
    End.

  4. #4
    Registered User
    Join Date: Feb:2010
    Location: Bulgariq
    Posts: 34

    ! Pascal.

    :

    , :


    : , , : "n" : "n" , ( ), , , .

    : : :
    3.99 180 .
    .
    300 .

  5. #5
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    . , .
    .
    EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
    Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|

  6. #6
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    .
    EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
    Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|

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 |