String. Опции

[Santrex]

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

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

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

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

[volvo]

Santrex
По образу и подобию моей первой программы написана вторая (для удаления одинаковых слов):

Код

var
 s, T: string;
 words: array[1 .. 50] of string;
 count, i, j: integer;
 was: boolean;
begin
 write('s = '); readln(s);
 count := 1;

 for i := 1 to length(s) do
   if (s[i] = ' ') or (s[i] = '.') then
     begin
       was := false;
       if length(words[count]) <> 0 then
         for j := 1 to count - 1 do
           was := was or (words[j] = words[count]);

       if (not was) and (length(words[count]) <> 0) then
         inc(count)
       else
         words[count] := ''
     end
   else
     words[count] := words[count] + s[i];

 For i := 1 to count do
   write(words[i], ' ');
 writeln
end.