1. Program:
program zvuk;
uses crt;
var i:integer;
procedure C(x:integer);
begin
sound(262);
delay(x);
nosound;
end;
procedure D(x:integer);
begin
sound(294);
delay(x);
nosound;
end;
procedure E(x:integer);
begin
sound(330);
delay(x);
nosound;
end;
procedure F(x:integer);
begin
sound(349);
delay(x);
nosound;
end;
procedure G(x:integer);
begin
sound(392);
delay(x);
nosound;
end;
procedure A(x:integer);
begin
sound(440);
delay(x);
nosound;
end;
procedure H(x:integer);
begin
sound(494);
delay(x);
nosound;
end;
Begin
{clrscr;
write('Generujem zvuk v pasme pocutelnosti ludskeho sluchu.');
for i:=20 to 20000 do
begin
sound(i);
delay(1);
nosound;
end;}
clrscr;
write('Teraz zahram jednoduchu melodiu.');
C(200);
D(200);
E(400);
F(400);
F(200);
F(200);
F(200);
E(200);
D(400);
E(400);
E(200);
E(200);
E(200);
D(200);
C(400);
D(400);
D(200);
D(200);
D(200);
E(200);
D(400);
C(400);
C(200);
C(200);
readkey;
end.
CRT
V jednotke CRT sú uložené procedúry a funkcie na ovládanie klávesnice textových módov monitora. Je to teda externá knihovňa programov. Obsahuje príkazy typu : clrscr, delay, gotoxy, keypressed, nosound, readkey, sound, textbackground, textcolor...
2. Autorský zákon
Autora programu chráni autorský zákon, ktorý určuje jeho práva a povinnosti. Podľa autorského zákona je právom autora rozhodovať o tom, ako sa bude jeho dielo používať alebo šíriť. Napriek tomu, že v digitálnom tvare si program alebo hudbu skopírujeme ľahšie než napríklad vytlačenú knihu, v oboch prípadoch porušujeme zákon. Podľa zákona teda treba za používanie ich diela zaplatiť.
Keď si od známeho kopírujeme hudbu, video alebo čokoľvek iné, aby sme ju mohli doma používať, porušujeme zákon a dokonca môže ísť o trestný čin. Keď si kupujeme počítač, mali by sme sa uistiť, že software, ktorý je na ňom už nainštalovaný, nie je kradnutý. Rovnako ako nekradneme veci, nekradnime ani software.
Licencia, multilicencia
Ak si kúpime počítačový program, jeho súčasťou je aj licenčná zmluva, ktorá stanovuje podmienky, za akých ho môžeme používať. Ak tieto podmienky dodržiavame, hovoríme, že máme legálny software. Licenčná zmluva zvyčajne stanovuje, že zakúpený program nemôžeme používať súčasne na viacerých počítačoch. V prípade, že program chceme používať napríklad v počítačovej učebni alebo vo viacerých kanceláriách firmy, musíme si zakúpiť väčší počet programov alebo multilicenciu. Tá určuje počet, na koľkých počítačoch sa môže určitý program používať alebo miesto, napríklad v celej škole. Osobitná skupina sú školské alebo študentské licencie. Obyčajne sú oveľa lacnejšie, ale zakazujú používanie príslušného programu na komerčné účely, čiže s pomocou programu s takouto licenciou nemôžeme vytvoriť produkt, ktorý by sa následne predával.
Beta verzie
Skúšobné verzie. Väčšinou umožňujú úplne plnohodnotnú prácu vrátane ukladania a tlače, ale len počas istého času. Po uplynutí tejto doby sa už program nedá spustiť ani znovu nainštalovať.
Demoverzie
Sú programy, ktoré majú zablokované niektoré funkcie, často ukladanie na disk a tlač. Sú dostupné zdarma alebo sú dodávané za poplatok za CD. Môžeme si vyskúšať funkčnosť programu, jeho ovládanie atď. a máme teda možnosť rozhodnúť sa, či daný program zakúpime alebo nie.
Shareware
Môžeme ho nainštalovať, pracovať s ním a po určitej dobe sa musíme rozhodnúť, či chceme program ďalej používať. Ak áno sme povinný zaplatiť autorovi tzv. registračný poplatok. Autor nám potom zväčša pošle stručný manuál, prípadne novšiu verziu programu, ak existuje.
Freeware
Voľné produkty. Program môžeme používať a rozširovať zdarma, ale nie je dovolené šíriť ho s cieľom zisku. autorské práva prináležia autorovi, nie je dovolené bez súhlasu autora meniť programový kód produktu, alebo ho upravovať pre komerčné účely.