:
30.11.17
?
11.09.17

14.08.17

26.06.17

17.06.17

09.06.17
?
17.05.17
-?
04.05.17
:
29.04.17
:
26.04.17

.2017
.......
    123
45678910
11121314151617
18192021222324
25262728293031
!!!
!!!
.
.
, .

, , , :

! () . , Word, , , ( pic), , , .., .

: 2 3 ____________ ..

: ____________ ..

2001.

. 3

. . 4

. 5

.. . 5

... .10

.. .18

.19

.

, :

C .

.

.

.

.

Turbo Pascal , ( ).

.

Timofeev Word v.1.0 . , , , , . , MS-DOS, , .

Timofeev Word v.1.0 , Tim.tpu, () .

:

Table .

Enter_Sandman Metallica - Enter Sandman. , - , ( ) .

Menu , ( ).

Keys , .

, , , 1.2, 1.3, 2.0,2.1,, n.m.

----- , , Microsoft Office9x, 2000 ( - , , , ). . , , I .


.

.

Program Redaktor;

Uses Crt,Tim; { Crt Tim}

Label b; {}

Var {}

Programname,Cmdline:string;

nn,i,x,y:integer;

f1,f1_new:text;

Name,New_name:string[12];

txt,text:string;

ch:char;

begin

i:=1;

textbackground(red);

clrscr;

textcolor(yellow);

gotoxy(22,10);

writeln(' Timofeev Word');

gotoxy(22,11);

writeln(' 1.0 (2001 )');

gotoxy(40,15);

writeln(' (2--3)');

textcolor(green);

gotoxy(40,16);

writeln(' .');

gotoxy(40,17);

writeln(' ');

gotoxy(40,18);

writeln(' ');

gotoxy(40,19);

writeln(' !!!');

delay(5000);

textcolor(yellow);

table;

gotoxy(2,21);

write(' :');

readln(name);

assign(f1,name);

rewrite(f1);

gotoxy(2,21);

write(' !!! ');

gotoxy(1,2);

repeat

write(chr(179),':>');

readln(txt);

writeln(f1,txt);

until txt='';

close(f1);

gotoxy(2,21);

writeln(' , - ...');

repeat

readkey;

keys(nn);

case nn of { }

59:menu; {F1}

60:begin {F2}

table;

gotoxy(2,21);

write(' ');

gotoxy(2,21);

write(' :');

readln(name);

assign(f1,name);

rewrite(f1);

gotoxy(2,21);

write(' !!! ');

gotoxy(1,2);

repeat

write(chr(179),':>');

readln(txt);

writeln(f1,txt);

until txt='';

close(f1);

gotoxy(2,21);

writeln(' , - ...');

end;

61:begin {F3}

gotoxy(2,21);

write(' , - ',name,'->');

readln(new_name);

reset(f1);

assign(f1_new,new_name);

append(f1_new);

while not eof(f1) do

begin

readln(f1,txt);

writeln(f1_new,txt);

end;

close(f1);

close(f1_new);

gotoxy(2,21);

writeln(' ',name,' ',new_name,'

- ...');

end;

62:begin {F4}

gotoxy(2,21);

write(' ');

gotoxy(2,21);

write(' :');

readln(new_name);

assign(f1,name);

rename(f1,new_name);

gotoxy(2,21);

writeln(' ',name,' ',new_name,'

- ... ');

end;

63:begin {F5}

erase(f1);

gotoxy(2,21);

writeln(' ',name,' , - ...');

end;

64:begin {F6}

{$I-}

repeat

gotoxy(2,21);

write(' ->');

readln(name);

assign(f1,name);

reset(f1);

if ioresult<>0 then

begin

gotoxy(2,21);

writeln(' ... ');

close(f1);

end;

until ioresult=0;

{$I+}

table;

gotoxy(1,2);

while not eof(f1) do

begin

readln(f1,txt);

writeln(chr(179),txt);

end;

close(f1);

gotoxy(2,21);

write(' , - ... ');

end;

68:goto b; {F10} { }

end;

until i<0; { i<0,

.. i=1 , }

b:end.


.

Unit Tim;

Interface

Uses Crt,Dos;

Procedure keys(var n:integer);

Procedure table;

Procedure Enter_sandman;

Procedure menu;

Implementation

Procedure keys(var n:integer);{ }

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;

end;

for u:=1 to 3 do

begin

for i:=1 to 7 do

begin

sound(e[i]);

delay(r[i]);

nosound;

end;

end;

for z:=1 to 3 do

begin

for i:=1 to 5 do

begin

sound(w[i]);

delay(q[i]);

nosound;

end;

end;

for i:=1 to 9 do

begin

sound(o[i]);

delay(b[i]);

nosound;

end;

end;

Procedure table; { }

var

w,h:integer;

c1,c2,c3,c4,c7,c5,c6,c8,c9,c10:char;

begin

textbackground(blue);

clrscr;

textcolor(yellow);

w:=1;

h:=1;

c1:=chr(218);

c2:=chr(196);

c3:=chr(191);

c4:=chr(179);

c5:=chr(192);

c6:=chr(217);

c7:=chr(195);

c8:=chr(180);

c9:=chr(193);

c10:=chr(194);

for h:=2 to 25 do

begin

gotoxy(w,h);

write(c4);

end;

gotoxy(w,h);

write(c5);

for w:=2 to 79 do

begin

gotoxy(w,h);

write(c2);

end;

gotoxy(w,h);

write(c6);

for h:=24 downto 1 do

begin

gotoxy(w,h);

write(c4);

end;

gotoxy(w,h);

write(c3);

for w:=78 downto 1 do

begin

gotoxy(w,h);

write(c2);

end;

gotoxy(w,h);

write(c1);

gotoxy(1,20);

write(c7);

for w:=2 to 59 do

begin

gotoxy(w,20);

write(c2);

end;

gotoxy(w,1);

write(c10);

for h:=2 to 24 do

begin

gotoxy(w,h);

write(chr(179));

end;

gotoxy(w,20);

write(c8);

gotoxy(59,25);

write(c9);

gotoxy(62,4);

writeln('F1-');

gotoxy(62,5);

writeln('F2-');

gotoxy(62,6);

writeln('F3-');

gotoxy(62,7);

writeln('F4-');

gotoxy(62,8);

writeln('F5-');

gotoxy(62,9);

writeln('F6-');

gotoxy(62,10);

writeln('F10-');

end;

Procedure menu;

Const

NORM=$17;{ }

SEL=$70;{ }

N=3;

var

menu:array[1..N] of string[12];{ }

punkt:integer;{ }

ch:char;{ }

x,y,i:integer;{ }

Procedure punkt1;

begin

ClrScr;

writeln(' . 2--3 .. (2001 .)');

writeln(' ------- !!!!!!!!!!!!!!!!!');

readln;

end;

Procedure punkt2;

begin

ClrScr;

writeln(' .');

readln;

end;

Procedure MenuToScr;{ }

var i:integer;

begin

ClrScr;

for i:=1 to N do begin

GoToXY(x,y+i-1);

write(menu[i]);

end;

TextAttr:=SEL;

GoToXY(x,y+punkt-1);

write(menu[punkt]);{ }

TextAttr:=NORM;

end;

begin

menu[1]:=' ';

menu[2]:=' ';

menu[3]:=' 䠠 ';

punkt:=1;

x:=5;

y:=5; TextAttr:=NORM;

MenuToScr;

repeat

ch:=ReadKey;

if ch=char(0) then begin

ch:=ReadKey;

case ch of

chr(80):{ }

if punkt

GoToXY(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt+1;

TextAttr:=SEl;

GoToXY(x,y+punkt-1);

write(menu[punkt]);

TextAttr:=NORM;

end;

chr(72):{ }

if punkt>1 then begin

GoToXY(x,y+punkt-1);

write(menu[punkt]);

punkt:=punkt-1;

TextAttr:=SEl;

GoToXY(x,y+punkt-1);

write(menu[punkt]);

TextAttr:=NORM;

end;

end;

end

else

if ch=chr(13) then begin { }

case punkt of

1:punkt1;

2:punkt2;

3:i:=2;{ }

end;

MenuToScr;

end;

until i=2;

end;

end.

.

4 .

Crt: Rename, Erase, Append, Rewrite, Reset, Assign .

.

.. Turbo Pascal :

.. 3- . . .: , 2001.

. :

. . .: , 1989.

. : .

. . .: , 1987.


! () . , Word, , , ( pic), , , ..,
: 20.08.10 | [ + ]   [ - ]  
: 96
: 0
20.08.10
20.08.10
20.08.10
20.08.10
20.08.10
{dnmbottom}
70 000 , , , .