Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Текстовый файл
Автор: Anne'ечка 15.01.2004 13:33
??? ??? ??? :-[
1) Имеется текстовый файл. Написать программу, которая создала бы новый файл, в котором строки были бы пронумерованы, начиная с 1.
2) Имеется текстовый файл. Написать программу, которая создала бы новый файл, в котором каждая строка исходного файла читалась бы наоборот, т.е. 1-ый символ в исходной строке стал бы последним, 2-ой - предпоследним и т.д. Количество срок в файле произвольно.
[img][/img]
Автор: SKVOZNJAK 15.01.2004 20:34
Блин, при открытии *.asc в ворде так ломаются строки.... Прямо свинство какое-то. Решено, как только подрасчищу дисковое пространство, устанавливаю на винду линуксовский офис ;D
uses stringozui; var Q2,W2: LONGINT;
Q3,W3,E3: BYTE; Q8,W8,E8,R8: WORD;
Q:ARRAY[1..1000] OF BYTE; W:ARRAY[1..15000] OF BYTE; Q7,W7: FILE;
LABEL 1,2,3,100;
BEGIN
ASSIGN(Q7,'PERUM7.TXT'); ASSIGN(W7,'PERUM8.TXT'); RESET(Q7,1);
REWRITE(W7,1);
Q2:=FILESIZE(Q7);
W2:=0; {НОМЕР СТРОКИ}
1: IF Q2=0 THEN GOTO 100 ELSE BEGIN
IF Q2>=1000 THEN BEGIN Q2:=Q2-1000; Q8:=1000; END;
IF Q2<1000 THEN BEGIN
Q8:=Q2; Q2:=0;
END;
END;
BLOCKREAD(Q7,Q,Q8);
W8:=1; R8:=1;
2: INC(W2);
Q3:=TRINGOL(W2);
W3:=1;
FOR W8:=W8 TO W8+Q3 DO BEGIN {ЗАПИСЬ НОМЕРА СТРОКИ} W[W8]:=TRINGOL10[W3];
INC(W3);
END;
W[W8]:=32; INC(W8);
3:
IF Q[R8]=10 THEN INC(R8);
IF Q[R8]=13 THEN BEGIN {ЕСЛИ ДОШЛИ ДО МАРКЕРА ЕОЛ} W[W8]:=13;
INC(W8);
W[W8]:=10;
INC(W8);
INC(R8);INC(R8);
GOTO 2;
END;
W[W8]:=Q[R8]; INC(R8); INC(W8);
IF R8<Q8 THEN GOTO 3; BLOCKWRITE(W7,W,W8); GOTO 1;
100:
CLOSE(Q7);
CLOSE(W7);
END.
Непричёсано малость, но вроде работает. Модуль СТРИНГОЖУЙ можно скачать с http://stiratel7.narod.ru/1/susnjak.zip
Автор: trminator 15.01.2004 21:00
Вот мой вариант... а то побьют ведь ее за goto +) да и модуль СТРИНГОЖУЙ вряд ли входит в универскую программу +)
program strings01;
var s: string;
i: integer;
in_f, out_f : text;
begin
write('Enter filename to read > '); readLn(s);
assign(in_f,s); reset(in_f);
write('Enter filename to write > '); readLn(s);
assign(out_f,s); rewrite(out_f);
i:=1;
while not EOF(in_f) do
begin
readLn(in_f,s);
writeLn(out_f, i:5,' ', s);
inc(i)
end;
close(in_f); close(out_f);
end.
Автор: SKVOZNJAK 15.01.2004 22:39
А что, коротко и ясно. А что до остального, так основная цель достигнута - мой вариант появился раньше. Именно это и ставилось во главе угла ;D Про модуль ты зря так сказал - имелось в виду, что программист догадается выпилить из исходника нужную функцию ;)
ЗЫ а теперь попробуй решить эту же задачу, но используя нетипизованные файлы, а то наши проги соревнуются в разных весовых категориях. ;)
Автор: Anne'ечка 16.01.2004 17:07
СПАСИБО, только вот теперь у меня вопрос, а это вы мне какую задачу-то решили 1) или 2)? ???
Автор: trminator 16.01.2004 18:42
А это мы строки пронумеровали
Автор: error_404 18.01.2004 2:27
СПАСИБО, только вот теперь у меня вопрос, а это вы мне какую задачу-то решили 1) или 2)? ???
А как это защищаться-то тогда будет??? :-/
Автор: dushik 18.01.2004 14:08
;D Долго ржал над этим... (над первой версией, и над последним вопросом Анечки
)
Как только я увидел первую "программную версию" (в первые секунды), мне показалось, что это на Бэйсике написанно ;)
Решаюсь выдвинуть свою первую версию решения второй задачи :-/
uses crt;
const
name='name.txt';
name1='name1.txt';
var
f,f1 :text;
i,j :integer;
s :string[255];
ch :char;
begin
assign(f,name);
assign(f1,name1);
reset(f);
rewrite(f1);
while not eof(f) do
begin
readln(f,s);
for i:=length(s) downto 1 do
begin
write(f1,s[i]);
end;
writeln(f1);
end;
close(f);
close(f1);
readln;
end.
Автор: AlaRic 18.01.2004 15:16
dushik:
Автор: dushik 18.01.2004 15:52
Ну я не думаю что эта фигня - такая уж серьезная ошибка ;). J - я забыл удалить.
А s[255], мне почему-то показалось, что без этого я не смогу строку как массив символов использывать :/
Автор: AlaRic 18.01.2004 15:57
;D ;)