pondělí 15. února 2010

Opravdová grafika

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í 8. února 2010

Práce se soubory III

Nejjednodušší ukázka práce se soubory!
Postup:

  1. Uložte si tenhle soubor (text viz níže) na svůj disk.
  2. 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).
  3. Spusťte pascalský program z této ukázky.
  4. Tento program 
    1. otevře textový soubor "muj.txt"
    2. načte soubor "muj.txt"
    3. vypíše tento soubor na obrazovku
    4. po stisknutí klávesy skončí
    5. 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.

Soubory II

Zde najdete dvojici programů. 
První vytvoří soubor, druhý ho čte.

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

Typy čísel a operace s nimi

 

Zvuk v Pascalu (pozor zvlášť ohavné)

Následující program vyluzuje kvílivé zvuky.
Nic moc na poslech.
Čím je užitečný?
  1. Dokumentuje využití procedury volané hodnotami.
  2. Uvádí na scénu typ proměnné WORD.