Results 1 to 8 of 8
Thread: : ? ?
Hybrid View
-
21st October 2008 20:32 #1
: ? ?
. , 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
-
21st October 2008 22:00 #2
-
21st October 2008 23:07 #3
? - 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
-
21st October 2008 23:18 #4
While (not eof()) - ( )
While (not eol()) - ( )
? ""
-
22nd October 2008 08:54 #5
-
22nd October 2008 17:33 #6
. , .
- .
.
|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
-
27th October 2008 21:31 #7
Join Date: Sep:2005
Location: Sofia
Posts: 18,517
.
getMem - freeMem, .
- , , 'mem'. , . 64- .
-
27th October 2008 22:02 #8
? ?
( ) - . Borland Pascal 32 , - 64 64. , .
N = 127 F >1 <128.
- F .Ar4i




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in