Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Двумерный массив. http://www.cyberforum.ru/turbo-pascal/thread216631.html
Помогите пожалуйста решить вот эту задачку. Дан массив Z(10,5). Подсчитать количество положительных элементов в каждой нечетной строке массива. Вывести номер строки, в которой это количество...
Turbo Pascal Дополнительный обратный program rgrka; uses crt,graph; var operat,option:char; rez,ch1,ch2:real; l:integer; label rgr1; procedure zastavka; var http://www.cyberforum.ru/turbo-pascal/thread216623.html
Turbo Pascal Решить уравнение через цикл
помогите пожалуйста написать программу которая решает такую задачу вводим диапозон от1 до n такое уравнение y=cos(1+cos(2+cos( ...+cos(n)))))
Turbo Pascal массив, полученный из другого путем сортировки элементов, нужно дополнить!
Уважаемые форумчане, прошу помощи! Было задание: создать массив; получить новый массив, в котором одни элементы будут меньше заданного числа p, затем числа от p до q, затем больше q. Сделал...
Turbo Pascal Вложенные циклы http://www.cyberforum.ru/turbo-pascal/thread216600.html
Напечатать числа следующим образом 3 0 23 90 223 890 2223 7890 22223
Turbo Pascal Заставка в паскале Народ кто нибудь подкиньте программку заставки с любым текстом плиззз... мне для РГРки нужно.... подробнее
dampir_sanek
151 / 149 / 44
Регистрация: 09.02.2010
Сообщений: 407
21.12.2010, 18:07 0

Строки. Удаление повторяющихся слов

21.12.2010, 18:07. Просмотров 4760. Ответов 4
Метки (Все метки)

Ответ

попробуй так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var result :M_st; 
 
...........
 
j := 0; // счетчик
  for i := 1 to 8 do
    begin
      if (s[j] = s[i] && i<>j) then  s[i] := ''; //проверка на совпадения
      inc(j);
    end;
        
for i := 1 to 8 do
    if s[i] <> '' then result[i] := s[i]; // в массив result выводим результирующий массив


Вернуться к обсуждению:
Строки. Удаление повторяющихся слов
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.12.2010, 18:07

Удаление повторяющихся символов
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими)....

Удаление повторяющихся строк в файле
Aлгоритм удаления повторяющихся строк из файла подскажите, ато недогоняю. Как...

Удаление из массива повторяющихся элементов
Как в массиве убрать одно из повторяющихся чисел??? тоесть дан массив...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru