Дано слово. Удалить из него все повторяющиеся буквы

@stalker161reg · Регистрация: 09.11.2013

Author24 — интернет-сервис помощи студентам

Работа на тему "текстовые файлы". Должно присутствовать обращение к файлу. Задача:

Дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, то есть в слове должны остаться только различные буквы.

@Puporev · 25.12.2013, 07:23

Pascal

uses crt;
var f:text;
    s:string;
    i:byte;
begin
writeln('Введите имя файла без расширения');
read(s);
s:=s+'.txt';
if not fileexists(s) then
 begin
  write('Файл с таким именем не найден');
  exit
 end;
assign(f,s);
reset(f);
readln(f,s);
close(f);
writeln('Исходное слово:');
writeln(s);
i:=length(s);
while i>1 do
if pos(s[i],s)<i then delete(s,i,1)
else dec(i);
writeln('Удаление повторов:');
writeln(s)
end.

@Ana7777 · 20.12.2017, 18:23

Сначала программа работает стабильно,но после нескольких выполнений выдаёт ошибку -" Ошибка времени выполнения. Индекс находится вне границ массива. " В чем может быть проблема?

@stalker161reg 0 / 0 / 0 Регистрация: 09.11.2013 Сообщений: 15
		1
	Дано слово. Удалить из него все повторяющиеся буквы 25.12.2013, 00:36. Показов 3232. Ответов 2 Метки нет (Все метки) Работа на тему "текстовые файлы". Должно присутствовать обращение к файлу. Задача: Дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, то есть в слове должны остаться только различные буквы. 0

@Ana7777 0 / 0 / 0 Регистрация: 04.09.2017 Сообщений: 40
	20.12.2017, 18:23	3
	Сначала программа работает стабильно,но после нескольких выполнений выдаёт ошибку -" Ошибка времени выполнения. Индекс находится вне границ массива. " В чем может быть проблема? 0

Опции темы

Дано слово. Удалить из него все повторяющиеся буквы

Решение