Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 17.07.2019
Сообщений: 1
1

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

18.10.2019, 21:07. Просмотров 226. Ответов 1
Метки нет (Все метки)

Помогите разобраться в программе,распишите что она делает подробно пожалуйста!!!!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' ' then k:=k+1
 else b[k]:=b[k]+a[i];
for i:=1 to k do
begin
f:=0;
for j:=1 to i do
if (i<>j)and (b[i]=b[j]) then f:=1;
if f=0 then write ( b[i],' ');
end;
readln;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.10.2019, 21:07
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
61721 / 46201 / 31872
Регистрация: 18.05.2008
Сообщений: 111,467
19.10.2019, 08:25 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a:string;
b:array[1..100]of string;
i,k,f,j:integer;
begin
readln(a);//читаем строку из слов разделенных пробелами
a:=' '+a; //добавляем пробел в начало строки
for i:=1 to length(a) do//идем по строке
if a[i]=' ' then k:=k+1 //если пробел, новое слово
else b[k]:=b[k]+a[i];//иначе составляем его и пишем в массив b
for i:=1 to k do //все слова массива
 begin
  f:=0; //пусть его больше нет
  for j:=1 to i do //поверяем от 1 до этого слова
  if (i<>j)and (b[i]=b[j]) then f:=1;//если индексы разные а слово одно, меняем флаг
  if f=0 then write ( b[i],' '); //если флаг не меняли, выводим слово
 end;
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.10.2019, 08:25

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

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

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

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

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


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

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

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