Results 1 to 8 of 8

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

    : ? ?

    . , F write(' Vuvedete broq na redovete i stulbovete na masiva');
    readln(F);

    . :

    :

    Code:
    PROGRAM Kursova_rabota_No1; 
    CONST 
            N=3; 
            M=(N*(N-1)) DIV 2; 
    VAR 
        A:ARRAY [1..N,1..N] OF REAL; 
        C:ARRAY [1..M] OF REAL; 
        X:REAL; 
        I,J,K:INTEGER; 
    
    BEGIN 
             writeln ('***********************************************************'); 
       writeln ('This program was made by Grigor Ivanov, N: 051208059 .  '); 
       writeln (' TU - Sofia , Departament of Thermalengineering '); 
       writeln ('*************************************************************'); 
       writeln ('                 ---===<<<   Kursova Zadacha N:1   >>>===---'); 
       writeln ('___________________________________________________________'); 
       writeln (' Da se sustavi programa za obrabotka na masiva A[N,N] kudeto'); 
       writeln ('  dannite sa realni chisla v intervala [-1000; 1000], da izvurshvat slednite deistviq:'); 
       writeln ('  * otpe4atvane na uslovieto na zada4ata'); 
        writeln ('  * otpe4atvane avtora na programata'); 
        writeln ('  * vuvejdane na vhodnite danni'); 
        writeln ('  * otpe4atvane na vhodnite danni'); 
        writeln ('  * a) da se obrazuva ednomeren masiv C, elementite na koito sa elementite na masiva A'); 
        writeln ('  * namira6ti se pod glavniq, diagonal, b) polu4eniqt masiv da se sortira po golemina'); 
        writeln ('  * otpe4atvane na polu4enite rezultati i sled obrabotka a) i sled obrabotka b)'); 
        writeln ('_____________________________________________________________'); 
       writeln; 
    
      { VYVEJDAME DANNITE } 
    
      FOR I:=1 TO N DO 
        BEGIN 
          WRITELN(I,':'); 
          FOR J:=1 TO N DO 
            BEGIN 
              REPEAT 
                WRITE('  ',J,'.'); 
                READLN(X); 
              UNTIL (X>=-1000) AND (X<=1000); 
              A[I,J]:=X; 
            END 
        END; 
    
      { IZVEJDAME MATRICATA } 
    
      WRITELN('Matrica:'); 
      FOR I:=1 TO N DO 
        BEGIN 
          FOR J:=1 TO N DO 
            WRITE(A[I,J]:2:2,' '); 
          WRITELN; 
        END; 
    
      { POPYLVAME MASIVA "C" S ELEMENTITE POD GLAVNIQ DIAGONAL } 
    
      K:=1; 
      FOR I:=2 TO N DO 
        FOR J:=1 TO I-1 DO 
          BEGIN 
            C[K]:=A[I,J]; 
            K:=K+1; 
          END; 
    
      { SORTIRAME MASIVA "C" } 
    
      FOR I:=2 TO M DO 
        BEGIN 
          X:=C[I];J:=I-1; 
          WHILE (X<C[J]) AND (J>0) DO 
            BEGIN 
              C[J+1]:=C[J]; 
              J:=J-1; 
            END; 
          C[J+1]:=X; 
        END; 
    
      { IZVEJDAME SORTIRANIQ MASIV } 
    
      WRITELN; 
      WRITELN('Sortirani elementi pod glavniq diagonal:'); 
      FOR I:=1 TO M DO 
        WRITE(C[I]:2:2,' '); 
        readln 
      END.

    N=3

  2. #2
    Registered User Mortos's Avatar
    Join Date: Mar:2008
    Location: bg
    Posts: 116
    *. , , N. , .

  3. #3
    TEKIL4O's Avatar
    Join Date: Feb:2007
    Location: Rousse/Sofia
    Posts: 341
    ? - while , ... ?!
    EP 9NPA+ U (HR-05/IFX)| 4200+X2@2.8GHz (IFX-14) | 2x1GB KINGSTON (DDR430 3-4-3-6-1T@2.7V) | GB 8800GT (512MB) | WD6401AALS | CFT-750-14CS

  4. #4
    gibona's Avatar
    Join Date: Feb:2005
    Location: Sofia
    Posts: 3,074
    While (not eof()) - ( )
    While (not eol()) - ( )
    ? ""

  5. #5
    Wall-e delian's Avatar
    Join Date: May:2003
    Location: ::1
    Posts: 4,723
    - , N . , , . .
    N ( 1000 5000) , .. . , . , .

  6. #6
    Registered User mln's Avatar
    Join Date: Jul:2006
    Location: Varna
    Posts: 100
    . , .
    - .
    .
    |Aus Z87-Pro, 4770k, 2x8GB GEIL EVO LEGGERA 1866, 2x PowerColor PCS+ 290, OCZ Vertex Le 100gb + 2xWD640 AAKS, EVGA Supernova P2 1000W, 24" Dell 2408WFP

  7. #7

    Join Date: Sep:2005
    Location: Sofia
    Posts: 18,517
    .
    getMem - freeMem, .
    - , , 'mem'. , . 64- .

  8. #8
    Master of Magic Ar4i's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 6,563
    ? ?
    ( ) - . Borland Pascal 32 , - 64 64. , .

    N = 127 F >1 <128.
    - F .
    Ar4i

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 |