Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2011, 19:55   #1
amidatong
Пользователь
 
Регистрация: 07.04.2009
Сообщений: 21
По умолчанию файлы, проблема

Здравствуйте, проблема с файлами, нужно написать программу
Написать программу которая построчно вписывает содержимое непустого текстового файла t1 в файл t2, вставляя в начало каждой строки ее порядковый номер (он должен занимать 4 позиции) и пробел!
Я написал с процедурой и для одного файла
Код:
var
   fil:string;
procedure lines(fil:string);
var
   temp:string;
   fin:text;
   z:word;
begin
     z:=0;
     assign(fin, fil);
     reset(fin);
     while not eof(fin) do
     begin
          inc(z);
          Readln(fin, temp);
          Writeln(z, ' ', temp);
     end;
end;
begin
     fil:='input.txt';
     lines(fil)
end.
Помогите написать без процедуры пожалуйста.
amidatong вне форума Ответить с цитированием
Старый 04.04.2011, 20:41   #2
hannan
Пользователь
 
Регистрация: 31.03.2011
Сообщений: 10
По умолчанию

var
fil:string;
temp:string;
fin,fail:text;
z:word;
begin
fil:='input.txt';
z:=0;
assign(fin, fil);
reset(fin);
assign(fail,'output.txt');
rewrite(fail);

repeat
inc(z);
Readln(fin, temp);
Writeln(fail,z, ' ', temp);
until eof(fin);
close(fin);
close(fail);
end.

если правильно то челкай на весы
Изучаю delphi,vb,и немного ассемблер.Увлекаюсь радиоэлектроникой.

Radio-programm.ucoz.ru
hannan вне форума Ответить с цитированием
Старый 04.04.2011, 21:02   #3
amidatong
Пользователь
 
Регистрация: 07.04.2009
Сообщений: 21
По умолчанию

Цитата:
Сообщение от hannan Посмотреть сообщение
var
fil:string;
temp:string;
fin,fail:text;
z:word;
begin
fil:='input.txt';
z:=0;
assign(fin, fil);
reset(fin);
assign(fail,'output.txt');
rewrite(fail);

repeat
inc(z);
Readln(fin, temp);
Writeln(fail,z, ' ', temp);
until eof(fin);
close(fin);
close(fail);
end.

если правильно то челкай на весы
не работает..
amidatong вне форума Ответить с цитированием
Старый 04.04.2011, 21:32   #4
amidatong
Пользователь
 
Регистрация: 07.04.2009
Сообщений: 21
По умолчанию

Сделал ещё наброски, но всерано не работает (работает но криво, при в воде 1 и 1 выводит 4110...)
Код:
program z1;

var t1:text;
    t2:text;
    I:integer;
    f:string;
    v:string;
BEgin
assign (T1,'fail1.txt');
rewrite(t1);
assign( t2,'fail2.txt');
rewrite(t2);

For I:=1 to 4 do

    writeln('Введите фамилию');
    readln(f);
    writeln('введите возраст');
    readln(v);

    write(t1,f,v);
    close(t1);

Begin

                read(t1);
                       reset(t1);
                       read(t1,f,v);

                       write(t2,i,f,v);
                        reset(t2);



                                    while not eof (t2) do
                                    begin
                                    readln(t2,v,f,i);
                                    writeln(v,f,i);

                                    end;
                                    close(t1);
                                    close(t2);

                                    end;
                                    end.

Последний раз редактировалось amidatong; 04.04.2011 в 21:53.
amidatong вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не сохраняет файлы (Создает файлы пустышки) Rock231 Помощь студентам 2 25.12.2010 12:31
Файлы данных.Типизированные файлы. вылка Помощь студентам 6 17.05.2010 15:42
Структуры и файлы. Проблема с сохранением. Hacker19_90 Общие вопросы C/C++ 2 20.03.2009 17:35
Проблема с Windows XP, решение - почистить файлы автозагрузки и отключить автозапуск m1xer Windows 8 02.09.2008 01:05
два вредных вопроса:про асю и прикриплёные файлы файлы steck Свободное общение 3 17.06.2007 14:53