fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
Periodensystem der Elemente

Uploader:	freebay
Datum/Zeit:	10.09.2010 17:17:38
TYPE Periodensystem

  AS STRING Bezeichnung

  AS INTEGER Massezahl

  AS INTEGER bisOktettzustand

END TYPE



DIM Atom(25) AS Periodensystem



Atom(1).Bezeichnung  = "Wasserstoff"

Atom(2).Bezeichnung  = "Helium"

Atom(3).Bezeichnung  = "Lithium"

Atom(4).Bezeichnung  = "Beryllium"

Atom(5).Bezeichnung  = "Bor"

Atom(6).Bezeichnung  = "Kohlenstoff"

Atom(7).Bezeichnung  = "Stickstoff"

Atom(8).Bezeichnung  = "Sauerstoff"

Atom(9).Bezeichnung  = "Fluor"

Atom(10).Bezeichnung = "Neon"

Atom(11).Bezeichnung = "Natrium"

Atom(12).Bezeichnung = "Magnesium"

Atom(13).Bezeichnung = "Aluminium"

Atom(14).Bezeichnung = "Silicium"

Atom(15).Bezeichnung = "Phosphor"

Atom(16).Bezeichnung = "Schwefel"

Atom(17).Bezeichnung = "Chlor"

Atom(18).Bezeichnung = "Argon"

Atom(19).Bezeichnung = "Kalium"

Atom(20).Bezeichnung = "Calcium"

Atom(21).Bezeichnung = "Scandium"

Atom(22).Bezeichnung = "Titan"

Atom(23).Bezeichnung = "Vanadium"

Atom(24).Bezeichnung = "Chrom"

Atom(25).Bezeichnung = "Mangan"



Atom(1).bisOktettzustand = 1

Atom(2).bisOktettzustand = 0

Atom(3).bisOktettzustand = 1

Atom(4).bisOktettzustand = 0

Atom(5).bisOktettzustand = 7

Atom(6).bisOktettzustand = 6

Atom(7).bisOktettzustand = 5

Atom(8).bisOktettzustand = 4

Atom(9).bisOktettzustand = 3

Atom(10).bisOktettzustand = 0

Atom(11).bisOktettzustand = 1

Atom(12).bisOktettzustand = 0

Atom(13).bisOktettzustand = 7

Atom(14).bisOktettzustand = 6

Atom(15).bisOktettzustand = 5

Atom(16).bisOktettzustand = 4

Atom(17).bisOktettzustand = 3

Atom(18).bisOktettzustand = 0

Atom(19).bisOktettzustand = 1

Atom(20).bisOktettzustand = 0

Atom(21).bisOktettzustand = 7

Atom(22).bisOktettzustand = 6

Atom(23).bisOktettzustand = 5

Atom(24).bisOktettzustand = 4

Atom(25).bisOktettzustand = 3



DIM AS INTEGER x, Element1, Element2, Oktettzustand, Runde



FOR x = 1 TO 25

    Atom(x).Massezahl = x

NEXT



DO

    CLS



    FOR x = 1 TO 25

        PRINT "Element: ", Atom(x).Bezeichnung, " Ordnungszahl:   "& Atom(x).Massezahl

    NEXT



    PRINT

    PRINT "Welche chemische Formel moechten Sie berechnen?"

    PRINT

    INPUT "Geben Sie das erste Element ein. Ordnungszahl: ", Element1

    PRINT

    INPUT "Geben Sie das zweite Element ein. Ordnungszahl: ", Element2



    Oktettzustand = Atom(Element1).bisOktettzustand - Atom(Element2).bisOktettzustand

    SELECT CASE Oktettzustand

    CASE 0



        PRINT Atom(Element1).Bezeichnung & " + " & Atom(Element2).Bezeichnung & " ----> " & Atom(Element1).Bezeichnung & Atom(Element2).Bezeichnung



    CASE ELSE



        IF Atom(Element1).bisOktettzustand > Atom(Element2).bisOktettzustand THEN



        DO

            Runde = Runde + 1

            Oktettzustand = Atom(Element1).bisOktettzustand - Atom(Element2).bisOktettzustand

        LOOP UNTIL Oktettzustand = 0

        PRINT Atom(Element1).Bezeichnung & " + " & Atom(Element2).Bezeichnung & " ----> " & Atom(Element1).Bezeichnung & Runde & Atom(Element2).Bezeichnung



        ELSE



        DO

            Runde = Runde + 1

            Oktettzustand = Atom(Element2).bisOktettzustand - Atom(Element1).bisOktettzustand

        LOOP UNTIL Oktettzustand = 0

        PRINT Atom(Element1).Bezeichnung & " + " & Atom(Element2).Bezeichnung & " ----> " & Atom(Element1).Bezeichnung & Runde & Atom(Element2).Bezeichnung



        END IF

    END SELECT

LOOP UNTIL INKEY$ = CHR(27)