Программирование в среде Delphi. Часть 3. Файлы. Садовская О.Б. - 36 стр.

                                        36
     П роцед у ра  об ра б от ки соб ытия щелчка        по кн опке     П оказать
ф айл :
     procedure TForm1.Button2Click(Sender: TObject);
     var d:integer;
     begin
     reset(f); label2.Caption:='';
     while not eof(f) do
     begin
     read(f, d);
     label2.caption:=label2.caption + inttostr(d) + ' '
     end;
     closefile(f)
     end;

      За д а ча 55. Да н т ипизирова н н ый ф а йл целых чисел. На йт и су м м у
э лем ен тов ф а йла и н а йд ен н ое число за писа ть после послед н его э ле-
м ен т а ф а йла .




      За д а ча 56. Да н т ипизирова н н ый ф а йл целых чисел. П ереписа т ь
сод ерж им ое ф а йла в н овый т ипизирова н н ый ф а йл целых чисел, изм е-
н я я поря д ок э лем ен т ов след у ю щим об ра зом : сн а ча ла все отрица т ель-
н ые э лем ен ты, а пот ом все н еот рица т ельн ые э лем ен т ы ф а йла .




     За д а ча 57**. Созд а т ь т ипизирова н н ый ф а йл целых чисел, сод ер-
ж а щий б ольш ое количест во н у лей. П ереписа ть сод ерж им ое ф а йла в
н овый т ипизирова н н ый ф а йл целых чисел, за м ен я я гру ппы э лем ен тов,
состоя щие из н ечёт н ого количест ва н у лей, н а од ин н у левой э лем ен т ,
а из чётн ого – н а д ва .