_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

FATT.PAS

FILE INFORMATION

FILENAME(S): FATT.PAS

FILE TYPE(S): SEQ

FILE SIZE: 298b

FIRST SEEN: 2025-11-02 16:57:22

APPEARS ON: 1 disk(s)

FILE HASH

15a1f5078fc27d5fcac5561a5cc0f7227bd67ebe45ed05dcc723a1ac49bd55a8

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
TURBO PASCAL FATT.PAS SEQ Treasure Chest - Romfreak 11 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 50 52 4F 47 52 41 4D 20  46 41 54 54 4F 52 49 41  |PROGRAM FATTORIA|
00000010: 4C 45 20 28 49 4E 50 55  54 2C 4F 55 54 50 55 54  |LE (INPUT,OUTPUT|
00000020: 29 3B 0D 20 0D 56 41 52  0D 20 4E 20 3A 20 49 4E  |);. .VAR. N : IN|
00000030: 54 45 47 45 52 3B 0D 20  0D 46 55 4E 43 54 49 4F  |TEGER;. .FUNCTIO|
00000040: 4E 20 46 41 28 4E 3A 49  4E 54 45 47 45 52 29 3A  |N FA(N:INTEGER):|
00000050: 20 52 45 41 4C 3B 0D 42  45 47 49 4E 0D 20 20 49  | REAL;.BEGIN.  I|
00000060: 46 20 4E 3D 30 20 54 48  45 4E 0D 20 20 20 20 46  |F N=0 THEN.    F|
00000070: 41 20 3A 3D 20 31 0D 20  20 45 4C 53 45 0D 20 20  |A := 1.  ELSE.  |
00000080: 20 20 46 41 20 3A 3D 20  4E 20 2A 20 46 41 28 4E  |  FA := N * FA(N|
00000090: 2D 31 29 3B 0D 45 4E 44  3B 0D 0D 42 45 47 49 4E  |-1);.END;..BEGIN|
000000A0: 0D 20 57 52 49 54 45 4C  4E 3B 0D 20 57 52 49 54  |. WRITELN;. WRIT|
000000B0: 45 20 28 27 2E 27 29 3B  0D 20 52 45 41 44 20 28  |E ('.');. READ (|
000000C0: 4E 29 3B 0D 20 57 48 49  4C 45 20 4E 20 3E 3D 20  |N);. WHILE N >= |
000000D0: 30 20 44 4F 0D 20 20 42  45 47 49 4E 0D 20 20 20  |0 DO.  BEGIN.   |
000000E0: 20 57 52 49 54 45 4C 4E  3B 0D 20 20 20 20 57 52  | WRITELN;.    WR|
000000F0: 49 54 45 4C 4E 20 28 46  41 28 4E 29 29 3B 0D 20  |ITELN (FA(N));. |
00000100: 20 20 20 57 52 49 54 45  20 28 27 2E 27 29 3B 0D  |   WRITE ('.');.|
00000110: 20 20 20 20 52 45 41 44  20 28 4E 29 3B 0D 20 20  |    READ (N);.  |
00000120: 45 4E 44 0D 45 4E 44 2E  0D 0D                    |END.END...      |

PROGRAM FATTORIALE (INPUT,OUTPUT);. .VAR
. N : INTEGER;. .FUNCTION FA(N:INTEGER):
 REAL;.BEGIN.  IF N=0 THEN.    FA := 1. 
 ELSE.    FA := N * FA(N-1);.END;..BEGIN
. WRITELN;. WRITE ('.');. READ (N);. WHI
LE N >= 0 DO.  BEGIN.    WRITELN;.    WR
ITELN (FA(N));.    WRITE ('.');.    READ
 (N);.  END.END...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL