- удалить символ в любом месте строки
- вставить символ в любом месте строки
Также добавление/удаление строки в массиве строк.
Эти действия нужно выполнять с помощью управляющих клавиш- влево, вправо, вниз, вверх, Del, Ins, Backspace
program Text_Editor;.
uses Crt;
Const N_Max=256;
Var
str:array[0..N_Max] of string[80];
ch:char;
f,f1:text;
S,S1,S2:string;
Procedure Edit_Text;
Var l,m:byte;q:integer;
Begin
clrscr;
Write('Vxod '); Readln(S1);
Write('Vihod '); Readln(S2);
Assign(f,s1);
Assign(f1,s2);
Reset(f);
Rewrite(f1);
While not EOf(f) Do
Begin
clrscr;
l:=0;
Repeat
l:=l+1;
ReadLn(f,str[l]);
Until (l=N_Max) or EOf(f);
For m:=1 To l Do
repeat
writeln(str[m]);
Ch:=readkey;
Case Ch Of
#8:... {backspace}
#82:... {Ins}
#83:... {Del}
#72:... {up}
#75:... {left}
#77:... {right}
#80:... {down}
end;
until ch=#13;
end;
close(f);
close(f1);
End;
begin
Edit_Text
end.
Сообщение отредактировано: guf -