1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем advokat92, 25 ноя 2010.

  1. advokat92

    advokat92 Гость

    Репутация:
    0
    Создать файл 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 Гость

    Репутация:
    0
    Пиши, сделаю
    icq: 588002847
    email: flash_1989@ukr.net
     
  3. nayke

    nayke Well-Known Member

    Репутация:
    0
    Регистрация:
    4 авг 2010
    Сообщения:
    310
    Симпатии:
    0
    Код:
    //объявили переменную файла
    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

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

    0uzn Гость

    Репутация:
    0
    Код:
    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 Гость

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

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

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