Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Новички в программировании > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail



Ответ
 
Опции темы
Старый 16.04.2016, 17:06   #1
Gohych
 
Регистрация: 16.04.2016
Сообщений: 7
Репутация: 10
Вопрос Нужно найти буквы(т.е вывести на экран) которые встречаются в 2 или более словах.

Задано множество (текст). Нужно найти буквы(т.е вывести на экран) которые встречаются в 2 или более словах.Слова друг от друга отделяются всевозможными знаками или пробелом.Ответ записать в виде другого множества.
Никак не могу правильно написать программу , ответ выводиться в виде пустого множества.Помогите ,решить пожалуйста

Последний раз редактировалось Gohych; 16.04.2016 в 17:09.
Gohych вне форума   Ответить с цитированием
Старый 16.04.2016, 17:15   #2
eoln
Профессионал
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,559
Репутация: 2191

icq: 421277094
По умолчанию

Цитата:
Сообщение от Gohych Посмотреть сообщение
ответ выводиться в виде пустого множества.
Коды в студию, сложно без них помочь
eoln вне форума   Ответить с цитированием
Старый 16.04.2016, 17:54   #3
newerow1989
Я самый любопытный
Профессионал
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Адрес: RU, Алтайский край, Красногорский р-н, с. Балыкса, ул. Центральная Сообщений: 7,541 Репутация: 37104
Сообщений: 1,354
Репутация: 1227

skype: newerow1989
По умолчанию

Код:

type tSet=set of char;
var p:array of tSet;
    s:string;
    r,t:tSet;
    i0,i,j,n:integer;
    c:char;
begin
   Write('s = '); Readln(s);
   s:=s+' ';
   n:=0;
   i0:=1;
   For i:=1 to Length(s) do
      If s[i] in [' ','.',',',':',';','!','?','-'] then
      begin
         n:=n+1;
         SetLength(p,n);
         For j:=i0 to i-1 do
            p[n-1]:=p[n-1]+[s[j]];
         i0:=i+1;
      end;
   For i:=0 to n-2 do
   begin
      For j:=i+1 to n-1 do
         t:=p[i]*p[j];
      r:=r+t;
   end;
   For c:='A' to 'z' do
      If c in r then
         Write(c:2);
   Writeln;
   Readln;
end.


Примечание: работает с английскими текстами!
__________________
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]
newerow1989 вне форума   Ответить с цитированием
Старый 28.12.2016, 12:02   #4
Gohych
 
Регистрация: 16.04.2016
Сообщений: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от newerow1989 Посмотреть сообщение
Код:

type tSet=set of char;
var p:array of tSet;
    s:string;
    r,t:tSet;
    i0,i,j,n:integer;
    c:char;
begin
   Write('s = '); Readln(s);
   s:=s+' ';
   n:=0;
   i0:=1;
   For i:=1 to Length(s) do
      If s[i] in [' ','.',',',':',';','!','?','-'] then
      begin
         n:=n+1;
         SetLength(p,n);
         For j:=i0 to i-1 do
            p[n-1]:=p[n-1]+[s[j]];
         i0:=i+1;
      end;
   For i:=0 to n-2 do
   begin
      For j:=i+1 to n-1 do
         t:=p[i]*p[j];
      r:=r+t;
   end;
   For c:='A' to 'z' do
      If c in r then
         Write(c:2);
   Writeln;
   Readln;
end.


Примечание: работает с английскими текстами!
спасибо большое за помощь)
Gohych вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана строка, вывести на экран знаки препинания, которые встречаются хотя бы 2 раза (Паскаль) GamBitFRK Помощь студентам 0 22.12.2011 17:22
Ввести из клавиатуры слово и распечатать символы, которые встречаются более одного раза. eragon_ua Паскаль 0 18.04.2011 18:26
из строки вывести на экран те символы, которые встречаются только по 1 разу Andrey770 Паскаль 4 29.03.2011 19:08
Целочисленный массив. Элементы, которые встречаются более одного раза! Алина18 Помощь студентам 2 21.10.2010 08:10
Си. Вычеркнуть из слова X те буквы, которые встречаются в слове Z. hen Помощь студентам 1 29.04.2009 15:32




04:57.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru