Long literals, with continuations: Difference between revisions
Content added Content deleted
(Long literals, with continuations en FreeBASIC) |
(Long literals, with continuations en BASIC256) |
||
Line 464: | Line 464: | ||
first & last 30 characters: hydrogen helium lithium beryll & ivermorium tennessine oganesson |
first & last 30 characters: hydrogen helium lithium beryll & ivermorium tennessine oganesson |
||
</pre> |
</pre> |
||
=={{header|BASIC256}}== |
|||
{{trans|FreeBASIC}} |
|||
<lang BASIC256> |
|||
ultimaRevision$ = "2021-11-12" |
|||
arraybase 1 |
|||
dim elemento$ = {"hydrogen", "helium", "lithium", "beryllium", "boron", "carbon", "nitrogen", "oxygen", "fluorine", "neon", "sodium", "magnesium", "aluminum", "silicon", "phosphorous", "sulfur", "chlorine", "argon", "potassium", "calcium", "scandium", "titanium", "vanadium", "chromium", "manganese", "iron", "cobalt", "nickel", "copper", "zinc", "gallium", "germanium", "arsenic", "selenium", "bromine", "krypton", "rubidium", "strontium", "yttrium", "zirconium", "niobium", "molybdenum", "technetium", "ruthenium", "rhodium", "palladium", "silver", "cadmium", "indium", "tin", "antimony", "tellurium", "iodine", "xenon", "cesium", "barium", "lanthanum", "cerium", "praseodymium", "neodymium", "promethium", "samarium", "europium", "gadolinium", "terbium", "dysprosium", "holmium", "erbium", "thulium", "ytterbium", "lutetium", "hafnium", "tantalum", "tungsten", "rhenium", "osmium", "iridium", "platinum", "gold", "mercury", "thallium", "lead", "bismuth", "polonium", "astatine", "radon", "francium", "radium", "actinium", "thorium", "protactinium", "uranium", "neptunium", "plutonium", "americium", "curium", "berkelium", "californium", "einsteinium", "fermium", "mendelevium", "nobelium", "lawrencium", "rutherfordium", "dubnium", "seaborgium", "bohrium", "hassium", "meitnerium", "darmstadtium", "roentgenium", "copernicium", "nihonium", "flerovium", "moscovium", "livermorium", "tennessine", "oganesson"} |
|||
print "Last updated : "; ultimaRevision$ |
|||
print "Number of elements : "; elemento$[?] |
|||
print "Last element : "; elemento$[elemento$[?]] |
|||
end |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
Igual que la entrada de FreeBASIC. |
|||
</pre> |
|||
=={{header|Crystal}}== |
=={{header|Crystal}}== |
||
Crystal's <code>%w</code> literals create a whitespace-delimited array of strings at compile time |
Crystal's <code>%w</code> literals create a whitespace-delimited array of strings at compile time |