pg-2 proměnné, vstup, výstup
rem jazyk pri behu programu neumoznuje vstup dat z klavesnice do promennych
rem komentar v ramci zdrojoveho kodu musi byt povinne na samostatnem radku
rem znak "@" vypne zobrazeni prikazu na prislusnem radku
rem prikaz "echo off" vypne zobrazeni prikazu v celem skriptu (a v podrizenych)
rem prikaz "echo." zajisti zobrazeni mezeroveho radku
Modřice 27. prosince 2015 - Vlastimil Čevela
prog-2 proměnné, vstup, výstup
*> naplneni promennych v pameti
*> vytvoreni a vystup slozeneho radku
program-id. prog.
data division. *> povinny popis datovych polozek, struktur a souboru
*> popisy definuji delky a typ promennych (zobrazeni "pic")
working-storage section.
77 TX pic x(20).
77 CS pic 9(5).
procedure division.
*> vyzvani a vstup dat do promennych
display "text:"
accept TX
display "cislo:"
accept CS
*> sestaveni a vypis vystupni zpravy
display "ulozeno: tx = " TX ", cs = " CS.
stop run.
standardní vstup/výstup:
text:
dobry den
cislo:
123
ulozeno: tx = dobry den , cs = 00123
komentář k příkazům "display" a "accept"
- jazyk COBOL má pro standardní i/o komunikaci pouze velice jednoduché příkazy "display" a "accept",
které běžně vždy současně provedou přechod na nový řádek - překročení rozsahu vstupu "accept" není běžně signalizováno, přebývající znaky se prostě ignorují
- pokud data, zadávaná do číselné datové položky (pic 9...) obsahují textový znak nebo mezeru,
proměnná je automaticky inicializována nulou - sestavení výstupní zprávy z obsahu proměnných a literálů příkazem "display" pracuje s explicitně definovanými délkami, tj. bez ohledu na skutečný datový obsah - standardní nástroj pro jeho respektování COBOL nemá
- o možných způsobech řešení výše uvedených situací bude pojednáno později
Modřice 27. prosince 2015 - Vlastimil Čevela
pg-2 proměnné, vstup, výstup
<script>
// vyzvani a vstup dat do promennych "tx" a "cs" *)
tx = prompt("text:", "");
cs = prompt("cislo:", "");
// prevod retezce na cislo
// soucasne kontrola, zda bylo skutecne zadano cislo
// pokud ne, do promenne "cs" se ulozi hodnota "NaN"
// podobne jako "parseInt()" funguje tez "eval()"
cs = parseInt(cs);
// vypis radku s vystupni zpravou
document.write("ulozeno: text = ", tx, ", cislo = ", cs);
</script>
nové okénko na HTML stránce:
[ text: ]
dobry den (odpověď, zapsana do formuláře) *)
nové okénko na HTML stránce:
[ cislo: ]
123 (odpověď, zapsana do formuláře)
text v rámci HTML stránky: *)
ulozeno: text = dobry den, cislo = 123
*) poznámka
při práci s HTML stránkami v češtině, lze v programu i v odpovědi používat diakritiku
Modřice 10. ledna 2016 - Vlastimil Čevela
pg-2 proměnné, vstup, výstup
# naplneni promennych v pameti
# vytvoreni a vystup slozeneho radku
# vyzvani a vstup dat do promennych "tx" a "cs"
tx=input("text: ")
cs=input("cislo: ")
# prevod zadaneho cisla z typu "str" do typu "int"
# soucasne kontrola, zda bylo skutecne zadano cislo,
# pokud ne, pg-2 ohlasi "invalid literal for int()"
cs=int(cs[0:])
# upravy cisla pro vystup (povinne typ "str")
cs=str(cs)
# sestaveni radku ve formatu "seznam"
radek=["ulozeno: text = ", tx, ", cislo = ", cs]
# vystup radku spojenim prvku seznamu bez oddelovaců ("")
print("".join(radek))
standardní vstup/výstup
text: dobry den
cislo: 123
ulozeno: text = dobry den, cislo = 123
Modřice 9. ledna 2016 - Vlastimil Čevela