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

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

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

> текстовые файлы, помгите, а то мне никак
elvis
сообщение 4.05.2004 20:35
Сообщение #1





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

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


Нужно решить вот такую задачку, мож есть у кого исходник
Пеpеписать текстовый файл f в g, утpоив все стpоки, начинающиеся
символом "!"

если есть свободное время шлите мне на мыло---> ultra_elvis@mail.ru
заранее спасибо!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Catty
сообщение 4.05.2004 22:14
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

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


Код
uses Crt;
const n='!';
var i,j:byte; words:array[1..100] of string;
c:char;  v:string;
f:file of string; g:text;
Begin
ClrScr;
i:=1;
while c<>'.' do
begin
read(c);
if c=' 'then inc(i) else
words[i]:=words[i]+c;
end;
assign(f,'C:\file7');
rewrite(f);
for j:=1 to i do
write(f,words[j]);
close(f);
assign(f,'C:\file7');
reset(f);
for j:=1 to i do
read(f,words[j]);
for j:=1 to i do begin
v:=copy(words[j],1,1);
if v=n then  words[j]:='';
end;
close(f);
assign(g,' ',C:\file8');
rewrite(g);
begin
for j:=1 to i do
write(g,words[j]);
end;
close(g);
end.

вот что-то вроде! :p2:

Сообщение отредактировано: Catty - 4.05.2004 22:17


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
elvis   текстовые файлы   4.05.2004 20:35
Catty   uses Crt; const n='!'; var i,j:byt...   4.05.2004 22:14
BlackShadow   Вроде так: Var  f,g:Text;  s...   5.05.2004 13:13
elvis   Catty спасибо!!! BlackShadow огромно...   5.05.2004 19:20
BlackShadow   А то :D   5.05.2004 19:47


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

 



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