Results 1 to 7 of 7

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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.

  2. #2
    Registered User
    Join Date: Oct:2003
    Location:
    Posts: 4,317
    , . , . , . - .

  3. #3
    Modderhead
    Join Date: Nov:2005
    Location:
    Posts: 4,469
    Quote Originally Posted by bsb View Post
    , . , . , . - .
    bsb , .

    - :

    - : - , - .

    - 1 0, ; .

    - , n- - , , (n).

    - , , - , , , n-.

  4. #4
    Registered User
    Join Date: Dec:2008
    Location: UK
    Posts: 292
    Quote Originally Posted by bsb View Post
    , . , . , . - .
    , , -,
    ( ( ). 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.

  5. #5
    Modderhead
    Join Date: Nov:2005
    Location:
    Posts: 4,469
    , broi- , "".

  6. #6
    Registered User
    Join Date: Dec:2007
    Location: Sofia
    Posts: 366
    20- ( )
    , 3 .

  7. #7
    Registered User
    Join Date: Dec:2008
    Location: UK
    Posts: 292

    Pheoman , 20 .

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 |