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

Разработка программ с использованием множеств

11.02.2019, 09:26. Просмотров 173. Ответов 1
Метки нет (Все метки)

Дан текст, который заканчивается точкой. Текст состоит со слов между словами - промежуток. Напечатайте слова,которые состоят с тех же букв, что и последнее слово.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.02.2019, 09:26
Ответы с готовыми решениями:

Разработка алгоритмов и программ с использованием под программ
дано действительные числа a, b. Получить u=min(a,b) v=min(ab,a+b) min(u+v2,3,14)

Разработка программ и алгоритмов с использованием очередей
Нужно создать очередь и удалить из неё 4 элемента

Разработка алгоритмов и программ с использованием очередей
Создать очередь, удалить с очереди 4 элемента

Разработка алгоритмов и программ с использованием метода вставки
Создайте массив, в котором n элементов. Упорядочить четверть по убыванию, треть по возрастанию....

1
Модератор
62251 / 46534 / 32083
Регистрация: 18.05.2008
Сообщений: 112,502
11.02.2019, 10:36 2
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
34
35
36
37
38
39
40
41
42
43
44
var s:string; {строка}
    a:array[1..200] of string;{массив слов}
    n,i,j,k:byte;
    m,mp:set of char;{множества}
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами в конце точка');//нафига она нужна???
readln(s);
s:=' '+s; {добавим пробел в начало для удобства}
n:=0;{количество слов}
i:=2;{начнем со 2 символа, 1 пробел}
while i<=length(s) do
if (s[i]<>' ')and(s[i-1]=' ') then {если не пробел, а перед ним пробел}
 begin
  inc(n); {новое слово}
  a[n]:='';{будем его составлять}
  j:=i;
  while not(s[j]in[' ','.']) do{пока не пробел или точка}
   begin
    a[n]:=a[n]+s[j];
    inc(j);
   end;
  i:=i+length(a[n]); {перешагнем через слово}
 end
else inc(i);{пропускаем пробелы}
{сравниваем множества слов с множеством последнего слова}
writeln('Слова состоящие из тех же букв что и последнее слово');
mp:=[];
for i:=1 to length(a[n]) do
include(mp,a[n][i]);
k:=0;
for i:=1 to n-1 do
 begin
  m:=[];
  for j:=1 to length(a[i]) do
  include(m,a[i][j]);
  if m=mp then
   begin
    write(a[i],' ');
    k:=1;
   end;
 end;
if k=0 then write('Таких слов нет');
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.02.2019, 10:36

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

Разработка алгоритмов и программ с использованием строчных величин
Дано: строчку s не более 40 символов Нужно: заменить все asd на del 2) удалить первую w 3)...

Разработка алгоритмов и программ с использованием методов внутренней сортировки
Составьте программу с использованием указанного метода сортировки. Необходимо сформировать...

Разработка программ с использованием объектов, принципов наследования и полиморфизма
Описать объект «Кинотеатр» с указанием его методов: название фильма, время сеанса, количество...

Разработка алгоритма и программ с использованием методов внутренней сортировки
1. Создайте массив А вещественных чисел с помощью генератора случайных чисел и выведите его на...

Разработка программ и алгоритмов с использованием сортирования методом выбора
Создайте массив, в котором n элементов. Упорядочить первую треть массива по возрастанию и последнюю...

Разработка алгоритмов и программ с использованием процедур и функций модуля crt.
Составьте программу с использованием процедур и функций модуля Crt. Дано трехзначное число....


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

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

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