Файлы

@RekcaR · Регистрация: 26.04.2013

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

Дан файл вещественных чисел. Найти сумму его элементов с четными номерами.
Number_File_1.rar прога считывать должна нечетные элементы, но не работает...

@Mawrat · 02.07.2013, 19:04

Вопрос на засыпку: "Буратино дали 5 яблок. Потом он съел 2 яблока. Сколько яблок осталось у Буратино?". Ответ 3 - неверный. Правильный ответ - не менее 3-ёх. Потому что неизвестно сколько яблок уже было у Буратино перед тем, как ему вручили 5 яблок. Это к тому, что переменные надо обнулять перед вычислениями.
Поэтому в методе TForm1.N14Click() перед вычислением суммы надо обнулить переменную SUM. В добавок, этот метод подсчитывает не те элементы. В задании сказано:

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

Найти сумму его элементов с чётными номерами.

Здесь имеется в виду, что нумерация элементов начинается с 1. Соответственно, первый элемент - нечётный, второй - чётный и т. д..
Делать надо так:

Delphi

{Подсчёт суммы чисел, расположенных в файле на чётных позициях.
В файле в записях чисел в качестве разделителя целой и дробной частей
должна использоваться точка: '.'. Числа в файле должны отделяться друг от
друга любыми разделителями из следующего списка:
#32 (пробел), #9 (горизонтальная табуляция), #10 (конец строки), #13 (перенос строки).}
procedure TForm1.N14Click(Sender : TObject);
const
  Fn = 'file.txt';
var
  F : TextFile;
  i : Integer;
  Num, Sum : Extended;
begin
  AssignFile(F, ExtractFilePath(ParamStr(0)) + Fn);
  Reset(F);
  i := 0;
  Sum := 0;
  while not Eof(F) do begin
    Inc(i);
    Read(F, Num);
    if i mod 2 = 0 then
      Sum := Sum + Num;
  end;
  CloseFile(F);
  
  //Ответ.
  Edit1.Text := FloatToStr(Sum);
end.

@RekcaR · 03.07.2013, 21:19 **[ТС]**

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

@Mawrat · 03.07.2013, 21:29

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

цифры надо вбивать вертикально-столбиком, а не в строку.

А когда читаешь из файла через Read(), то нет никакой разницы как они расположены - в строку или в столбик. Или часть в строку, а часть идут в столбик - как угодно. Числа всё равно прочитаются последовательно.

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

мне надо сейчас просто исправить условие, чтобы он считал сумму не нечетных элементов, а четных

Ну вот, как раз, тот код, который я выше показал - он посчитает сумму именно тех элементов, которые находятся на чётных местах. И при этом не нужно выбирать разделитель целой и дробной части - точка или запятая. При чтении вещественных чисел из файла через Read() разделителем дробной и целой части всегда должна быть точка. Не зависимо от региональных установок.

@RekcaR · 03.07.2013, 21:43 **[ТС]**

начал исправлять, ошибка за ошибкой

@RekcaR · 03.07.2013, 21:51 **[ТС]**

Спасибо, все сделал.
Number_File.rar

@RekcaR 0 / 0 / 0 Регистрация: 26.04.2013 Сообщений: 125
		1
	Файлы 02.07.2013, 18:17. Показов 553. Ответов 5 Метки нет (Все метки) Дан файл вещественных чисел. Найти сумму его элементов с четными номерами. Number_File_1.rar прога считывать должна нечетные элементы, но не работает... 0

@RekcaR 0 / 0 / 0 Регистрация: 26.04.2013 Сообщений: 125
	03.07.2013, 21:19 [ТС]	3
	вообще я просто тупанул, цифры надо вбивать вертикально-столбиком, а не в строку. мне надо сейчас просто исправить условие, чтобы он считал сумму не нечетных элементов, а четных 0

@Mawrat 13104 / 5885 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	03.07.2013, 21:29	4
	Сообщение от RekcaR цифры надо вбивать вертикально-столбиком, а не в строку. А когда читаешь из файла через Read(), то нет никакой разницы как они расположены - в строку или в столбик. Или часть в строку, а часть идут в столбик - как угодно. Числа всё равно прочитаются последовательно. Сообщение от RekcaR мне надо сейчас просто исправить условие, чтобы он считал сумму не нечетных элементов, а четных Ну вот, как раз, тот код, который я выше показал - он посчитает сумму именно тех элементов, которые находятся на чётных местах. И при этом не нужно выбирать разделитель целой и дробной части - точка или запятая. При чтении вещественных чисел из файла через Read() разделителем дробной и целой части всегда должна быть точка. Не зависимо от региональных установок. 1

@RekcaR 0 / 0 / 0 Регистрация: 26.04.2013 Сообщений: 125
	03.07.2013, 21:43 [ТС]	5
	начал исправлять, ошибка за ошибкой 0

@RekcaR 0 / 0 / 0 Регистрация: 26.04.2013 Сообщений: 125
	03.07.2013, 21:51 [ТС]	6
	Спасибо, все сделал. Number_File.rar 0