Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Числа Армстронга. Создать код для блок схемы. Натуральное число, состоящее из n цифр является числом Армстронга, если сумма его цифр, возвышенных до n-й степени, равна самому числу (например). Найти все числа Армстронга, состоящие из 2, 3 или 4... https://www.cyberforum.ru/ turbo-pascal/ thread2556814.html Turbo Pascal Замена слов одного текстового файла словами из другого текстового файла
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые разделены запятыми. Эти...
Turbo Pascal Отзеркалить слова в текстовом файле https://www.cyberforum.ru/ turbo-pascal/ thread2556649.html
Создать текстовый файл, содержащий слова, записанные в столбик. Добавить в этот же файл слова, развернув их наоборот (например было слово Весна, стало ансеВ).
Turbo Pascal Редактирование текстового файла Дан файл, содержащий текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новом файле... https://www.cyberforum.ru/ turbo-pascal/ thread2556646.html
Turbo Pascal Найти максимальные элементы двумерного массива
Дан двумерный массив, заполненный рандомными числами (н-р от 1 до 5). Нужно найти наибольшие элементы (к примеру, если несколько раз встречается 5) массива, вывести их и их индекс.
Turbo Pascal Преобразовать массив вещественных чисел по заданному правилу Дан массив вещественных чисел a . Превратить его по правилу: больше с ai и ai + 10 (i = 1, ..., 10) принять в качестве нового значения ai, а меньше - в качестве нового значения ai + 10. https://www.cyberforum.ru/ turbo-pascal/ thread2556496.html
Turbo Pascal Организовать базу данных для справочной службы со следующей информацией: фамилия, имя, отчество; адрес; телефон Организовать базу данных для справочной службы со следующей информацией: фамилия, имя, отчество; адрес; телефон (n-nn-nn). Выдать на экран имеющуюся информацию о абонента, имеющего указанный номер... https://www.cyberforum.ru/ turbo-pascal/ thread2556446.html Определить есть ли в данной строке одинаковые слова Turbo Pascal
Написать программу, с помощью подпрограмм, которая определяет есть ли в данной строке одинаковые слова.
Turbo Pascal Даны три числа. Выстроить их в порядке убывания https://www.cyberforum.ru/ turbo-pascal/ thread2556251.html
Написать программу. Даны три числа. Выстроить их в порядке убывания.
Turbo Pascal Расположить в порядке возрастания отрицательные элементы тех строк последний элемент которых кратен заданному числу https://www.cyberforum.ru/ turbo-pascal/ thread2556237.html
Требуется помощь Расположить в порядке возрастания отрицательные элементы тех строк последний элемент которых кратен заданному числу.
Turbo Pascal Определить, изделия какой из двух групп товаров выгоднее сшить
Определить, изделия какой из двух групп товаров выгоднее сшить из одного рулона ткани, если известны: расход ткани на каждое изделие и цена готового изделия, количество метров в рулоне.
Turbo Pascal Напечатать слова, первая буква которых входит в них ещё раз https://www.cyberforum.ru/ turbo-pascal/ thread2556125.html
Есть последовательность в которой от 1 до 30 слов, в каждом из которых от 1 до 5 латинских букв.Слова разделены запетыми, в конце точка.Напечатать те из них, первая буква которых входит в них ещё раз.
0 / 0 / 0
Регистрация: 17.09.2019
Сообщений: 124
0

Распечатать эту же последовательность слов, удалив из нее повторные вхождения слов - Turbo Pascal - Ответ 14107484

18.12.2019, 18:41. Показов 1468. Ответов 1
Метки (Все метки)

Проверка кода.
Распечатать эту же последовательность слов, но удалив из нее повторные вхождения слов;
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program fefefgdg;
var s,sl,s1,st:string;
    i:byte;
begin
    write('ведіть тект: ');
    readln(s);
    s:=s+' ';
    sl:=copy(s,1,Pos(' ',s)-1);
    delete(s,1,Pos(' ',s));
    s1:=sl[Length(sl)];
    st:=sl;s:=s+' ';
    while Pos(' ',s)>0 do
    begin
      sl:=copy(s,1,Pos(' ',s)-1);
      delete(s,1,Pos(' ',s));
      if sl<>'' then
      begin 
        s1:=s1+sl[Length(sl)];
        for i:=1 to Length(s1)-1 do
         while Pos(s1[i],sl)>0 do
          delete(sl,Pos(s1[i],sl),1); 
      end;
      if sl<>'' then st:=st+' '+sl;
    end;
    writeln('результат: ',st);
    readln;
end.


Вернуться к обсуждению:
Распечатать эту же последовательность слов, удалив из нее повторные вхождения слов Turbo Pascal
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2019, 18:41
Готовые ответы и решения:

Выведите последовательность слов, удалив из нее повторные вхождения слов
Пусть дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

Напечатать эту же последовательность слов, но удалив из нее повторное вхождение слов
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных...

Напечатать эту же последовательность слов, но удалив из нее повторные вхождения слов
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прописных...

Вывести заданную последовательность слов, но удалив из неё повторные вхождения слов
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2019, 18:41

Вывести заданную последовательность слов, удалив из неё повторные вхождения слов
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

Напечатать последовательность слов, не удалив из нее повторные вхождения слов
дана последовательность содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 прорисных...

Напечатать эту же последовательность слов, предварительно удалив из нее повторные вхождения слов
Программа. Дана последовательность, содержащая от 1 до 20 слов, в каждом из которых от 1 до 5...

Дана последовательность,содержащая от 1 до 30 слов. Вывести эту же последовательность, удалив из нее повторные вхождения
Дана последовательность,содержащая от 1 до 30 слов,в каждом из которых от 1 до 5 строчных латинских...

Изменить текст, удалив из него все повторные вхождения слов.
Изменить текст, удалив из него все повторные вхождения слов.

Отредактировать текст файла, удалив повторные вхождения слов в предложение
Дан файл, содержащий текст на русском языке. В предложениях некоторые из слов записаны подряд...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru