It looks like you are using an ad blocker. That's okay. Who doesn't? But without advertising revenue, we can't keep making this site awesome. Click the link below for instructions on disabling adblock.
I am writing a program to tell me shape and bond angle of a molecule
when the bonding and non-bonding domains are entered. This returns a
"Missing Then in the If..EndIf block" Error, yet I am not missing any
Then statements. What is going on?
Define b(c,d)= Prgm :If c=2 and d=0 Then :Disp "Linear, 180" :ElseIf c=3 and d=0 Then :Disp "Trigonal Planar 120" :ElseIf c=2 and d=1 Then :Disp "Trigonal Planar Bent/V-Shaped <120(116)" :ElseIf c=4 and d=0 Then :Disp "Tetrahedral" :ElseIf c=3 and d=1 Then :Disp "Trigonal pyramidal 107" :ElseIf c=2 and d=2 Then :Disp "Tetrahedral Bent 104.5" :ElseIf c=5 and d=0 Then :Disp "Trigonal Bipyramidal 120, 90" :ElseIf c=4 and d=1 Then :Disp "Seesaw <120, 90" :ElseIf c=3 and d=2 Then :Disp "T-Shaped 90" :ElseIf c=2 and d=3 Then :Disp "Linear 180" :ElseIf c=6 d=0 Then :Disp "Octahedral 90" :ElseIf c=5 and d=1 Then :Disp "Square Pyramidal 82, 90" :ElseIf c=4 and d=2 Then :Disp "Square Planar 90" :EndIf :EndPrgm
