Results 1 to 6 of 6

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128

    ,
    .



    :
    - (3,3)
    -
    -
    -




    program demo1;
    const
    m = 3;
    var
    flag : boolean;
    rez : real;
    I, J, k, L : Integer;
    type
    mat = array[1..m,1..m] of Integer;
    A = array[1..m] of real;
    begin
    for I := 1 to m do
    for J := 1 to m do
    repeat
    write ('Vavedete stoinostta na matritzata [',I,',',J,') = ');
    readln (mat [I,J]);
    until ((mat[I,J] >= -10000) and (mat[I,J] <= 10000));
    writeln;
    writeln (' Vavedenite stoinosti na masiva sa: ');
    writeln;
    ----------------------------------------------------------------------------------
    .
    begin
    for I := 1 to m do
    begin
    for J := 1 to m do
    write (mat [I,J]:5);
    writeln;
    writeln;
    end;
    begin
    for k := 1 to L do
    if (k mod 2 = 0) then
    for I := 1 to L - 1 do
    for J := I+1 to L do
    if (A[I] < A[J]) then
    begin
    flag := false;
    rez := a[J];
    a[J] := a[I];
    a[I] := rez;
    end
    else
    for I := 1 to L - 1 do
    for J := I+1 to L do
    if (a[I] > a[J]) then
    begin
    rez := a[J];
    a[J] := a[I];
    a[I] := rez;
    end;
    writeln ('Sortiraniqt masiv e:');
    writeln;
    for I := 1 to m do
    write (A[I]:6:1);
    readln;
    end;
    end;
    end.

    . .

    ?


    . . Pascal.
    Last edited by Red_Leader; 23rd October 2007 at 18:15.

  2. #2
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    , -.
    L. , for 1 L, 1 m.
    - . , .
    , . , - , .

  3. #3
    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|

  4. #4
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128

  5. #5
    Registered User
    Join Date: Jul:2006
    Location:
    Posts: 480
    Quote Originally Posted by Bombera View Post
    , . / , , .
    , . [COD]...[/COD] , , .. <PRE>...</PRE> HTML.
    , , , , .
    , . ...

  6. #6
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128

    .txt
    Attached Files

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 |