Простые задчки на файлы, просьба помочь Опции

[Retabol]

Всем привет!
Огромная просьба помочь мне решить две задачи.
Решается оценка(не вру).
1) Дан текстовый файл. Вставить в начало каждой строки ее номер и записать
преобразованные строки в новый файл.
2)Даны файлы F и G, элементами которых являются символы.
Записать в файл H все элементы файлов F и G, сохраняя деление на строки.

ЗЫ. Просьба написать полный текст задачи. Помогите тупому, плз...
Буду очень благодарен....

[Altair]

Олег, я вижу ты тут самый разумный из всех

Далеко не самый. Здесь есть настоящие профи!

------------------
Вот что я тут написал:

Код

var
f,f1:file of byte;
i:longint;
fn:string;
b:byte;
begin
Write('‚ўҐ¤ЁвҐ Ё¬п иЁда㥬®Ј® д ©«  '); readln(fn);
Assign(f,fn); {бўп§лў Ґ¬ д ©®ўго ЇҐаҐ¬Ґ­­го б Ё¬Ґ­Ґ¬ д ©« }
Reset(f);
Writeln('ўўҐ¤ЁвҐ Ё¬п д ©« , Є®в®ал© ­ ¤® ᮧ¤ вм (нв® Ўг¤Ґв § иЁда®ў ­­л© д ©«)');
readln(fn);
Assign(f1,fn);
rewrite(f1);
For i:=0 to filesize(f)-1 do
begin
 seek(f,i); {ЇҐаҐ¬Ґй Ґ¬ гЄ § вҐ«м д ©«  ­  i-л© н«Ґ¬Ґ­в}
 read(f,b);{бзЁвлў Ґ¬ §­ зҐ­ЁҐ}
 {§¤Ґбм п ­Ґ ­ ЇЁб «. §¤Ґбм ¤®«¦­  Ўлвм ўлЎ®аЄ  Ё§ Є®¤®ў®© в Ў«Ёжл}
 write(f1,b);
end;
close(f); close(f1);
end.

Эта программа читает побитно EXE файл и записывает в другой (который окажется зашифрованным)
Я только не сдалал само шифрование. Вот почему:

3.1. создать свою кодовую таблицу

Я-то еще только школу закончил, а вы наверно это проходили в универе.
Так вот, если я правитльно понял, то кодовая таблица имее следующий вид:
"код" - "на что его заменить"
....
Если так, то я доделаю, если не так, то скажите как надо делать кодовую таблицу.
Блок схему я на листочке нарисую, отсканирую и присоединю к сообщению.

kile сказал:

ксанка, какой же это шифр ...

А что это по вашему?
Если вы насчет того, что ксанка написала, то она сказала:
"Совсем запуталась".

Сообщение отредактировано: Oleg_Z - 28.05.2004 10:55