Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
RekcaR
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 124
Завершенные тесты: 1
#1

Файлы - Delphi

02.07.2013, 18:17. Просмотров 348. Ответов 5
Метки нет (Все метки)

Дан файл вещественных чисел. Найти сумму его элементов с четными номерами.
Number_File_1.rar прога считывать должна нечетные элементы, но не работает...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.07.2013, 18:17
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Файлы (Delphi):

Написать программу, преобразующую XML-файлы в DDF-файлы - Delphi
Нужно написать программу, преобразующую XMLфайлы в DDFфайлы... Посоветуйте с чего начать? Есть ли готовый код..

Файлы - Delphi
Дан файл, содержащий текст на русском языке, выбрать из него те символы , которые встречаются в нем только раз. Прошу помощи.

Файлы - Delphi
не могу открыть несколько файлов по очереди чтобы считать с них инфо точнее не знаю как) например есть массив с названиями файлов ...

Файлы - Delphi
Есть программа, она проверяет введенную информацию с файлом. Нужно что бы файл был "защищенным". То есть что б пользователь его не мог...

Файлы - Delphi
Создать текстовый файл, каждая строка которого содержит фамилию, имя и отчество человека. Вывести сведения из файла в таблицу вида: ...

файлы - Delphi
как правильно написать memo1.Lines.SaveToFile(SaveDialog1.FileName + strTostr(test)+ '.ini'); вот где strTostr(test) как правильно...

5
Mawrat
12788 / 5695 / 672
Регистрация: 19.09.2009
Сообщений: 8,838
02.07.2013, 19:04 #2
Вопрос на засыпку: "Буратино дали 5 яблок. Потом он съел 2 яблока. Сколько яблок осталось у Буратино?". Ответ 3 - неверный. Правильный ответ - не менее 3-ёх. Потому что неизвестно сколько яблок уже было у Буратино перед тем, как ему вручили 5 яблок. Это к тому, что переменные надо обнулять перед вычислениями.
Поэтому в методе TForm1.N14Click() перед вычислением суммы надо обнулить переменную SUM. В добавок, этот метод подсчитывает не те элементы. В задании сказано:
Цитата Сообщение от RekcaR Посмотреть сообщение
Найти сумму его элементов с чётными номерами.
Здесь имеется в виду, что нумерация элементов начинается с 1. Соответственно, первый элемент - нечётный, второй - чётный и т. д..
Делать надо так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
{Подсчёт суммы чисел, расположенных в файле на чётных позициях.
В файле в записях чисел в качестве разделителя целой и дробной частей
должна использоваться точка: '.'. Числа в файле должны отделяться друг от
друга любыми разделителями из следующего списка:
#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.
1
RekcaR
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 124
Завершенные тесты: 1
03.07.2013, 21:19  [ТС] #3
вообще я просто тупанул, цифры надо вбивать вертикально-столбиком, а не в строку.
мне надо сейчас просто исправить условие, чтобы он считал сумму не нечетных элементов, а четных
0
Mawrat
12788 / 5695 / 672
Регистрация: 19.09.2009
Сообщений: 8,838
03.07.2013, 21:29 #4
Цитата Сообщение от RekcaR Посмотреть сообщение
цифры надо вбивать вертикально-столбиком, а не в строку.
А когда читаешь из файла через Read(), то нет никакой разницы как они расположены - в строку или в столбик. Или часть в строку, а часть идут в столбик - как угодно. Числа всё равно прочитаются последовательно.
Цитата Сообщение от RekcaR Посмотреть сообщение
мне надо сейчас просто исправить условие, чтобы он считал сумму не нечетных элементов, а четных
Ну вот, как раз, тот код, который я выше показал - он посчитает сумму именно тех элементов, которые находятся на чётных местах. И при этом не нужно выбирать разделитель целой и дробной части - точка или запятая. При чтении вещественных чисел из файла через Read() разделителем дробной и целой части всегда должна быть точка. Не зависимо от региональных установок.
1
RekcaR
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 124
Завершенные тесты: 1
03.07.2013, 21:43  [ТС] #5
начал исправлять, ошибка за ошибкой
0
RekcaR
0 / 0 / 0
Регистрация: 26.04.2013
Сообщений: 124
Завершенные тесты: 1
03.07.2013, 21:51  [ТС] #6
Спасибо, все сделал.
Number_File.rar
0
03.07.2013, 21:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.07.2013, 21:51
Привет! Вот еще темы с ответами:

Файлы - Delphi
Дан файл f компоненты которого являются вещественными числами. Найти разность первой и последней компонент файла. unit Unit1; ...

файлы - Delphi
Здравствуйте, помогите пожалуста с задачей: Дан файл input, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия...

Файлы - Delphi
18. Дан текстовый файл. Абзацы выделяются в нем с помощью красной строки (5 пробелов), а пустых строк нет. Вставить между соседними...

Файлы. - Delphi
3. Дан текстовый файл f. Записать в файл g все строки длиной менее 10 символов, а в файл h – все остальные строки Пожалуйста помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru