|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.04.2012, 22:27 | #1 (permalink) |
Новичок
Регистрация: 08.04.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Как добавить файл словаря?
|
08.04.2012, 22:27 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме ранее были созданы темы которые схожи с вашей Помогите добавить анимацию в программе Как добавить разрешение в 3D приложения? Можно ли добавить видеопамять? Как добавить кодеки в софт ТВ-тюнера? Добавить программу в автозапуск |
09.04.2012, 20:03 | #3 (permalink) |
Новичок
Регистрация: 08.04.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Примерно так?
VAR
S,S1,S2:String; i,i1,i2,N,j:Byte; f:text; BEGIN assign(f,'путь к файлу'); { ReadLn(S); WriteLn; N:=0; i:=0; Repeat Repeat Inc(i); Until S[i]<>' '; i1:=i; Repeat Inc(i); Until (S[i]=' ') or (i=Length(S)); If S[i]=' ' then i2:=i else i2:=i+1; S1:=Copy(S,i1,(i2-i1)); S2:=S1; For j:=1 to Length(S1) do S2[Length(S1)-j+1]:=S1[j]; If S1=S2 then begin Write(S1+' '); Inc(N); end; Until i=Length(S); WriteLn; WriteLn(N,' words'); ReadLn; } close(f); END. |
09.04.2012, 20:30 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Совсем не так!
Вместо 'путь к файлу' необходимо прописать реальный путь, заканчивающийся именем файла на диске - существующего или того, который предполагается создать, причем применение кириллицы не допускается (то есть может быть и существуют реализации Паскаля, умеющие работать с кириллицей в адресе, но мне они не известны). Например, Вы хотите открыть для чтения существующий на диске D в папке Darling файл swine.txt, то нужно записать: Assign(f, 'D:\Darling\swine.txt'); После этого установится связь между указанным файлом на диске и файловой переменной f, объявленной в разделе Var программы. Далее следует указать, что Вы собираетесь с этим файлом делать: 1. Читать - тогда пишем Reset(f); 2. Записывать в файл информацию - в этом случае пишем Rewrite(f); Если файла с таким именем на диске нет, он будет создан. ВНИМАНИЕ!!! Если применить команду Rewrite к имеющемуся на диске файлу, то вся содержащаяся в файле информация будет стерта!!! 3. Записать что-либо в конец файла (только для текстовых файлов) - команда Append(f); 4. Уничтожить файл - команда Erase(f); |
09.04.2012, 20:42 | #5 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
09.04.2012, 21:10 | #7 (permalink) |
Member
Регистрация: 27.02.2010
Сообщений: 659
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1312
|
Чего не сделаешь для душевного равновесия)) Кст. Я не правильно понял задание. Я думал уже дан словарь и нужно к примеру в массив ввести эти слова перевертыши или просто вывести на экран. Но все равно... Зачем так жестоко?))) |
10.04.2012, 13:57 | #8 (permalink) |
Новичок
Регистрация: 08.04.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ну чисто теоретически - словарь есть (надо слов накидать в текстовый файл) и нужно вывести имеющиеся в нем слова перевертыши. Большое всем спасибо за помощь!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|