Results 1 to 13 of 13

Thread: !

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Little Buddha Darkness's Avatar
    Join Date: Feb:2004
    Location:
    Posts: 4,420

    !

    .. !


    X (m, n) Y (m, n), m ≤ 6 n ≤ 6 - , - P. Y M N :

    Const
    mm = 6; mn = 6;


    :

    Type
    matrix = array[1..mm, 1..mn] of real;

    Procedure ReadM2 ( var Y : matrix; var M, N : integer);

    Procedure WriteM2 ( Y : matrix; M, N : integer);

    .
    .
    , ,

    !
    (\__/) :
    (='.'=)- " " !
    ('')_('')

  2. #2
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,392
    .
    :
    1: (, , )
    2: 10 .
    : XaMaB; . 0.42

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

  3. #3
    Little Buddha Darkness's Avatar
    Join Date: Feb:2004
    Location:
    Posts: 4,420
    @ XaMaB ... -.. ... . . .... ' ...
    (\__/) :
    (='.'=)- " " !
    ('')_('')

  4. #4
    Little Buddha Darkness's Avatar
    Join Date: Feb:2004
    Location:
    Posts: 4,420
    ??!?
    (\__/) :
    (='.'=)- " " !
    ('')_('')

  5. #5
    Registered User
    Join Date: Dec:2004
    Location: hitechbg.com
    Posts: 16
    , . ????
    http://www.hitechbg.com

  6. #6
    Registered User Smoky's Avatar
    Join Date: Aug:2001
    Location: BG
    Posts: 1,339
    Darkness, , ...
    , :
    Code:
    <  >
    for i  1  
        for j  1  N
             X[m,n]> P
                = +  X[m,n]
                 = +1
    
    Avg = /      0

  7. #7
    Registered User nettle's Avatar
    Join Date: Sep:2003
    Location: Sofia
    Posts: 402
    ))
    Code:
    program test;
    
    Const
       mm = 6; mn = 6;
    
    type
      matrix = array[1..mm, 1..mn] of real;
    
    var
      Y:matrix;
      P:Real;
      M:Integer;
      N:Integer;
    
    procedure ReadM2(var Y: matrix; M, N: integer);
    var I, J:Integer;
    begin
      Randomize;
      for I:=1 to mm do begin
        for J:=1 to mn do begin
          Y[I, J]:=Random*100;
        end;//for
      end;//for
    end;
    
    procedure WriteM2(Y: matrix; M, N: integer);
    var I, J:Integer;
    begin
      for I:=1 to M do begin
        for J:=1 to N do begin
          Write(Y[I, J])+'; ');
        end;//for
        Writeln;
      end;//for
    end;
    
    procedure ProcessM2(Y: matrix; M, N: integer);
    var I, J, Cnt:Integer; Sum:Real;
    begin
      Cnt:=0; Sum:=0;
      for I:=1 to M do begin
        for J:=1 to N do begin
          If(Y[I, J] > P)then begin
            Sum:=Sum+Y[I, J];
            Cnt:=Cnt+1;
          end;//If
        end;//for
      end;//for
      If(Cnt>0)then begin
        Writeln('Avg. value: '+Sum/Cnt);
      end;//If
    end;
    
    begin
      readln(P);
      readln(M);
      readln(N);
    
      ReadM2(Y, M, N);
      ProcessM2(Y, M, N);
      WriteM2(Y, M, N);
    end.

  8. #8
    Little Buddha Darkness's Avatar
    Join Date: Feb:2004
    Location:
    Posts: 4,420
    ... ... ... ( 2 )


    @nettle ?
    (\__/) :
    (='.'=)- " " !
    ('')_('')

  9. #9
    Registered User nettle's Avatar
    Join Date: Sep:2003
    Location: Sofia
    Posts: 402

    nettle

    :-)

    , ReadM2. ProcessM2, .. , > P, P , Readln(P) .

    , turbopascal ? delphi, :
    Code:
    program Project1;
    
    {$APPTYPE CONSOLE}
    
    uses
      SysUtils;
    
    Const
       mm = 6; mn = 6;
    
    type
      matrix = array[1..mm, 1..mn] of real;
    
    var
      Y:matrix;
      P:Real;
      M:Integer;
      N:Integer;
    
    procedure ReadM2(var Y: matrix; M, N: integer);
    var I, J:Integer;
    begin
      Randomize;
      for I:=1 to mm do begin
        for J:=1 to mn do begin
          Y[I, J]:=Random*100;
        end;//for
      end;//for
    end;
    
    procedure WriteM2(Y: matrix; M, N: integer);
    var I, J:Integer;
    begin
      for I:=1 to M do begin
        for J:=1 to N do begin
          Write(FormatFloat('0.00000;-0.00000', Y[I, J])+'; ');
        end;//for
        Writeln;
      end;//for
    end;
    
    procedure ProcessM2(Y: matrix; M, N: integer);
    var I, J, Cnt:Integer; Sum:Real;
    begin
      Cnt:=0; Sum:=0;
      for I:=1 to M do begin
        for J:=1 to N do begin
          If(Y[I, J] > P)then begin
            Sum:=Sum+Y[I, J];
            Cnt:=Cnt+1;
          end;//If
        end;//for
      end;//for
      If(Cnt>0)then begin
        Writeln('Avg. value: '+FormatFloat('0.00000;-0.00000', Sum/Cnt));
      end;//If
    end;
    
    begin
      readln(P);
      readln(M);
      readln(N);
    
      ReadM2(Y, M, N);
      ProcessM2(Y, M, N);
      WriteM2(Y, M, N);
    end.

    turbopascal Real to string ( FormatFloat() ). , tuning .
    / :-) .../

  10. #10
    Little Buddha Darkness's Avatar
    Join Date: Feb:2004
    Location:
    Posts: 4,420
    turbopascal.
    (\__/) :
    (='.'=)- " " !
    ('')_('')

  11. #11
    Registered User nettle's Avatar
    Join Date: Sep:2003
    Location: Sofia
    Posts: 402
    TP. - SysUtils uses FormatFloat TP. TP

  12. #12
    Little Buddha Darkness's Avatar
    Join Date: Feb:2004
    Location:
    Posts: 4,420
    . .
    (\__/) :
    (='.'=)- " " !
    ('')_('')

  13. #13
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,392
    : XaMaB; . 0.42

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

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 |