Následující program využívá jednotku GRAPH. To jsou příkazy, které nebyly součástí původního Pascalu. Byly dopsány z pohodlnosti, protože ne každému se chce malovat čáru tak, že naprogramuje cyklus pokládající do řady za sebe bod po bodu. Jednodušší jistě je napsat něco jako LINE (souradnice zacatku, souradnice konce).
Tato ukázka namaluje 5 soustředných kružnic.
pondělí 15. února 2010
pondělí 8. února 2010
Práce se soubory III
Nejjednodušší ukázka práce se soubory!
Postup:
Úkol:
Upravte tento program tak, aby vstupem byl textový soubor a výstupem byla melodie hraná pomocí SOUND.
Vstup bude tvořen dvojicemi číslic frekvence, délka tónu.
Postup:
- Uložte si tenhle soubor (text viz níže) na svůj disk.
- Do stejné složky k němu vytvořte textový soubor s názvem "muj.txt". Obsah tohoto textového souboru může být libovolný. Měl by však obsahovat několik řádků (zhruba 200 znaků či více).
- Spusťte pascalský program z této ukázky.
- Tento program
- otevře textový soubor "muj.txt"
- načte soubor "muj.txt"
- vypíše tento soubor na obrazovku
- po stisknutí klávesy skončí
- zavře soubor "muj.txt"
Úkol:
Upravte tento program tak, aby vstupem byl textový soubor a výstupem byla melodie hraná pomocí SOUND.
Vstup bude tvořen dvojicemi číslic frekvence, délka tónu.
Práce se soubory I
Funkce | Význam |
assign(f: file, jmeno) | Přiřadí proměnné typu file jméno souboru |
reset(f: file) | Otevře soubor |
rewrite(f: file) | Vytvoří nový soubor (nebo přepíše starý se stejným jménem) |
append(f: text) | Otevře textový soubor a nastaví pozici na konec souboru |
close(f: file) | Ukončí práci se souborem |
Filesize(f: file) | Vrátí počet dat stejného typu jako soubor |
seek(f: file, pozice) | Přejde na pozici v souboru |
filepos(f: file) | Vrátí pozici v souboru |
rename(f: file, jmeno) | Přejmenuje soubor na zadané jméno |
erase(f: file) | Smaže soubor |
eof(f: text): boolean | Logická hodnota - je pozice na konci souboru? |
eoln(f: text): boolean | Logická hodnota - je pozice na konci řádku? |
readln(f: text, prom) | Načte řádek do textové proměnné |
read(f: file, prom) | Načte hodnotu do proměnné stejného typu jako soubor |
writeln(f: text, text) | Zapíše text do textového souboru |
write(f: file, prom) | Zapíše hodnotu stejného typu jako soubor |
pondělí 1. února 2010
Zvuk v Pascalu (pozor zvlášť ohavné)
Následující program vyluzuje kvílivé zvuky.
Nic moc na poslech.
Čím je užitečný?
Nic moc na poslech.
Čím je užitečný?
- Dokumentuje využití procedury volané hodnotami.
- Uvádí na scénu typ proměnné WORD.
Přihlásit se k odběru:
Příspěvky (Atom)