🚀 go-pugleaf

"The X-files" <student@pi.be> wrote in message
news:heorct430khsga6part5581ok24t6hbv07@4ax.com...
Yup programmeurs,

> Ik heb hier twee probleemdefinities die ik graag zou omzetten in
> Pascal maar geraak er echt niet aan begonnen weet niet hoe ik het moet
> doen
>
> Opgave 1.1
> Een rekenkundige rij is een rij getallen die begint met een op te
> geven eerste getal, terwijl de volgende getallen gevonden worden door
> het voorgaande getal met een vast, ook op te geven, getal te
> vermeerderen.
> Als een rekenkundige rij bestaat uit N getallen, kan daarvan de som
> bepaald worden met behulp van de volgende formules:
>
> Sn = N(A + L) / 2
> L = A + (N - 1) * V
>
> Met :
> A : eerste getal
> L : laatste getal
> V : verschil tussen twee opeenvolgende getallen
> N : Aantal getallen van de rij
>
> Schrijf een programma dat vraagt om A, V en N en dat vervolgens de som
> afdrukt.

Een iteratieve oplossing:

program berekencrap;

var A, V, N, R: integer;
label l;
begin
    Write('Geef A: '); ReadLn(A);
    Write('Geef V: '); ReadLn(V);
    Write('Geef N: '); ReadLn(N);
    asm
        mov cx,N
        mov ax,A
        xor dx,dx
l:      add dx,V
        loop l
        mov R,dx
    end;
    WriteLn('Som is: ', R);
end.


Joris