создание и использование файлов на языке паскаль

[Julichka1k]

задание

Создать файл F, компоненты которого являются целыми числами.Записать в файл G квадраты всех четных чисел файла F, а в файл H кубы всех нечетных чисел.

вот код

program file_1;

Var
F,G,H: file of integer;
i,k: integer;


begin
     assign(F, 'F.dat');
     assign(G, 'G.dat');
     assign(H, 'H.dat');
     rewrite(F);
     randomize;
       for i:=1 to 100 do
       begin
       k:=random(101);
       write(F,k);
       end;
       close(F);
         reset(F);
         rewrite(G);
         rewrite(H);
           while not (Eof(f))do
             begin
              if k mod 2=1 then
               begin
                k:=sqr(k);
                write(G,k);
               end
               else
                  begin
                   k:=sqr(k)*k;
                   write(H,k);
                  end;
             end;
             close(F);
             close(G);
             close(H);
end.

почему при заполнении файла F там и цифры и буквы? и почему не позводит в куб и квадрат...

[Hacker19_90]

почему при заполнении файла F там и цифры и буквы?

Потому что файл типизированный!

и почему не позводит в куб и квадрат...

Потому что вы не считываете с файла F. У вас переменная к всегда равна 0!
ЗЫ: Пришло от вас письмо мне в личку! Не совсем понятна его суть!

[Julichka1k]

у меня не получается вам в личку ответить! Извените, если то был ваш код,вот сама решила сделать!!

[Serge_Bliznykov]

Julichka1k,

Обнаружен Кросспостинг!

Напоминаю, что
Кросспостинг (создание одинаковых тем и сообщений) запрещён правилами форума!

ваша тема тут
создание и использование файлов на языке паскаль

ТЕМА ЗАКРЫТА