+
1 2 12
1 10 13
  1. #1
    GartesK       GartesK
    30.09.2007
    647
    ()
    0
    : 0 (: 0).

     Turbo Pascal

    - ?
    - Real Integer?
    .

  2. #2
    MupoTBopeu       MupoTBopeu
    06.10.2007
    127.0.0.1
    2,881
    ()
    0
    : 2 (: 2).

    GartesK
    ?
    , ###...
    uses ...math...

    power...

    GartesK
    Real Integer?
    var
    a: integer;
    b: real;
    ......
    a:=integer(b); -
    a:=round(b); -
    a:=int(b); -

    ,


    !

  3. #3
    GartesK       GartesK
    30.09.2007
    647
    ()
    0
    : 0 (: 0).

    ,

    11
    POWER , POW , , ... ?

    2
    round , ,
    GartesK; 07.01.2009 18:20. :

  4. #4
    MupoTBopeu       MupoTBopeu
    06.10.2007
    127.0.0.1
    2,881
    ()
    0
    : 2 (: 2).

    math ?




    X^Y= exp(y*ln(x));
    (X<=0) ,
    MupoTBopeu; 07.01.2009 18:47. :

  5. #5
    GartesK       GartesK
    30.09.2007
    647
    ()
    0
    : 0 (: 0).

    <=0, ...

    2
    math =) =)
    GartesK; 07.01.2009 19:50. :

  6. #6
    otmopo3ok       otmopo3ok
    21.03.2008
    64
    ()
    0
    : 0 (: 0).

    var
    a:real;
    ...
    if(x>0)then
    a= exp(y*ln(x))
    else
    if(x<>0)then
    a= 1/exp(y*ln(-x))
    else
    a=0;
    otmopo3ok; 08.01.2009 01:45.

  7. #7
    GartesK       GartesK
    30.09.2007
    647
    ()
    0
    : 0 (: 0).



    6


    3 28
    ... 0... =(

    PROGRAM POLOSA (INPUT,OUTPUT);
    USES GRAPH,CRT;
    VAR GD,GM,K,P:INTEGER;
    P1,P2,PM,I,BO,BBO,H,B,A:REAL;
    BEGIN
    CLRSCR;
    GD:=0; GM:=0;
    INITGRAPH (GD,GM,'');
    LINE (320,0,320,480);
    LINE (0,240,640,240);
    READLN (H);
    FOR K:=1 TO 15 DO
    BEGIN
    B:=K DIV 10;
    BO:=SQRT(3)*B/SQRT(9-(B*B));
    BBO:=(2*BO)/(BO+1);
    A:=EXP((1-BBO)*LN(H));
    P1:=(H-1)/(1+BO)+1/(2*BO)-((H-1)*(1-BO)/(1+BO)+1-A);
    P2:=(H-1)/(1+BO);
    IF P1<P2 THEN
    BEGIN
    P:=ROUND(P1); I:=H;
    END;
    IF P1>P2 THEN
    BEGIN
    P:=ROUND(P2); I:=1;
    END;
    IF B=0 THEN
    BEGIN
    PM:=H-1; I:=1;
    END;
    PUTPIXEL (320+100*ROUND(B),240-P*100,15);
    END;
    READLN;
    END.

    5
    - H=1.2
    GartesK; 08.01.2009 22:11. :

  8. #8
    MupoTBopeu       MupoTBopeu
    06.10.2007
    127.0.0.1
    2,881
    ()
    0
    : 2 (: 2).

    crt

  9. #9
    GartesK       GartesK
    30.09.2007
    647
    ()
    0
    : 0 (: 0).

    ? ...

  10. #10
    MupoTBopeu       MupoTBopeu
    06.10.2007
    127.0.0.1
    2,881
    ()
    0
    : 2 (: 2).

    ?
    DOS