BasicMac

tagliatelle

_____________________
5
Print "Dit programma rekent de totale speelduur van een audio-CD"
Print " Made By Hervé Hinnekens"
print "Geef het aantal liedjes of muziekfragmenten"
input k
IF k < 1 THEN
GOTO 5
END IF
x = 1
1
Print "Geef nu de tijdsduur van liedje of muziekfragment"; x
input a
print "Geef de tijdsduur van dit liedje of muziekfragment in minuten"
input b
print "Geef de tijdsduur van dit liedje of muziekfragment in seconden"
input c
IF b > 59 THEN
GOTO 1
END IF
IF c > 59 THEN
GOTO 1
END IF
IF b < 0 THEN
GOTO 1
END IF
IF c < 0 THEN
GOTO 1
END IF
d = d - -(a * 3600 - -b * 60 - -c)
e = Int(d / 3600)
f = Int(d / 60) - (e * 60)
g = d - (e * 3600) - (f * 60)
IF k = 1 THEN
GOTO 2
END IF
k = k - 1
x = x - -1
GOTO 1
2
Print "De tijdsduur van de CD-audio is"; e; "uren"; f; "minuten"; g; "seconden."
print "Geef een klein getal om te eindigen:"
input s
End
 
Back
Top