[Aliar]

Народ помогите PLEASE написать проги по 2 задачам!!!!
Проги над написать в паскале

1.Даны 2 вектора состоящие из N компонентов {Xn} {Yn} вычислить скалярное произаедение по формуле X1Yz+X2Y2...XnYn

2.Дано множество X1, содержащее символы из диапазона [А...Я]. Сформировать новое множество во Y1 выделения из множества X1 всех символов, расположенных раньше К или позже Р. На экран вывести множество Значение элементов исходного множества ввести с клавиатуры.

В заранее огромное спасибо!!!

[N3xt]

гуру, ну хде вы

[Aristarh Dark]

А что, сами думать уже разучились???
Для второго задания (первое если честно не понял о чем):
На форме Memo1 и Memo2 (в первый Мемо вводится исходный набор символов, вывод результирующего - во второй Мемо), на форму кидаем кнопку и в ее обработчик OnClick пишем следующее:

Код:

var
  i:integer;
  before,after:string;
  currentPos:integer;
begin
  //Удаляем все не относящиеся к теме символы
  before:=Memo1.Lines.Text;
  for i:=1 to Length(before) do
    if not(before[i] in ['А'..'Я']) then
      before[i]:=',';
  before:=StringReplace(before,',','',[rfReplaceAll]);
  after:='';
  {Обработка, в результат не будут выводится токены
    завершающий "К" и
    начальный "Р"!!!!}
  //Ищем все "строки ДО К" (в общем случае их больше одной)
  currentPOS:=1;
  repeat
    currentPOS:=PosEx('К',before,currentPos);
    after:=after+LeftStr(before,currentPos-1);
  until currentPos<>0;
  //ищем все "подстроки ПОСЛЕ Р" та же фигня что и для предыдущего
  currentPOS:=1;
  repeat
    currentPOS:=PosEx('Р',before,currentPos);
    after:=after+RightStr(before,Length(before)-currentPos);
  until currentPOS<>0;
  Memo2.Lines.Text:=after;
end;

я это даже тестил, работает. причем зассматривается случай что токены "Р" и "К" встречаются больше одного раза, следовательно результирующая последовательность в общем случае может быть больше начальной. Так же отслеживается неправильный ввод исходных данных, все токены не относящаеся к заданному в задаче множеству просто выкидываются из исходных данных.

[Decoding]

А не проще вместо строки использовать тип "множество" (set of), раз уж Delphi его поддерживает?

set.zip

[Aristarh Dark]

Decoding
если в твоем примере ввести:
"ЛЛЛЛКОООО" то ничего не выводит, а, по условию задачи должен вывести "ЛЛЛЛ", (то что "стоит перед К").

[Decoding]

Значит вопрос задан некорректно, т.к. элементы в множестве не могут повторяться - они либо принадлежат множеству, либо нет… Так что если нужно именно множество, то у меня правильно, в противном случае надо корректнее сформулировать вопрос… В моем примере буквы с 'К' по 'Р' в множество не попадают (по условию задачи).

[Aliar]

А что, сами думать уже разучились???

Еслиб мы еще умели это делать=)гыы
Пасиб вам огромное

[N3xt]

Aristarh Dark, в турбо паскале такой метод не прокатит, только в делфи работает, адаптируй плиз код для ТП

[Aristarh Dark]

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

[N3xt]

Дык там всё переделывать надо...

[Aristarh Dark]

На самом деле не все, процедуру получения входных данных надо, процедуру вывода результата, и, скорее всего, я не помню уже, PosEx реализовать, все остальное, в принципе, останется как есть (ну за незначительными изменениями)

[N3xt]

В теории всё таг просто Не получается ничего