String. Опции

[Santrex]

Народ.Помогите прогрмисту 1 курса.Вот проги не получаються а сдать их надо уже через 2 дня.Помогите чем можете и чем скорей тем лучше.Заранее спасибо.
А вот и условие прог: :p2:
1)Задана строка символов.Напечать повторяющийся символ.

2)Задан текс.Выполнить Сортировку по алфавиту слов,имеющих четное количесто букв.

3)Задан текст.Удалить одинаковые слова.
:p2: В этих прогах нам запрещенно использовать Функции,Процедуры и Фаелы.
Я надеюсь вы сможете помочь мне написать хотяб пару прог.

Сообщение отредактировано: Santrex - 17.12.2004 20:25

[Digitalator]

1. Я же написал решение сразу же (смотри второе по счету сообщение)..... что-то не работает?

2. Для начала тебе нужно разбить текст на слова - для этого уточни какой между словами может быть разделитель - я предполагаю что только пробел, правильно?

3. Опять же надо разбить на слова, тот же вопрос.


допустим мы разбили на слова текст и у нас есть массив
var words:arrra[1..128] of string
каждый э-т которого - одно слово из текста и число
var count:byte
определяющее к-во слов в массиве
теперь по задачам:
2. Как я понял, нужен массив отсортированых слов с четным числом букв. Для этого нам нужно из нашего массива words выбрать все слова с четным числом букв. В паскале есть функция length() определяющая число символов в строке потому мы можем делать так:

Код

ch_count:=0;
for i:=1 to count do if length(words[i]) mod 2 = 0 then
  begin
  ch_count:=bcount+1;
  ch_words[chcount]:=words[i];
  end;

здесь в ch_count будет к-во нужных слов, а в ch_words (тоже массив) будут сами слова.
После этого к массиву ch_woords нужно применить любой алгоритм сортировки и показывать преподу.....