Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
{¨¬®ä¥¥¢ ¨¬ãà (2--3)}
program Redaktor;
uses crt,tim;
label b; {¬¥âª }
var {⥫®}
programname,cmdline:string;
nn,i,x,y:integer;
f,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.