![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() |
Pukelis |
![]() ![]()
Сообщение
#1
|
Новичок ![]() Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: ![]() ![]() ![]() |
всем привет!
![]() Есть программка. Она убирает лишние энтеры, заменяя их на пробелы. (оставляет их тока если есть 3 пробела подряд в начале следующей строки) program Noname0;
var t1,t2:text;
c:char;
pr:packed array [1..3] of char;
k:integer;
begin
assign(t1,'1.txt');
assign(t2,'2.txt');
reset(t1); rewrite(t2);
while not eof(t1) do begin
while not eoln(t1) do begin
for k:=1 to 3 do begin
read(t1,c);
pr[k]:=c;
end;
if (pr[1]= ' ') and (pr[2]= ' ') and (pr[3]=' ')
then writeln(t2);
for k:=1 to 3 do
write(t2,pr[k]);
while not eoln(t1) do begin
read(t1,c);
write(t2,c);
end;
readln(t1);write(t2,' ');
end;
end;
close(t2);
close(t1);
end.
как ее заставить обрабатывать большие тексты? Скажем, на 490000 символов.. Там надо как-то на куски строку резать, да? :P заранее пасиб ![]() |
![]() ![]() |
![]() |
Текстовая версия | 29.07.2025 7:58 |