Помогите исправить ошибку

Тема в разделе "Pascal and Delphi", создана пользователем advokat92, 8 дек 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).

    Код (Delphi):
    program nomer8;
    const m:array[1..8] of real=(0.4, 6.1, 2.3, 0.7, 6.2, 3.1, 0.9, 10.1);
    var g,P:file of real;
    a:real;
    i:byte;
    begin
    assign(g,'fileP.txt');
    rewrite(g);
    assign(P,'fileG.txt');
    rewrite(P);
    writeln('Массив M:');
    for i:=1 to 8 do
    begin
    write(m[i]:5:1);
    write(P,m[i]);
    end;
    close(P);
    writeln;
    writeln;
    reset(P);
    while not eof(P) do
    begin
    read(P,a);
    for i:=8 downto 1 do
    begin
    write(m[i] );
    end;
    end;
    close(g);
    close(P);
    writeln('Содержание файла G:');
    reset(g);
    if filesize(g)=0 then write('Файл пустой')
    else
    while not eof(g) do
    begin
    read(g,a);
    write(a:4:1);
    end;
    close(g);
    end.
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7

    писать надо в файл, write(g, m );
     
Загрузка...
Похожие Темы - Помогите исправить ошибку
  1. julia9311
    Ответов:
    1
    Просмотров:
    1.192
  2. kirkl
    Ответов:
    1
    Просмотров:
    1.158
  3. Rpp
    Ответов:
    1
    Просмотров:
    812
  4. victory
    Ответов:
    0
    Просмотров:
    966
  5. victory
    Ответов:
    0
    Просмотров:
    792

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