Дан файл f, компонент которого являются целыми числами...

[Наталья111]

Задача: Дан файл f, компонент которого являются целыми числами. Записать в файл g все четные числа файла f, а в файл n-все нечетные. Порядок следования чисел сохраняется.

Код в Паскале:

uses crt;
var f,g,h:file of integer;{три типизированных файла целых чисел}
a:integer;{переменная для чисел}
c:char;{переменная-символ для окончания ввода}
begin
clrscr;
assign(f,'filef');{связываем переменную с файлом на диске}
rewrite(f);{открываем для записи}
assign(g,'fileg');
rewrite(g);
assign(h,'fileh');
rewrite(h);
writeln('Vvedite v faik F celye chisla, okonchanie vvoda Esc:');
repeat
write('a=');
readln(a);{читаем числа}
write(f,a);{записываем в файл}
c:=readkey;{ждем нажатия клавиши}
until c=#27;{если Esc-заканчиваем ввод, другая-продолжаем}
reset(f);{открываем исходный файл для чтения}
writeln('Ishodnyj fail:');
while not eof(f) do{пока не конец файла}
begin
read(f,a);{читаем числа}
write(a,' ');{выводим на экран через пробел}
if odd(a)then write(h,a){если нечетное(odd), записываем в файл h}
else write(g,a);{если четное, в файл g}
end;
close(f);{закрываем файл, полностью прочитан}
writeln;
reset(g);{открываем файл четных}
writeln('Fail chetnih chisel:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);{закрываем}
writeln;
reset(h);{открываем файл нечетных}
writeln('Fail nechetnih chisel:');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(h);
readln
end.

Помогите пожалуйста переделать на язык Делфи.

[Selestis]

Delphi - то же самое. Выбираете File->New->Console application и вставляете ваш код. И убираете CRT

[Наталья111]

Сообщение от Наталья111

Задача: Дан файл f, компонент которого являются целыми числами. Записать в файл g все четные числа файла f, а в файл n-все нечетные. Порядок следования чисел сохраняется.

Код в Паскале:

uses crt;
var f,g,h:file of integer;{три типизированных файла целых чисел}
a:integer;{переменная для чисел}
c:char;{переменная-символ для окончания ввода}
begin
clrscr;
assign(f,'filef');{связываем переменную с файлом на диске}
rewrite(f);{открываем для записи}
assign(g,'fileg');
rewrite(g);
assign(h,'fileh');
rewrite(h);
writeln('Vvedite v faik F celye chisla, okonchanie vvoda Esc:');
repeat
write('a=');
readln(a);{читаем числа}
write(f,a);{записываем в файл}
c:=readkey;{ждем нажатия клавиши}
until c=#27;{если Esc-заканчиваем ввод, другая-продолжаем}
reset(f);{открываем исходный файл для чтения}
writeln('Ishodnyj fail:');
while not eof(f) do{пока не конец файла}
begin
read(f,a);{читаем числа}
write(a,' ');{выводим на экран через пробел}
if odd(a)then write(h,a){если нечетное(odd), записываем в файл h}
else write(g,a);{если четное, в файл g}
end;
close(f);{закрываем файл, полностью прочитан}
writeln;
reset(g);{открываем файл четных}
writeln('Fail chetnih chisel:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);{закрываем}
writeln;
reset(h);{открываем файл нечетных}
writeln('Fail nechetnih chisel:');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(h);
readln
end.

Помогите пожалуйста переделать на язык Делфи.

красным отмечено, там при запуске программы делает ошибку.
что делать?

[Наталья111]

Какие нужно расположить компоненты на форме, подскажите пожалуйста...

[__STDC__]

наверное потому что в делфи нет модуля crt.. Какая форма? =) консольное же приложение... вероятно проще всего будет переделать с read например..

...
read(c);
until c = 'x';
...

[Наталья111]

Сообщение от __STDC__

наверное потому что в делфи нет модуля crt.. Какая форма? =) консольное же приложение... вероятно проще всего будет переделать с read например..

...
read(c);
until c = 'x';
...

где можно почитать как в делфи работать с типизированными и нетипизированными файлами? весь интернет облазила не могу найти...

вот еще вопросик...можно вот данную программу сделать в виде визуального приложения? чтобы на форме можно было вводить данные и после нажатия кнопки они на форму выводили результат (так сказать, чтобы выводились содержимое трех файлов)? какие для этого компоненты нужны будут?

помогите пожалуйста...срочно нужно...
заранее спасибо...

[__STDC__]

Сообщение от Наталья111

где можно почитать как в делфи работать с типизированными и нетипизированными файлами? весь интернет облазила не могу найти...

в гугле все есть... http://articles.org.ru/lessond/les15.php - первая ссылка оттуда

Сообщение от Наталья111

вот еще вопросик...можно вот данную программу сделать в виде визуального приложения? чтобы на форме можно было вводить данные и после нажатия кнопки они на форму выводили результат (так сказать, чтобы выводились содержимое трех файлов)? какие для этого

вы сами на свой вопрос ответили.. кнопка, эдиты и для вывода что-нибудь.. можно лейблы.. или в те же эдиты... как угодно

[LiZzza]

а на C# кто-нибудь поможет с этой задачей?
я тут начала, но как продолжить?

 static void FileF(string filename)
        {
            BinaryWriter outBin = new BinaryWriter
              (File.Open(filename, FileMode.Create));
            Console.Write("Введите количество элементов для записи в файл: ");
            string s = Console.ReadLine();
            int n = Convert.ToInt32(s);
            for (int i = 1; i <= n; i++)
            {
                Console.Write("Введите {0}-й элемент файла ", i);
                s = Console.ReadLine();
                int m = Convert.ToInt32(s);
                outBin.Write(m);
            }
            outBin.Close();
        }

        static void FileG(string filename)
        {
            BinaryReader inBin = new BinaryReader
             (File.Open(filename, FileMode.Open));
            int chet,y;
            chet = inBin.ReadInt32();
            while ((inBin.PeekChar()) % 2==0)
            {
                
            }
            inBin.Close();
        }