Работа с файлами

Тема в разделе "Pascal and Delphi", создана пользователем advokat92, 25 ноя 2010.

  1. advokat92

    advokat92 Гость

    Создать файл P, компонентами которого являются элементы массива M. Переписать из файла P в файл G все компоненты в обратном по-рядке. Прочитать файл G.
    M=(0,4; 6,1; 2,3; 0,7; 6,2; 3,1; 0,9; 10,1)
     
  2. flashkpi

    flashkpi Гость

    Пиши, сделаю
    icq: 588002847
    email: flash_1989@ukr.net
     
  3. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Код (Text):
    //объявили переменную файла
    var f:text;
    begin //открыли файл
    AssignFile(f,Filename);
    //для чтения
    Reset(f);
    i:=1;
    //читаем до конца и записываем в массив
    While not eof(f) do
    begin read(f,a[i]);//или readln(f,s); а потом разбирать строку
    inc(i);
    end;
    n=i-1;
    //закрыли
    CloseFile(f);
    //теперь записываем во второй в обратном порядке
    AssignFile(f,Filename2);
    rewrite(f);
    for i:=n downto 1 do
    write(f,a[i]+' ');
    CloseFile(f);
    end;
    код примерный остальное найдешь сам.. я надеюсь..
     
  4. nayke

    nayke Well-Known Member

    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    я бы еще использовал динамический массив..
     
  5. 0uzn

    0uzn Гость

    Код (Text):
    my @m = ('0,4','6,1','2,3','0,7','6,2','3,1','0,9','10,1');
    open P,'>file1.txt' or die $!;
    print P $_,"\n" for(@m);        #записываем в файл P массив M
    close P;
    open P,'<file1.txt' or die $!;
    open G,'>file2.txt' or die $!;
    my @a = <P>;                    #считываем файл P в массив
    close P;
    my @r = reverse @a;          #переписываем элементы в обратном порядке
    print G for(@r);                #записываем в файл G элементы в обратном порядке
    close G;
    open G,'<file2.txt' or die $!;
    print while(<G>);             #читаем и печатаем файл G
    close G;
     
  6. 0uzn

    0uzn Гость

    Извиняйте,только сейчас прочитал,что задачку на дельфях надо было решить. B)

    Добавлено: Извиняйте,только сейчас прочитал,что задачку на дельфях надо было решить. :)
     
Загрузка...
Похожие Темы - Работа файлами
  1. gx6060
    Ответов:
    2
    Просмотров:
    408
  2. seoman2
    Ответов:
    21
    Просмотров:
    763
  3. NickProstoNick
    Ответов:
    22
    Просмотров:
    1.519
  4. vladis222
    Ответов:
    3
    Просмотров:
    1.126
  5. Lyuska
    Ответов:
    1
    Просмотров:
    1.169

Поделиться этой страницей