Задать вопрос
11 января, 07:59

Дан текст из строчных латинских букв, за которыми следует точка. Включить в множество первые вхождения букв в текст, сохраняя их исходный взаимный порядок. Pascal. Решить с использованием процедур

+4
Ответы (1)
  1. 11 января, 10:36
    0
    Странноватая задача, конечно. Естественно, что в множестве нет порядка элементов, использование процедур (функций) здесь совершенно ни к чему. Если учитывать все требования, то получится весьма корявая программа. Примерно вот такая:

    var s, s1:string; i:integer;

    mn:set of 'a' ... 'z';

    function f (c:char; m:set of 'a' ... 'z') : boolean;

    begin

    f: = (not (c in m)) and (c in ['a' ... 'z'])

    end;

    begin

    writeln ('Введите строку:') ; readln (s) ;

    mn:=[]; s1:='';

    for i:=1 to length (s) do

    if f (s[i], mn) then

    begin

    mn:=mn+[s[i]]; s1:=s1+s[i];

    end;

    writeln (s1) ;

    end.

    Пример работы:

    Введите строку:

    this is an example text.

    thisanexmpl
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан текст из строчных латинских букв, за которыми следует точка. Включить в множество первые вхождения букв в текст, сохраняя их исходный ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы