خورد كردن سكه

[esj_35]

سلام برنامه خورد كردن سكه در پاسكال رو مي خواستم لطفا

 

[hoceyn]

الگوریتمش رو بگو برات بنویسم. تا حالا به این الگوریتم بر نخوردم

 

[esj_35]

 

[the_king]

سلام برنامه خورد كردن سكه در پاسكال رو مي خواستم لطفا

کد آبی ها در الگوریتم نیستند اما برای دیدن نتیجه محاسبه وجودشون لازمه :

USES CRT;
VAR
    Price : INTEGER;
    A, B : ARRAY[0..7] OF INTEGER;
    I, N : INTEGER;
BEGIN
    READLN(Price);
    A[0] := 1;
    A[1] := 2;
    A[2] := 5;
    A[3] := 10;
    A[4] := 20;
    A[5] := 50;
    A[6] := 100;
    A[7] := 250;
    N := 7;
    I := 0;
    WHILE (I <= N) DO
    BEGIN
        B[I] := 0;
        I := I + 1;
    END;
    I := N;
    REPEAT
    BEGIN
        WHILE A[I] <= Price DO
        BEGIN
            B[I] := Price DIV A[I];
            Price := Price MOD A[I];
       END;
       I := I - 1;
    END
    UNTIL Price = 0;
[B][COLOR="Blue"]    FOR I:= 0 TO N DO
        WRITELN('A[', I, '] = ', A[I]:3, '   B[', I, '] = ', B[I]);
    READKEY;[/COLOR][/B]
END.