Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Попадет ли точка в заштрихованную область https://www.cyberforum.ru/ pascalabc/ thread520977.html Помогите плиииз!9 номер	Дано действительное число x. Вычислить значение функции Pascal ABC { x^2- ∛(x,) при x≥1 f(x)= {(x^2+3)^2,при x<0 {x^3+sin(π+x) при x≤1
Pascal ABC Перечислить все пары «соседних» простых чисел, не превосходящих N, троичные представления которых получаются друг из друга записью цифр в обратном пор помогите решить https://www.cyberforum.ru/ pascalabc/ thread520668.html	Pascal ABC Cоставить программу, определяющую лежит ли точка с заданными координатами внутри заштрихованной области. https://www.cyberforum.ru/ pascalabc/ thread520665.html составить программу, определяющую лежит ли точка с заданными координатами внутри заштрихованной области. паскаль абс
Исправить ошибки в коде Pascal ABC program rita; const N=10; function SeqSearch(mas: DataArray; count:integer; x : DataItem):integer; var mas: array of integer; x,t : integer; begin writeln('Введите искомое...	Pascal ABC Алгоритм прямого поиска - проверить наличие значения в массиве Составить программу. Программа заполняет массив целыми случайными числами, и выводит на экран. С клавиатуры вводится значение, которое нужно найти в массиве. Если значение найдено, вывести индекс... https://www.cyberforum.ru/ pascalabc/ thread520586.html
Pascal ABC Числовые последовательности https://www.cyberforum.ru/ pascalabc/ thread520561.html Как определить вид числовой последовательности (убывающая, стационарная, возрастающая)? Например, дан ряд чисел -21 1 3 -44 271 -1. Какая это последовательность? Случайная? Вообще, напишите...	Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит второй максимум массива Pascal ABC 3.Дан целочисленный массив из 30 элементов. Элементы массива могут принимать произвольные целые значения. Опишите на русском языке или на одном из языков программирования алгоритм, который находит и...
Pascal ABC Прокомментировать код https://www.cyberforum.ru/ pascalabc/ thread520473.html Const N=20; Var S : Set Of Char; B : Char; i : Integer; Begin S := ; //пустое множество, вводим числа сами For i:=1 To N Do Begin	Pascal ABC Введите слово и все буквы «О» заменить в нем на «А».используя множества Необходимо написать программу, используя множества. Введите слово и все буквы «О» заменить в нем на «А». https://www.cyberforum.ru/ pascalabc/ thread520456.html
Pascal ABC Вычислить z: z = x-y, если x>y, и z = y-x+1 в противном случае Даны действительные числа x, y. Вычислить z: z = x-y, если x>y, и z = y-x+1 в противном случае. Условный оператор	Pascal ABC Если слово присутствует в строке, то удалить его Дана строка из нескольких слов, вводимая с клавиатуры и слово, также введенное с клавиатуры. Если слово присутствует в строке, то удалить его из состава строки, иначе вывести сообщение, что искомого... https://www.cyberforum.ru/ pascalabc/ thread520386.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

17.03.2012, 23:49

Напечатать те слова, которые встречаются в тексте один раз - Pascal ABC - Ответ 2806638

17.03.2012, 23:49. Показов 1619. Ответов 1

Метки (Все метки)

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
var a: array [1..255] of string;
    i,j,k,l: byte;
    s,sl: string;
begin
write('s='); readln(s);
s:=s+' '; sl:=''; j:=0;
for i:=1 to length(s) do
    if not (s[i] in [' ','.',',',':',';','-','!','?'])
       then sl:=sl+s[i] else
            if length(sl)>0 then
               begin
               inc(j);
               a[j]:=sl;
               sl:='';
               end;
    for i:=1 to j do
        begin
        k:=0;
        for l:=1 to j do
            if a[i]=a[l] then inc(k);
        if k=1 then write(a[i],' ');
        end;
readln;
end.

Вернуться к обсуждению:
Напечатать те слова, которые встречаются в тексте один раз Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

17.03.2012, 23:49

Готовые ответы и решения:

Выбрать и напечатать только те символы что встречаются в тексте один раз
Из заданного текста предложения выбрать и напечатать только те символы что встречаются в нем только...

Напечатать слова, которые встречаются в предложениях только 1 раз
Ребята! Такая задача - Даны 2 предложения.Напечатать слова, которые встречаются в предложениях...

Напечатать в алфавитном порядке буквы, которые встречаются хотя бы один раз в нечетных словах
Слова в тексте разделены пробелами. Напечатать в алфавитном порядке буквы, которые встречаются хотя...

Вывести слова, которые встречаются в последовательности только один раз
Вообщем задача такая. В строке состоящей из символов слова вместо пробела разделены запятой,...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

17.03.2012, 23:49

Помогаю со студенческими работами здесь

Вывести слова, которые встречаются в тексте ровно один раз
может, кто знает, помогите пожалуста решить задачу: дано - текст, слова в котором разделены...

Вывести только те слова, которые встречаются в тексте ровно один раз
Дана строка, в которой содержится осмысленное текстовое сообщение. Слова сообщения разделяются...

Вывести только те слова сообщения, которые встречаются в тексте один раз
Дано осмысленное текстовое сообщение (т.е. алфавитно-цифровая информация, разделенная пробелами и...

Вывести слова предложения, которые в тексте встречаются ровно один раз
Помоги, пожалуйста, решить задачу! Пользователь вводит строку - осмысленное текстовое сообщение,...

Наверх