• Помогите пожалуйста. Очень надо.
    Исправте ошибки.
    program untitled;
    uses crt;
    type
    m=array[1..100]of integer;
    e= file of integer;
    var
    k,t:integer;
    f,g,h:e;
    i,n,c,a:integer;
    BEGIN
    assign(f,'f.dat');
    assign(g,'g.dat');
    assign(h,'h.dat');
    rewrite(f);
    writeln('ввод n');
    read(n);
    for i:=1 to n do
    begin
    writeln('ввод k[i]');
    readln(t);
    write(f,t);
    end;
    reset(f);
    rewrite(g);
    rewrite(h);
    while not eof(f)do
    begin
    read(f,t);
    a:=t mod 2;
    if a<>0
    then
    begin
    read(g,t);
    write(t);
    writeln('Fail chetnih chisel:');
    while not eof(g) do
    begin
    read(g,t);
    write(t,' ');
    end;
    end
    else
    read(h,t);
    write(t);
    writeln('Fail nechetnih chisel:');
    while not eof(h) do
    begin
    read(h,t);
    write(t,' ');
    end;
    end;
    close(f);
    close(g);
    close(h);
    end.
    Дан файл f с целыми числами . Нужно из этого файла взять нечетные числа поместить в файл h . А четные в файл g.

Ответы 5

  • Я имела в виду, чтобы после этого с файлами h и g можно было выполнять математические операции-например умножать файл на число...
    • Автор:

      vinnie
    • 6 лет назад
    • 0
  • Да... если файлы текстовые, в PascalABC.NET 3.3 эта задача пишется в несколько строк...
  • А если "на число умножать", файлы надо делать типизированными.
    • Автор:

      baron
    • 6 лет назад
    • 0
  • но и суть то что наверное не текстовые надо...
  • Можно и текстовые, но читать тогда в динамический массив
    • Автор:

      delaney
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years