Results 1 to 7 of 7
Hybrid View
-
22nd April 2010 16:02 #1Registered User
Join Date: Dec:2008
Location: UK
Posts: 292
,
:
M[10x12] N[14x16] B[15x19], [0 999]. :
;
;
;
- ;
.
( - ).
, ( ) - ( ).
.
.
Code:program zadacha; var m : array[1..10,1..12] of integer; n : array[1..14,1..16] of integer; b : array[1..15,1..19] of integer; m1,m2,n1,n2,b1,b2 : integer; s,s2:integer; begin {izvejdane na uslovieto na zadachata i imeto na avtora} writeln; writeln; writeln; writeln(' Da se sastavi glavna programa za obrabotka na tri masiva M[10x12] i N[14x16] i'); writeln('B[15x19], kadeto dannite sa chisla v intervala [0 - 999]. Saotvetnite podprogrami da'); writeln('izvarshvat slednite obrabotki:'); writeln(' - izvejdane na uslovieto na zada4ata i imeto na avtora;'); writeln(' - vavejdane na vhodnite danni;'); writeln(' - izvejdane na vhodnite danni;'); writeln(' - da se nameri reda sadarjasht nai-mnogo chetni elementi i da se nulirat sasednite mu redove;'); writeln(' - rezultatite da se izvedat na ekrana.'); writeln; writeln('Sastavil imeto na avtora'); {vavejdane na 1vi masiv} for m1 := 1 to 10 do for m2 := 1 to 12 do repeat write('vavedete stoinostine na purviqt masiv M[',m1,',',m2,'] = '); readln(m[m1,m2]); until ((m[m1,m2] >= 0) and (m[m1,m2] <= 999)); {vavejdane na 2ri masiv} for n1 := 1 to 14 do for n2 := 1 to 16 do repeat write('vavedete stoinostine na vtoriqt masiv N[',n1,',',n2,'] = '); readln(n[n1,n2]); until ((n[n1,n2] >= 0) and (m[n1,n2] <= 999)); {vavejdane na 3ti masiv} for b1 := 1 to 15 do for b2 := 1 to 19 do repeat write('vavedete stoinostine na tretiqt masiv B[',b1,',',b2,'] = '); readln(b[b1,b2]); until ((b[b1,b2] >= 0) and (b[b1,b2] <= 999)); writeln; {izvejdane na 1vi masiv} writeln('stoinosti na parvi masiv M:'); for m1 := 1 to 10 do begin writeln; for m2 := 1 to 12 do write(m[m1,m2]:5,' '); end; {izvejdane na 2ri masiv3 } writeln('stoinosti na vtori masiv N:'); for n1 := 1 to 14 do begin writeln; for n2 := 1 to 16 do write(n[n1,n2]:5,' '); end; {izvejdane na 3ti masiv} writeln('stoinosti na treti masiv B:'); for b1 := 1 to 15 do begin writeln; for b2 := 1 to 19 do write(b[b1,b2]:5,' '); end; {naminane na reda s nai mnogo chetni elementi i nuliraneto na sasednite redovena masiv M} for m1 := 1 to 1 do begin for m2 := 1 to 12 do if (m2 mod 2=0) then s:=s+1; end; s2:=s; s:=0; for m1 := 2 to 10 do begin for m2 := 1 to 12 do if (m2 mod 2=0) then s:=s+1; if s>s2 then begin s2:=0; s2:=s; s:=0; end else s:=0; end; writeln(s,s2); {izvejdane na ve4e obrabotenite masivi} {ne sum peistnal coda tui kato e su6tiq kato izvejdaneto v na4aloto :) } readln; end.
-
22nd April 2010 16:24 #2Registered User
Join Date: Oct:2003
Location:
Posts: 4,317
, . , . , . - .
-
22nd April 2010 17:42 #3Modderhead
Join Date: Nov:2005
Location:
Posts: 4,469
-
22nd April 2010 17:58 #4Registered User
Join Date: Dec:2008
Location: UK
Posts: 292
, , -,
( (
). 3 39 , .
:/
:
@ knobel, ?
Code:broi:=0 red:=0; maxbroi:=0; for m1 := 1 to i do begin for m2 := 1 to j do if (m2 mod 2=0) then broi:=broi+1; if broi>red then begin maxbroi:=broi; red:=i; end; end; : for m1 := 1 to i do begin for m2 := 1 to j do if (red=i+1) then a[i,j]:=0; end; for m1 := 1 to i do begin for m2 := 1 to j do if (red=i-1) then a[i,j]:=0; end;Last edited by Progressor47; 22nd April 2010 at 18:20.
-
23rd April 2010 13:27 #5Modderhead
Join Date: Nov:2005
Location:
Posts: 4,469
, broi- , "".
-
23rd April 2010 21:26 #6Registered User
Join Date: Dec:2007
Location: Sofia
Posts: 366
20- ( )

, 3 .
-
24th April 2010 18:29 #7Registered User
Join Date: Dec:2008
Location: UK
Posts: 292

Pheoman , 20 .




Reply With Quote

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