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

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

17
procedure TForm1.Button1Click(Sender: TObject);
var f : textfile; k, m : integer;
begin
if not opendialog1.Execute then exit;
assignfile(f, opendialog1.FileName);
label1.Caption:=Opendialog1.FileName;
memo1.Lines.LoadFromFile(opendialog1.FileName);
reset(f); k:=0;
while not eof(f) do
begin
read(f, m); inc(k)
end;
closefile(f);
label2.Caption:='Количество чисел в файле равно ' + inttostr(k);
end;
Задача 18. Дан текстовый файл , содержащий целые числа . Найти
сумму чётных чисел файла . Окно работающего приложения :
Задача 19. Дан текстовый файл , содержащий целые числа . Найти
среднее арифметическое чисел в файле. Окно работающего прило-
жения :
Задача 20. Дан текстовый файл , содержащий целые числа . Найти
сумму чисел в каждой строке файла . Найденные числа записать в но-
                                      17
    procedure TForm1.Button1Click(Sender: TObject);
    var f : textfile; k, m : integer;
    begin
    if not opendialog1.Execute then exit;
    assignfile(f, opendialog1.FileName);
    label1.Caption:=Opendialog1.FileName;
    memo1.Lines.LoadFromFile(opendialog1.FileName);
    reset(f); k:=0;
    while not eof(f) do
    begin
    read(f, m); inc(k)
    end;
    closefile(f);
    label2.Caption:='Количест во чисел в ф а йле ра вн о ' + inttostr(k);
    end;

      За д а ча 18. Да н т екст овый ф а йл, сод ерж а щий целые числа . На йт и
су м м у чёт н ых чисел ф а йла . Окн о ра б ота ю щего прилож ен ия :




     За д а ча 19. Да н т екст овый ф а йл, сод ерж а щий целые числа . На йт и
сред н ее а риф м етическое чисел в ф а йле. Окн о ра б от а ю щего прило-
ж ен ия :




      За д а ча 20. Да н т екст овый ф а йл, сод ерж а щий целые числа . На йт и
су м м у чисел в ка ж д ой ст роке ф а йла . На йд ен н ые числа за писа т ь в н о-

Страницы