|
DataMuseum.dkPresents historical artifacts from the history of: ICL Comet |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about ICL Comet Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »PROGRAM4.DAT«
└─⟦12604f400⟧ Bits:30004224 SKAT - et emnearbejde (Comet)
└─⟦this⟧ »PROGRAM4.DAT«
Programstump til hjælp ved udarbejdelse af program til beregning af statsskat. ------------------------------------------------------------------------------- 0410 PROC beregning 0420 if sk_indkomst<=grænse_1 THEN 0430 statsskat:=sk_indkomst*pct_1/100 0440 ELSE 0450 IF sk_indkomst<=grænse_2 THEN 0460 statsskat:=grænse_1*pct_1/100+(sk_indkomst-grænse_1)*pct_2/100 0470 ELSE 0480 statsskat:=grænse_1*pct_1/100+(grænse_2-grænse_1)*pct_2/100 0490 statsskat:=statsskat+(sk_indkomst-grænse_2)*pct_3/100 0500 ENDIF 0510 ENDIF 0520 ENDPROC beregning Når du er færdig med dit program, kan du komme tilbage til basisprogrammet ved at skrive: RUN "menu" og derefter trykke på RETURN-tasten. «eof»