|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Наро прошу помощи!!!
Народ помогите PLEASE написать проги по 2 задачам!!!!
Проги над написать в паскале 1.Даны 2 вектора состоящие из N компонентов {Xn} {Yn} вычислить скалярное произаедение по формуле X1Yz+X2Y2...XnYn 2.Дано множество X1, содержащее символы из диапазона [А...Я]. Сформировать новое множество во Y1 выделения из множества X1 всех символов, расположенных раньше К или позже Р. На экран вывести множество Значение элементов исходного множества ввести с клавиатуры. В заранее огромное спасибо!!! Последний раз редактировалось Aliar, 10.05.2007 в 21:29. |
#2
|
|||
|
|||
гуру, ну хде вы
|
#3
|
||||
|
||||
А что, сами думать уже разучились???
Для второго задания (первое если честно не понял о чем): На форме 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; |
#5
|
||||
|
||||
Decoding
если в твоем примере ввести: "ЛЛЛЛКОООО" то ничего не выводит, а, по условию задачи должен вывести "ЛЛЛЛ", (то что "стоит перед К"). |
#6
|
||||
|
||||
Значит вопрос задан некорректно, т.к. элементы в множестве не могут повторяться - они либо принадлежат множеству, либо нет… Так что если нужно именно множество, то у меня правильно, в противном случае надо корректнее сформулировать вопрос… В моем примере буквы с 'К' по 'Р' в множество не попадают (по условию задачи).
Последний раз редактировалось Decoding, 14.05.2007 в 11:21. |
#7
|
|||
|
|||
Цитата:
Пасиб вам огромное |
#8
|
|||
|
|||
Aristarh Dark, в турбо паскале такой метод не прокатит, только в делфи работает, адаптируй плиз код для ТП
|
#9
|
||||
|
||||
Ну вообще народ обленился. Показывай сколько адаптировал, дальше поможем. Иначе за бабло
|
#10
|
|||
|
|||
Дык там всё переделывать надо...
|
#11
|
||||
|
||||
На самом деле не все, процедуру получения входных данных надо, процедуру вывода результата, и, скорее всего, я не помню уже, PosEx реализовать, все остальное, в принципе, останется как есть (ну за незначительными изменениями)
|
#12
|
|||
|
|||
В теории всё таг просто Не получается ничего
|