Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
3 / 3 / 0
Регистрация: 27.11.2011
Сообщений: 34
1

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

05.12.2011, 18:29. Просмотров 1689. Ответов 2
Метки нет (Все метки)

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2011, 18:29
Ответы с готовыми решениями:

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

Напечатать все слова, которые встречаются в последовательности по одному разу
Здравствуйте. У меня такая проблема...вот задача: «Задана фраза-последовательность, содержащая от...

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

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

2
Почетный модератор
7951 / 3922 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.12.2011, 18:34 2
Лучший ответ Сообщение было отмечено Оксана(ИТ-11) как решение

Решение

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
3 / 3 / 0
Регистрация: 27.11.2011
Сообщений: 34
05.12.2011, 18:43  [ТС] 3
спасибо)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.12.2011, 18:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Дана последовательность слов. Напечатать все слова последовательности, которые встречаются в ней по одному разу.
1.8. 2.Составить программу печати в возрастающем порядке всех цифр, входящих в десятичную запись...

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

Напечатать все слова , которые встречаются в последовательности по одному разу.
Дана последовательность слов. Количество слов не отграничено. Слова разделены запятой, за последним...

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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