Ajutati-ma va rog!


  1. #1
    0-day Member alexandro reprezinta o cantitate neglijabila
    Data de inscriere
    18-10-2009
    Sex
    M
    Mesaje
    3
    Putere Reputatie
    0
    Reputatie
    10
    Puncte CF
    0.0

    Exclamation Ajutati-ma va rog!

    sa se calculeze suma pe fiecare linie intro matrice

    program a_07;
    type matrice = ARRAY [1..10,1..10] of integer;
    var i,n,m,j,s: integer;
    begin
    write ('n='); readln(n);
    write('m='); readln;
    for i:=1 to n do for j:=1 to m do begin
    write('a[',i,',',j,']='); readln(a[i,j]); end;
    s:=0; for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3);
    writeln; end;
    for i:=1 to n do begin
    ???????????

    end;

    readln;
    end.

    utimu for parcurge liniile mie imi trebu ca sa se calculeze suma pe fiecare linie
    aici nu inteleg cum trebu sa declar fiecare linie ca sa afle suma ?!

  2. #2
    Addicted! n0_xs's Avatar n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta n0_xs este deja o vedeta
    Data de inscriere
    29-12-2008
    Locaţie
    Grajdovita
    Varsta
    33
    Sex
    M
    Mesaje
    1,900
    Mesaje bazar
    70
    Putere Reputatie
    41
    Reputatie
    1954
    Puncte CF
    30.0
    Usergroups:
    in pseudocod:

    pentru i=1, i<=n executa{
    pentru j=1, j<=m executa{
    s->s+a[i,j];}
    afiseaza s;
    s=0}

    cam asa ar trebui sa fie
    Orice lucru bun in viata e ilegal, imoral sau ingrasa!!!
    C'est la vie toujours passive,
    C'est la femme toujours naive.
    C'est la vie toujours diverse,
    C'est la femme toujours perverse!
    Vrei mai putine reclame? Inregistreaza-te sau logheaza-te

  3. #3
    0-day Member alexandro reprezinta o cantitate neglijabila
    Data de inscriere
    18-10-2009
    Sex
    M
    Mesaje
    3
    Putere Reputatie
    0
    Reputatie
    10
    Puncte CF
    0.0
    imi trebu in pascal programu si dupa cum miai zis nu mi-a reusit

  4. #4
    Newcomer SoL0 reprezinta o cantitate neglijabila
    Data de inscriere
    22-12-2005
    Locaţie
    craiova
    Varsta
    35
    Sex
    M
    Mesaje
    18
    Mesaje bazar
    47
    Putere Reputatie
    38
    Reputatie
    15
    Puncte CF
    40.0
    Presupunand ca cu i parcurgi liniile si cu j coloanele secventa de calculare ar fi urmatoarea:

    suma:=0;
    for i = 1 to n do
    begin
    for j = 1 to m do
    suma := suma + a[i,j];
    end;

    Traducerea, porneste cu primul element de pe prima linie, apoi in acel begin end sunt parcurse elementele de pe coloane...mai exact la suma or sa se adauge pe rand a[1,1],a[1,2],a[1,3] etc. apoi se trece la urmatoarea linie...si tot asa.

  5. #5
    Senior Member buffalo's Avatar buffalo este o comoara de om buffalo este o comoara de om buffalo este o comoara de om buffalo este o comoara de om buffalo este o comoara de om
    Data de inscriere
    16-04-2007
    Locaţie
    da
    Varsta
    36
    Sex
    M
    Mesaje
    751
    Mesaje bazar
    28
    Putere Reputatie
    38
    Reputatie
    405
    Puncte CF
    19.0
    Usergroups:
    program a_07;
    type a = ARRAY [1..10,1..10] of integer;
    var i,n,m,j,s: integer;

    begin
    write ('n='); readln(n);
    write('m='); readln;

    s:=0;

    for i:=1 to n do
    begin
    for j:=1 to m do
    begin
    write('a[',i,',',j,']='); readln(a[i,j]);
    s:=s+a[i,j];
    end;
    writeln('suma de pe linia i este',s);
    s:=0;
    end;

    readln;
    end.

    Dupa ce citesti un element poti sa-l bagi imediat in suma. Dupa ce ai terminat de parcurs linia, afisezi cat a fost suma pe acea linie si, inainte sa treci la urmatoarea, faci s=0.
    Last edited by buffalo; 18-10-2009 at 20:44.
    blacker than the blackest black. TIMES INFINITY

  6. #6
    0-day Member alexandro reprezinta o cantitate neglijabila
    Data de inscriere
    18-10-2009
    Sex
    M
    Mesaje
    3
    Putere Reputatie
    0
    Reputatie
    10
    Puncte CF
    0.0
    multumesc...
    Vrei mai putine reclame? Inregistreaza-te sau logheaza-te

Google+

Cautati logo-ul CraiovaForum?

Iata cateva variante: