Реферат: Создание текстового редактора

var c:char;

begin

if keypressed then

begin

c:=readkey;

if c=#0 then c:=readkey;

n:=ord(c);

end;

end;

Procedure Enter_sandman; {музыка}

Const

m:array [1..6] of integer=(165,330,392,233,220,330);

t:array [1..6] of integer=(1100,600,600,600,1100,600);

e:array [1..7] of integer=(165,165,165,165,165,165,170);

r:array [1..7] of integer=(600,600,600,600,600,600,1100);

w:array [1..5] of integer=(167,167,167,294,233);

q:array [1..5] of integer=(1100,600,600,600,1100);

o:array [1..9] of integer=(165,182,165,182,165,196,165,182,165);

b:array [1..9] of integer=(600,1100,600,600,600,600,600,600,3000);

var a,u,z,x:integer; i:byte;

begin

for a:=1 to 4 do

begin

for i:=1 to 6 do

begin

sound(m[i]);

delay(t[i]);

nosound;

end;