C#•14mo ago

❔ PASCAL While Statement

PROCEDURE DisplayBFTable(minA, maxA: INTEGER; VAR result: INTEGER);
VAR
    bRange: INTEGER;
BEGIN
    bRange:= 0;
    WHILE minA <= maxA DO BEGIN
        WHILE bRange <= bTable DO BEGIN
            result:= Binomial(minA,bRange);
            WriteLn('Ergibt: ', result);
            bRange:= bRange + 1;
        END;
        minA:= minA + 1;
    END;
END;

PROCEDURE DisplayBFTable(minA, maxA: INTEGER; VAR result: INTEGER);
VAR
    bRange: INTEGER;
BEGIN
    bRange:= 0;
    WHILE minA <= maxA DO BEGIN
        WHILE bRange <= bTable DO BEGIN
            result:= Binomial(minA,bRange);
            WriteLn('Ergibt: ', result);
            bRange:= bRange + 1;
        END;
        minA:= minA + 1;
    END;
END;

Thats my "Function" in Pascal

13 Replies

mrmiyagiOP•14mo ago

The first one is my result, the second pic is how my result should look like. My Problem is that my while exits after it finishes the first row. Instead adding +1 to my minA and doing the whole thing again