Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
 Аватар для Дерзкий
0 / 0 / 0
Регистрация: 24.11.2011
Сообщений: 5

Напечатать слова, которые встречаются в предложениях только 1 раз

04.12.2011, 21:42. Показов 2643. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребята!
Такая задача -

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

Задачу нужно решить использую программу КуМИР (школьный алгоритмический язык).
Не знал,куда обратиться,поэтому написал сюда. Перекиньте куда нужно,если есть такой раздел

Помогите решить,пожалуйста! Заранее благодарю!!!

Добавлено через 33 минуты
Или, если можно, решение на PascalABC, а я попробую подогнать к КуМИРу решение - они похожи,но иногда программы на Pascal интерпретированные в КуМИРЕ не работают
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
04.12.2011, 21:42
Ответы с готовыми решениями:

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

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

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

2
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.12.2011, 10:40
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ну вот, на свежую голову... извини, в PascalABC
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
28
29
30
31
32
33
uses crt;
var a: array [1..100] of string;
    b: array [1..100] of integer;
    i,j,k,l: integer;
    s,sl: string;
begin
write('s=');
readln(s);
j:=1;
sl:='';
if s[length(s)]<>'.' then s:=s+'.';
for i:=1 to length(s) do
    if (s[i]<>' ') and (s[i]<>'.')
       then sl:=sl+s[i] else
            begin
            a[j]:=sl;
            sl:='';
            inc(j);
            end;
k:=j;
for j:=1 to k do
    write(a[j],' ');
for j:=1 to k do
    b[j]:=0;
writeln;
writeln('не повторяются: ');
for j:=1 to k do
    for l:=1 to k do
        if a[j]=a[l] then
           inc(b[j]);
for j:=1 to k do
    if b[j]=1 then write(a[j],' ');
end.
1
 Аватар для Дерзкий
0 / 0 / 0
Регистрация: 24.11.2011
Сообщений: 5
11.12.2011, 16:03  [ТС]
Спасибо,большое! Как всегда помогли)!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.12.2011, 16:03
Помогаю со студенческими работами здесь

Дана последовательность слов в строке,напечатать все слова последовательности,которые встречаются 1 раз
Помогите разобраться в программе,распишите что она делает подробно пожалуйста!!!! var a:string; b:arrayof string; ...

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

Напечатать слова, которые встречаются в двух предложениях только один раз (Pascal -> C++)
Задание если понадобится: Даны два предложения. Напечатать слова, которые встречаются в двух предложениях только один раз. uses crt;...

Даны два предложения. Напечатать слова, которые встречаются в двух предложениях только один раз. В C#
Здравствуйте, помогите пожалуйста. буду очень вам признателен. нужно написать программу: Даны два предложения. Напечатать слова, которые...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru