Buchempfehlung
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Mikrocomputertechnik mit Controllern der Atmel AVR-RISC-Familie
Umfassend, aber leicht verständlich führt dieses Buch in die Programmierung von ATMEL AVR Mikrocontrollern ein. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Division

Uploader:AdministratorSebastian
Datum/Zeit:10.09.2010 17:54:53

Const Wert1 As Integer = 8
Const Wert2 As Integer = 7

Dim As Integer a, b, Differenz, Anzahl, Quotient

'Wie oft misst die eine Zahl die andere?

'Durch wiederholte Subtraktion berechnen:
Anzahl = 0
a = Wert1
b = Wert2
If b = 0 Then
    Print "Division durch 0. Das geht nicht."
Else
    Do
        Differenz =  a - b
        a = Differenz
        If Differenz < 0 Then
            Exit Do
        ElseIf Differenz = 0 Then
            Anzahl += 1
            Exit Do
        Else
            Anzahl += 1
        End If
    Loop Until Differenz = 0
    Print " a / b = " & Anzahl
End If

Print

'Jetzt einfach mit Division:
a = Wert1
b = Wert2
Print " a / b = " & Int(a/b)

Sleep