fb:porticula NoPaste

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

Uploader:	freebay
Datum/Zeit:	13.09.2010 13:50:15
SCREEN 18

COLOR 1, 15



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 = 7

Atom(4).bisOktettzustand = 6

Atom(5).bisOktettzustand = 5

Atom(6).bisOktettzustand = 4

Atom(7).bisOktettzustand = 3

Atom(8).bisOktettzustand = 2

Atom(9).bisOktettzustand = 1

Atom(10).bisOktettzustand = 0

Atom(11).bisOktettzustand = 7

Atom(12).bisOktettzustand = 6

Atom(13).bisOktettzustand = 5

Atom(14).bisOktettzustand = 4

Atom(15).bisOktettzustand = 3

Atom(16).bisOktettzustand = 2

Atom(17).bisOktettzustand = 1

Atom(18).bisOktettzustand = 0

Atom(19).bisOktettzustand = 7

Atom(20).bisOktettzustand = 6

Atom(21).bisOktettzustand = 5

Atom(22).bisOktettzustand = 4

Atom(23).bisOktettzustand = 3

Atom(24).bisOktettzustand = 2

Atom(25).bisOktettzustand = 1



DIM AS INTEGER x, Element1, Element2, anzahlElement1, anzahlElement2, Oktettzustand



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?"

    SLEEP

    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



    IF Oktettzustand = 0 THEN

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



    ELSE

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

        anzahlElement1 = Oktettzustand / Atom(Element1).bisOktettzustand

        anzahlElement2 = Oktettzustand / Atom(Element2).bisOktettzustand

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



    ENDIF

    SLEEP

LOOP