Другие языки программирования и технологии
Помогите с Паскалем!! задача
дана строка символов. разделителями слов могут быть проблем или запятые. продублировать через один пробел слова, которые содержат только неповторяющиеся символы.
Слова могут состоять только из латинских строчных символов:
var
a: array ['a'..'z'] of integer;
s: string;
c: char;
k, b, n: integer;
i, o: boolean;
begin
write('string? ');
readln(s);
s := s + ' ';
write('output: ');
for k := 1 to length(s) do begin
if not i and (s[k] in ['a'..'z']) then begin
i := true;
b := k;
inc(a[s[k]]);
end
else if i and (s[k] in [' ', ',']) then begin
i := false;
o := true;
for c := 'a' to 'z' do
if a[c] > 1 then begin
o := false;
break;
end;
for c := 'a' to 'z' do a[c] := 0;
if o then begin
write(' ');
for n := b to k - 1 do write(s[n]);
end;
end
else
inc(a[s[k]]);
write(s[k]);
end;
end.
var
a: array ['a'..'z'] of integer;
s: string;
c: char;
k, b, n: integer;
i, o: boolean;
begin
write('string? ');
readln(s);
s := s + ' ';
write('output: ');
for k := 1 to length(s) do begin
if not i and (s[k] in ['a'..'z']) then begin
i := true;
b := k;
inc(a[s[k]]);
end
else if i and (s[k] in [' ', ',']) then begin
i := false;
o := true;
for c := 'a' to 'z' do
if a[c] > 1 then begin
o := false;
break;
end;
for c := 'a' to 'z' do a[c] := 0;
if o then begin
write(' ');
for n := b to k - 1 do write(s[n]);
end;
end
else
inc(a[s[k]]);
write(s[k]);
end;
end.
делишь строку на слова. просматриваешь каждое слово на повторяемость символов и выводишь их
Да без проблем сделаю, пишите.
50 рублей..
Похожие вопросы
- кто может помочь с паскаль(задачи)?
- Pascal. Помогите пожалуйста решить задачу в паскале !
- Помогите до решать задачу на паскале
- Помогите, пожалуйста с задачей :( Сижу, туплю уже какой день, вообще не соображу - чтокуда. Задача на Паскале
- Помогите,пожалуйста,решить задачу в Паскале.
- Помогите пожалуйста решить задачи по программированию. P.S: задачи по паскалю.
- Помогите пожалуйста с задачей на Паскаль.
- Помогите,пожалуйста,решить задачу на двумерные массивы,в паскале.(задача вн.)Спасибо.
- Паскаль Задача
- помогите с решение задачи на Турбо паскале