Týmová tvorba programu

Program řešící výpočet kořenů kvadratické rovnice.
Postup tvorby:
team leader vysvětlí problém, uvede dohodu o použitých proměnných
tým č. 1 píše proceduru na vkládání dat
tým č. 2 píše proceduru na výpočet diskriminantu
tým č. 3 píše proceduru na výpočet kořenů
tým č. 4 píše proceduru na zobrazení výsledků
tým č. 5 píše hlavičku programu včetně deklarace proměnných
tým č. 6 píše vlastní program
tým č. 7 ladí program, odstraňuje chyby

Kudy dál?

• algoritmy 
• třídění (sort)
• výpočty: 
• vyznamenání / prospěl / neprospěl
• kvadratická rovnice

Grafika: final cut

Program elegantně řešící grafiku

• Menu
• Procedury
• Snadná modifikovatelnost

Hustě zapsaný program s menu a grafikou

Vo co de?
Úkol:

1. Nejdřív namaluješ menu
2. Pak se zeptáš, co BFUchce, aby se namalovalo
3. Pak se to namaluje
4. Pak se to zeptá jestli ještě jednou, pokud jo, tak menu...

Upozornění:

• návrhy některých procedur jsou psány záměrně chybně, copy and paste tu stačit nebude
• procedury je nutno seřadit tak, aby procedura volající proceduru, byla umístěna zásadně níže než procedura, která je volaná (v ukázce tomu tak není)

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. 

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

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.