Aiuto...Pascal!!!!

[sofi632]

Ciao a tuttiii!!!
ho un problema...devo fare un programma con le matrici, in pascal, che stampa una colonna con la somma dei numeri di una riga, cioè:

1234 = 10
6895 = 28
8836 = 25

mi aiutate?!?!?!? ho buttato giu qualche idea ma non me lo vuole nemmeno compilare!!!!
grazie...

[stellacometa]

Tu quali idee hai avuto??

[uliste]

Ecco qui il programma, pronto in 2 miniti! Enjoy!

PROGRAM sommarighe;

CONST
n=3;
m=4;

VAR
i, j, somma_riga: integer;
A: array [1..n, 1..m] of integer;

BEGIN
for i:=1 to n do
for j:=1 to m do begin
write ('Elemento riga ', i,' colonna ', j, '--> ');
readln (A[i,j]);
end;
for i:=1 to n do begin {scorre le righe}
somma_riga:=0; {all'inizio di ogni riga resetta il contatore}
for j:=1 to m do {scorre le colonne}
somma_riga:=somma_riga + A[i,j]; {contatore per gli elementi di ogni riga}
writeln (somma_riga); {Scrive in colonna la somma degli elementi di ogni riga}
end;

readln;
END.

Ho assegnato la grandezza della matrice con delle costanti, ma ovviamente sarebbe possibile in alternativa far scegliere all'utente il numero di righe e colonne. E' anche possibile visualizzare la matrice ottenuta.
Se ti interessa....

by Ste.

[eafkuor1]

potresti fare

num:=1234;

unita:=num mod 10; //ora unita vale 4
num:=num-unita; //cosi' num ora vale 1230

decine:=num mod 100; //ora decine vale 30
num:=num-decine; //ora num vale 1200
decine:=decine/10; //ora decine vale 3

centinaia:=num mod 1000; //ora centinaia vale 200
num:=num-centinaia; //ora num vale 1000
centinaia:=centinaia/100; //ora centinaia vale 2

migliaia:=num/1000; //migliaia vale 1


ovviamente poi dovrai adattare il procedimento al caso generale

p.s. se non lo sapessi

n mod m=resto della divisione intera tra n ed m

[eafkuor1]

ops scusate non avevo letto la reply di uliste e avevo capito male il problema... che ci volete fare mi sono appena svegliato

[sofi632]

Grazie mille!gira benissimo...
Non ero riuscita a capire " somma_riga:=somma_riga + A[i,j] " e per questo non mi girava!!!
Ho modificato quelle cose che mi hai detto...grazie ancora!