Results 1 to 13 of 13

Thread: :

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User Mortos's Avatar
    Join Date: Mar:2008
    Location: bg
    Posts: 116

    :

    , , . .

    A[N,N] [- 1000 - 1000], :
    -
    -
    - ) , .
    ) .
    - a) ).



  2. #2
    user-friendly 0wn3r's Avatar
    Join Date: Mar:2006
    Location: Bulgaria,Plovdiv
    Posts: 1,165
    "" , ?

  3. #3
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128
    Last edited by Red_Leader; 12th October 2008 at 12:51.

  4. #4
    Registered User Mortos's Avatar
    Join Date: Mar:2008
    Location: bg
    Posts: 116
    .

  5. #5
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128
    "" -.
    Last edited by Red_Leader; 12th October 2008 at 15:57.

  6. #6
    Registered User Mortos's Avatar
    Join Date: Mar:2008
    Location: bg
    Posts: 116

    "WriteLn('N ',I,'-',J'=',A[i,j]); " ? , ?

    Code:
    Program Interesna_Zadacha;
    uses Crt;
    Const N=10; //broi na dannite v masiva
    Var 
    A:array[1..n,1..n] of integer;
    C:array[1..n,1..n] of integer;
    
    
    Procedure EnterMasiv(m:integer);
    VAR I,J:integer;
     begin
     For I:=1 to M do
     For J:=1 to M do
      begin
      Write('N ',I,'-',j,'=');Readln(A[i,j]);
      end;
     end;
    
    
     Procedure PrintMasiv(M:integer);
    
     Var I,J:Integer;
      begin
      ClrScr;
    For I:=1 to M do
    For J:=1 to M do
      begin
      WriteLn('N ',I,'-',J'=',A[i,j]);
      end;
      end;
        k:=1
    for i:=2 to z  // 
      for j:=1 to i-1 // 
    	    begin
    	      c[k]:=a[i,j]
    	      k:=k+1
    	    end
        begin
          ClrScr;
          EnterMasiv(n);
          PrintMasiv(n)
          Preobraz(n);
          Sort(N);
          PrintMasivNew(n)
         end.
    ...

  7. #7
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    J-.
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  8. #8
    Registered User Mortos's Avatar
    Join Date: Mar:2008
    Location: bg
    Posts: 116

  9. #9
    Registered User
    Join Date: Oct:2008
    Location: sofia
    Posts: 3
    Mortos . . :
    [,], [-1000;1000]. :
    1. ;
    2. ;
    3. ;
    4. ;
    ) C, , [L,M]
    ) .
    6 , 27.

    .
    Last edited by delian; 17th October 2008 at 21:05. Reason:

  10. #10
    _
    Join Date: Apr:2006
    Location: _
    Posts: 1,128
    Quote Originally Posted by avengerr View Post
    Mortos . . :
    [,], [-1000;1000]. :
    1. ;
    2. ;
    3. ;
    4. ;
    ) C, , [L,M]
    ) .
    6 , 27.

    .
    bgshare

  11. #11
    Registered User
    Join Date: Oct:2008
    Location: sofia
    Posts: 3

    sa6o

    , . .6 .

  12. #12
    Registered User
    Join Date: Nov:2005
    Location:
    Posts: 3,317
    Quote Originally Posted by avengerr View Post
    .
    ...

  13. #13
    Registered User
    Join Date: Oct:2008
    Location: sofia
    Posts: 3
    program kursova_zadacha_1_gizmo;
    uses Crt;
    const
    MAX = 10;
    var
    n : Integer;
    i, j, i_min, k : Integer;
    A : array[1..10,1..10] of Real;
    C : array[1..10] of Real;
    temp_val : Real;
    Flag : Boolean;
    begin
    ClrScr;
    Write('Uslovie na zada4ata : Da se sustavi programa za obrabotka na masiv A[N,N] kudeto');
    Writeln('Dannite sa realni chisla v intervala [-1000 , 1000].');
    Write('Da se obrazuva ednomeren masiv C[N], elementite na koito sa elementite na A[N,N]');
    Writeln('namirashti se izvun daden interval[L;M]. Polucheniq masiv da se sortira po golemina.');
    Writeln;
    Writeln('******************************* **************************************** ******');
    Writeln;
    Write('Vuvedete goleminata (broq redove i stylbove) na masiva (maksimalno ', MAX, '): '); Readln(n);
    Writeln;
    Writeln('Vuvejdane na elementite na matricata A[N,N] : ');
    for i := 1 to n do
    for j := 1 to n do
    begin
    repeat
    Write('A[',i,',',j,'] = '); Readln(A[i,j])
    until (A[i,j] >= -1000) and (A[i,j] <= 1000)
    end;
    Writeln;
    Writeln('******************************* **************************************** ******');
    Writeln('Vuvedohte slednata matrica [',n,',',n,']:');
    for i := 1 to n do begin
    Write('| ');
    for j := 1 to n do
    Write(A[i,j]:8:2);
    Writeln(' |');
    end;



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 |