Results 1 to 13 of 13
Thread: :
Hybrid View
-
12th October 2008 11:28 #1
:
, , . .
A[N,N] [- 1000 - 1000], :
-
-
- ) , .
) .
- a) ).
-
12th October 2008 11:43 #2
-
12th October 2008 12:41 #3_
Join Date: Apr:2006
Location: _
Posts: 1,128
- , - ?
. . http://www.bgshare.com/378234/Arhiv Tu sofia MTT .rar. .Last edited by Red_Leader; 12th October 2008 at 12:51.
-
12th October 2008 13:01 #4
-
12th October 2008 13:04 #5_
Join Date: Apr:2006
Location: _
Posts: 1,128
"" -.
Last edited by Red_Leader; 12th October 2008 at 15:57.
-
15th October 2008 23:28 #6
"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.
-
16th October 2008 02:53 #7
J-.
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
16th October 2008 12:30 #8
-
17th October 2008 18:18 #9Registered 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:
-
18th October 2008 21:16 #10
-
18th October 2008 23:17 #11Registered User
Join Date: Oct:2008
Location: sofia
Posts: 3
sa6o
, . .6 .
-
17th October 2008 18:24 #12
-
17th October 2008 18:41 #13Registered 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;




Reply With Quote


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