Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
emilija
1 / 1 / 2
Регистрация: 19.12.2013
Сообщений: 117
1

Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму

30.03.2014, 16:03. Просмотров 626. Ответов 3
Метки нет (Все метки)

Создать файл number.txt и вписать туда разные числа. Написать программу которая считает сколько чисел в текстовом файле number.txt и определяет их сумму.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.03.2014, 16:03
Ответы с готовыми решениями:

Написать программу которая запрашивает ряд чисел и считает их сумму
написать программу которая запрашивает ряд чисел и считает их сумму. количество...

Создать в программе Блокнот текстовый файл. Написать программу, которая высчитывает количество слов и чисел в созданном текстовом файле.
Через процедуру Assign.... Создать в программе Блокнот текстовый файл....

Написать программу, которая определяет сколько полных минут и секунд содержится в Х секундах
Написать программу, которая определяет сколько полных минут и секунд содержится...

Написать программу, которая запрашивает у пользователя отрицательные числа и считает их сумму
Написать программу, которая запрашивает у пользователя отрицательные числа и...

Написать программу, которая находит наибольшую последовательность цифр в созданном текстовом файле
Нужна ваша помощь в решении задач по теме "файлы" 1. Написать программу,...

3
emilija
1 / 1 / 2
Регистрация: 19.12.2013
Сообщений: 117
31.03.2014, 20:33  [ТС] 2
Кто нибудь помогите с этой программой
0
Cyborg Drone
Модератор
5398 / 3208 / 2450
Регистрация: 17.08.2012
Сообщений: 10,275
31.03.2014, 23:10 3
Лучший ответ Сообщение было отмечено emilija как решение

Решение

Файл number.txt создайте с помощью блокнота в корневом каталоге диска c:
Не допускайте пустых строк в конце файла. Каждое число располагайте на отдельной строке.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var n, s: real;
    f: text;
    k: integer;
begin
  assign(f, 'c:\number.txt');
  reset(f);
  s := 0;
  k := 0;
  while not(eof(f)) do
    begin
      readln(f, n);
      s := s + n;
      inc(k)
    end;
  writeln('s = ', s, ',  k = ', k);
  readln
end.
1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
4036 / 2656 / 2132
Регистрация: 22.11.2013
Сообщений: 7,461
02.04.2014, 19:16 4
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Не допускайте пустых строк в конце файла
Это ограничение легко обойти следующим образом:
Pascal
1
while not SeekEOF(f) do
Добавлено через 2 минуты
Да и количество чисел считал бы несколько иначе:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  n, s: real;
  k: integer;
  f: text;
begin
  assign(f, 'c:\number.txt'); reset(f);
  while not SeekEOF(f) do begin
    read(f, n);
    s:=s+n;
    inc(k);
  end;
  writeln('s = ', s, ',  k = ', k);
  readln
end.
Добавлено через 3 минуты
Допустим, дан файл:
Код
1 2 3
4 5 6
7 8 9
Ваш результат: s=12, k=3
Мой результат: s=45, k=9
и что-то мне подсказывает, что мой ближе к истине ;-)
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.04.2014, 19:16

напишите программу,которая определяет сумму всех положительных чисел вводимой последовательности из N целых чисел.
help me,please!!!

Написать программу, которая переводит выражение, записанное в обычной (инфиксной) форме в текстовом файле infix, в постфиксную форму
Дали непростые задачи по программированию. Кто бы мог хотя бы ввести меня в...

Разработать программу,которая содержит функцию,которая подсчитывает в произвольном текстовом файле количество
Разработать программу,которая содержит функцию,которая подсчитывает в...


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

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

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