Нужно составить нормальный алгоритм Маркова! Алфавит ABCD. Заменить каждый чётный элемент на C и каждый 4ый на D.
Answers & Comments
Nofullname
Program Markov; uses crt; var a:string; i,b:integer; begin Clrscr; writeln('Введите слово '); read(a); b:=length(a); for i:=1 to b do begin If i mod 4 = 0 then begin delete(a,i,1); insert('D',a,i); end else If i mod 2 =0 then begin delete(a,i,1); insert('C',a,i); end;
end;
writeln(a); readln; end.
1 votes Thanks 1
propsixman
Спасибо, но мне нужен именно алгоритм Маркова, то есть последовательная замена символов) Типа 'AABC' заменить на 'ACBD' А не код((
Nofullname
а что Вы так изменили взгляд на моё решения )
propsixman
А других нет, да и не изменил я взгяд) Просто уже закрыть тему решил) Нужен алгоритм, который будет на ленте заменять)
Answers & Comments
uses crt;
var a:string; i,b:integer;
begin
Clrscr;
writeln('Введите слово ');
read(a);
b:=length(a);
for i:=1 to b do begin
If i mod 4 = 0 then
begin
delete(a,i,1);
insert('D',a,i);
end else
If i mod 2 =0 then begin
delete(a,i,1);
insert('C',a,i);
end;
end;
writeln(a);
readln;
end.