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

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

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

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> обработка строки текста...
сообщение
Сообщение #21


Новичок
*

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

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


нее...не получилось..
сейчас вообще выдает file not found
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Гость






Ты нормально можешь ответить на вопрос: ГДЕ именно происходит ошибка (на каком операторе)? И где у тебя СЕЙЧАС находится файл Input.TXT ?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Новичок
*

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

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


input.txt находится в папке с pas. файлом...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Профи
****

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

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


Цитата
нее...не получилось..
сейчас вообще выдает file not found

Значит проверь еще раз, где что находится и как называется (может на букву ошиблась или регистор разный, у меня так бывало smile.gif ). У меня это работает, правда я проверя на том коде, который ты выложила в посте №5. А тот, что прикреплен, у меня вообще не работает, но сбой происходит где-то дальше, не в чтении..

Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Профи
****

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

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


Вот мой код программы. Проверяла на Input = 'дгвба', Output получился = 'абвгд' - значит работает)) IOresult - специальная функция, позволяющая выполнять файловые операции без сообщений об ошибках.
uses wincrt;
var i,j,m:integer;
Inp,Out: text;
st:string;
c,ch: char;
begin
m:=0;
st:='';
assign (Inp,'Input.txt');
{$I-}
reset(Inp);
{$I+}
if IOResult=0 then
begin
while not Eof(Inp) do
begin
inc(m);
read(Inp,Ch);
st:=st+ch;
end;
Close (Inp);
end;
writeln('Прочитано из файла: ',st,'');
assign(Out,'Output.txt');
{$I-}
rewrite(Out);
{$I+}
if IOResult=0 then
begin
for j:=2 to m do
for i:=m downto j do
if st[i-1]>st[i] then
begin
c:=st[i-1];
st[i-1]:=st[i];
st[i]:=c;
end;
writeln('Записано в файл: ',st,'');
write(Out,st);
close(Out);
end;
end.

Что непонятно - спрашивай, объясним smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Пионер
**

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

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


Цитата(Айра @ 20.05.2007 0:26) *

IOresult - специальная функция, позволяющая выполнять файловые операции без сообщений об ошибках.

no1.gif

IOresult возвращает код после операции ввода/вывода
убери директивы компилятора {$I-} и {$I+} и увидишь))


to ROxY: только wincrt замени на crt ))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Профи
****

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

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


Цитата
IOresult возвращает код после операции ввода/вывода
убери директивы компилятора {$I-} и {$I+} и увидишь))

И это тоже yes2.gif
Попробуй оставить директивы, неправильно обозвать)) файл и убрать IOresult. Программа выдаст ошибку, а если оставить условие, то она отработает нормально, просто не получит данные.. Поэтому IOresult в сочетании с директивами и обеспечивает нормальную работу файловых операций. Я это имела ввиду в том посте))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Новичок
*

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

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


Айра..
спасибо...
но вот мне нужно ещё чтобы подсчитало количество букв в фразе
допустим: МАМА
А 2
М 2...
вот...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Новичок
*

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

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


и ещё у меня проблема с wincrt...
файл wincrt.tpu не найден..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Пионер
**

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

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


черт, мои посты игнорируют ((((

Цитата(nikita182 @ 20.05.2007 1:30) *

to ROxY: только wincrt замени на crt ))





uses crt;
var i,j,m:integer;
Inp,Out: text;
st, st1, st2:string;
c,ch: char;
begin
m:=0;
st:='';
assign (Inp,'Input.txt');
{$I-}
reset(Inp);
{$I+}
if IOResult=0 then
begin
while not Eof(Inp) do
begin
inc(m);
read(Inp,Ch);
st:=st+ch;
end;
Close (Inp);
end;
writeln('chitka: ',st,'');
assign(Out,'Output.txt');
{$I-}
rewrite(Out);
{$I+}
if IOResult=0 then
begin
for j:=2 to m do
for i:=m downto j do
if st[i-1]>st[i] then
begin
c:=st[i-1];
st[i-1]:=st[i];
st[i]:=c;
end;
st1 := '';
m := 1;
for i := 1 to length(st) do
if st[i] <> st[i + 1] then begin
str(m, st2);
st1 := st1 + st[i] + ' - ' + st2 + ' ';
m := 1;
end
else
m := m + 1;


writeln('zapisano: ',st,'');
writeln(Out,st);
write(Out,st1);
close(Out);
end;
end.




вроде работает.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #31


Новичок
*

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

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


неа..
не совсем работает
записываем слово "СЛОВО" в файл input
в результате получаем
2;>>Aюя
-52-1;-1>-2A-1ю-1я-1
что ЭТО???
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #32


Профи
****

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

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


Цитата
не совсем работает

blink.gif У меня все работает нормально.. Программа выводит в файл "встречаемость" каждой буквы: в - 1 л - 1 о - 2 с - 1 . Может какие-то проблемы с кодировкой самого файла или что-то в этом роде?..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #33


Профи
****

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

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


Сейчас попробовала использовать вместо txt файлов doc'и => если так делать, то появляются эти каракули... Ты точно txt используешь, программа сразу работала некрасиво, или как?

Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #34


Новичок
*

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

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


АЙРА... и Nikita182
ребят огромное спасибо!!
Очень помогли... правда!!
...итак
ТЕМА может быть закрыта! smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 25.10.2020 3:47
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name