IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> строки, работа со строками
zmei123
сообщение 27.01.2006 21:17
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 15
Пол: Мужской

Репутация: -  0  +


ребят помогите очень надо плиз unsure.gif unsure.gif unsure.gif mega_chok.gif

дано k-литерных строк (эти строки сохраняются в массиве строк a ). Каждая строка содержит латинские и русские буквы, цифры и все возможные делители требуется:

1 надо выделить из каждой строки (сформировать еще один массив строк b и массив С из целых чисел, в котором будут храниться номера исходных строк , из которых выделяются подстроки) и напечатать подстроки (оформить процедурой)-расположенные между /* и */


если че не понятно в условии пишите прямо в форуме


надеюсь что кто нибудь поможет yes2.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
klem4
сообщение 29.01.2006 12:54
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

uses crt;
type
TType = string;
TArray = array [1..100] of TType;

procedure Input(var arr : TArray; n : byte);
var
i : byte;
begin
for i := 1 to n do begin
write('s[',i,']=');
readln(arr[i]);
end;
writeln;
end;

procedure CheckStr(s : TType; var arr : TArray; size : byte; var i : byte);
const
open = '/*';
close = '*/';
begin
while (length(s) > 0) and (pos(open,s) <> 0) do begin
delete(s,1,pos(open,s)+1);
if (pos(close,s) < pos(open,s)) or ((pos(close,s) <> 0) and (pos(open,s) = 0)) then begin
inc(i);
arr[i] := copy(s,1,pos(close,s)-1);
delete(s,1,pos(close,s)+1);
end;
end;
end;

var
_in,_out : TArray;
size,size1,j : byte;
begin

clrscr;

write('n = '); readln(size);

Input(_in, size);

size1 := 0;

for j := 1 to size do CheckStr(_in[j], _out, size, size1);

for j := 1 to size1 do writeln(_out[j]);

readln;

end.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 23.06.2025 16:40
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"