Mam taki program:
Wynikiem działania programu, po wpisaniu np. 1234 jest:
Czy ktoś mógłby krok po kroku wytłumaczyć działanie tego programu?
Program KL4;
Uses
Crt;
Procedure LiczbaSlownie(n: LongInt);
Begin
If n > 9 Then LiczbaSlownie(n Div 10);
Case n Mod 10 Of
0: Write('*zer');
1: Write('*jed');
2: Write('*dwa');
3: Write('*trz');
4: Write('*czt');
5: Write('*pie');
6: Write('*sze');
7: Write('*sie');
8: Write('*osi');
9: Write('*dzi');
End
End;
Var
x : LongInt;
Begin
ClrScr;
Write ('X= ');
ReadLn(x);
WriteLn ('Wynik');
LiczbaSlownie(x);
Write('*');
ReadKey
End.
Wynikiem działania programu, po wpisaniu np. 1234 jest:
Wynik:
*jed*dwa*trz*czt*
Czy ktoś mógłby krok po kroku wytłumaczyć działanie tego programu?
