ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
Доработать прогу на Delphi |
23.02.2010, 15:11
|
|
Новичок
Регистрация: 20.02.2010
Сообщений: 2
Провел на форуме:
12129
Репутация:
0
|
|
Доработать прогу на Delphi
Задание:
Разработать программу ,которая в качестве входного параметра получает путь к двум текстовым файлам.
Оба файла необходимо считывать построчно.Нужно определить можно ли из слов в строке первого файла собрать строку второго.
Я немного уже сделал.. Осталось сделать чтоб строка из масива разбивалась на слова в массиве для последущего сравнения с другой строкой..
исходник |
|
|
23.02.2010, 15:20
|
|
Новичок
Регистрация: 04.06.2009
Сообщений: 3
Провел на форуме:
73724
Репутация:
6
|
|
PHP код:
procedure SizeS_in_S2(S,S2:string; var N:integer);
var tempS:string; //временаая строка для сравнения
i:integer; {счетчик}
BEGIN
tempS:=''; {обнуляем строку}
N:=0; {кол-во попаданий = 0}
for i := 1 to length(S) do
{проходим всю строку, и рассматирваем ее слова(разд. пробелами)}
begin
{если символ не пробел, и при этом у нас не стоят два пробела подряд то
добавляем к врем. строке символ}
if (S[i] <> ' ')or( (S[i] = ' ')and( S[i-1] = ' ') )
then tempS := tempS + S[i]
else begin
{если мы поймали пробле первый, то получили уже слово и работаем с ним}
if pos( tempS, S2) = 0 then break
{слово не найдено во второй подстроке - значит по заданию не подохдоит}
else inc(N);
{в этом случае - увеличиваем счетчик}
tempS:=''; {врем. строку обнуляем до следующего слова}
end;
end;
END;
S - срока которую поделить на слова
S2 строка 2-я, в которой должны быть слова (все) из строки S;
tempS - временная строка, элемент S, который ищется в строке S2;
N- возвращает кол-во слов которые подошли из S в S2;
_http://ifolder.ru/16544631 тута немного исправлено, доделай сам
Последний раз редактировалось Retro; 23.02.2010 в 16:08..
|
|
|
|
23.02.2010, 18:13
|
|
Новичок
Регистрация: 20.02.2010
Сообщений: 2
Провел на форуме:
12129
Репутация:
0
|
|
спс. вправил в свою прогу все фурычит супер)
|
|
|
|
|
|
Похожие темы
|
| Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
|
Литература Delphi
|
Sams |
С/С++, C#, Delphi, .NET, Asm |
2 |
19.03.2010 19:46 |
|
Books
|
PSalm69 |
Избранное |
248 |
27.10.2009 04:52 |
|
dr web ругаеться на мою прогу на delphi
|
Student :) |
С/С++, C#, Delphi, .NET, Asm |
12 |
26.10.2009 00:19 |
|
Virus.Win32.Induc.a или "Снова записки новичка"
|
_=(mac)=_ |
Защита ОС: вирусы, антивирусы, файрволы. |
5 |
24.08.2009 23:34 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Линейный вид
