Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Kramers
0 / 0 / 0
Регистрация: 12.11.2015
Сообщений: 13
1

Строки, записи, множества

12.11.2015, 23:50. Просмотров 830. Ответов 2
Метки нет (Все метки)

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

Прошу помощи
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.11.2015, 23:50
Ответы с готовыми решениями:

Строки, множества и записи
Список группы бегунов на короткие дистанции: Ф.*И.*О., год рождения, пол, место жительства, вес,...

Строки, множества и записи
Type student=Record Fio:string; god:string; mesto:string; exz:array of...

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

Строки, записи, множества
Напечатайте все целые числа в диапазоне от 1 до 1600, которые представимы в виде x^2+y^2, но...

Строки, записи, множества
В городе N имеется 100 кондитерских магазинов. Известно, что в каждом из этих магазинов не более 20...

2
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
13.11.2015, 09:16 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
var s,sl:string;
    i:integer;
    mps,msl:set of char;
    f:boolean;
begin
 write('BBequTe cTpoky:');readln(s);
 i:=length(s)-1;
 mps:=[];
 while s[i]<>' ' do begin include(mps,s[i]); dec(i); end;
 i:=1;
 while i<=length(s) do
  if (s[i]=' ')and(s[i+1]=' ') then delete(s,i+1,1)
                               else inc(i);
 f:=false;
 while pos(' ',s)<>0 do
  begin
   msl:=[];
   sl:=copy(s,1,pos(' ',s)-1);
   for i:=1 to length(sl) do include(msl,sl[i]);
   if mps=msl then begin writeln(copy(s,1,pos(' ',s)-1)); f:=true end;
   delete(s,1,pos(' ',s));
  end;
 if not f then writeln('---')
end.
1
Kramers
0 / 0 / 0
Регистрация: 12.11.2015
Сообщений: 13
13.11.2015, 18:20  [ТС] 3
Спасибо,хорошая работа и все просто оказывается
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.11.2015, 18:20

ЗАПИСИ, МНОЖЕСТВА, ПЕРЕЧИСЛИМЫЙ ТИП, СТРОКИ
Прошу помощи.. 1. Багаж пассажира характеризуется кол-вом вещей и общим весом вещей. Пусть дан...

Записи и множества
При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко...

записи и множества
При поступлении в университет лица, получившие оценку «неудовлетворительно» на первом экзамене, ко...


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

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

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