Работа с файлом

@Maria112 · Регистрация: 27.09.2012

Author24 — интернет-сервис помощи студентам

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

@Mawrat · 22.11.2012, 17:17

Здесь при подсчёте суммы надо использовать счётчик элементов файла. И добавлять значение элемента к сумме только на чётных номерах счётчика.

Delphi

var
  F : file of Extended;
  i : Integer;
  Num, Sum : Extended;
begin
...
  Reset(F);
  Sum := 0;
  i := 0;
  while not Eof(F) do begin
    Inc(i);
    Read(F, Num);
    if i mod 2 = 0 then Sum := Sum + Num;
  end;
  CloseFile(F);
 
  ShowMessage('Сумма элементов на чётных позициях: ' + FloatToStr(Sum));
...
end;

@OverDozero · 22.11.2012, 17:49

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

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

Например 23,5 это действительное число.И стоит на четной позиции.То есть к сумме надо прибавить это число.А посчитает это число как 2 и 3.Попробовал разделять числа пробелами.И число до пробела считать как 1 число.Например 23,5 22,7.Первое число стоит на нечетной позиции,а второе на четной.То есть не зависит от расположения в файле,а считает данное число как единое целое.Т.е 23,5 не считает как 2,3,5.
Как более правильно реализовать данную функцию группировки числа.У меня считает каждое число как отдельную позицию в строке.А должно число до пробела считаться единым и находиться на четной или нечетной позиции.

@Maria112 0 / 0 / 0 Регистрация: 27.09.2012 Сообщений: 27
		1
	Работа с файлом 22.11.2012, 13:10. Показов 1105. Ответов 2 Метки нет (Все метки) Задали файл действительных чисел (создать программным путем). Найти сумму его элементов с четными номерами. 0

@OverDozero 291 / 239 / 102 Регистрация: 07.04.2011 Сообщений: 1,433
	22.11.2012, 17:49	3
	Сообщение от Maria112 Задали файл действительных чисел (создать программным путем). Найти сумму его элементов с четными номерами. Например 23,5 это действительное число.И стоит на четной позиции.То есть к сумме надо прибавить это число.А посчитает это число как 2 и 3.Попробовал разделять числа пробелами.И число до пробела считать как 1 число.Например 23,5 22,7.Первое число стоит на нечетной позиции,а второе на четной.То есть не зависит от расположения в файле,а считает данное число как единое целое.Т.е 23,5 не считает как 2,3,5. Как более правильно реализовать данную функцию группировки числа.У меня считает каждое число как отдельную позицию в строке.А должно число до пробела считаться единым и находиться на четной или нечетной позиции. 0

Опции темы

Работа с файлом

Решение