Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
ilia-95
0 / 0 / 0
Регистрация: 28.02.2014
Сообщений: 32
1

Подсчитать и вывести количество тех слов в файле, которые являются записью чисел на Паскале

08.04.2014, 08:51. Просмотров 845. Ответов 1
Метки нет (Все метки)

Помогите решить.

6. Файл состоит из произвольных слов, расположенных по одному слову в строке. Подсчитать и вывести количество тех слов в файле, которые являются записью чисел на Паскале (например, 1, 72.8, 0.33E-5)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.04.2014, 08:51
Ответы с готовыми решениями:

Найти и вывести количество тех из чисел, которые являются положительными
Вводятся N произвольных целых чисел. Найти и вывести количество тех из них,...

Найти сумму только тех чисел, которые являются степенью двойки
С клавиатуры вводится n произвольных натуральных чисел, найти сумму только тех...

Сочетания цикла и разветления: Получить сумму тех чисел, которые являются утроенными нечетными
Дано натуральное число n. Получить сумму тех чисел вида i3 - 3in2 + n(i =...

Подсчитать количество слов в файле
Сформировать текстовый файл. Файл должен содержать не менее 5 строк и в каждой...

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

1
Cyborg Drone
Модератор
5414 / 3222 / 2457
Регистрация: 17.08.2012
Сообщений: 10,319
08.04.2014, 13:57 2
Лучший ответ Сообщение было отмечено ilia-95 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var f: text;
    a: real;
    s: string;
    n, err: integer;
begin
  assign(f, 'c:\num.txt');
  reset(f);
  n := 0;
  while not(eof(f)) do
    begin
      readln(f, s);
      val(s, a, err);
      if err = 0 then inc(n)
    end;
  close(f);
  writeln('Found ', n, ' numbers');
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.04.2014, 13:57

Подсчитать количество слов в заданном файле
Помогите пожалуйста решить 2 задачки: 1. В тестовом файле записано N строк....

Подсчитать количество тех элементов последовательности, которые больше своего левого соседа
С клавиатуры вводится последовательность целых чисел длиной N. Подсчитать...

Процедуры и функции: Найти сумму только тех введенных чисел, которые являются степенью двойки, причем предварительно перевернув их.
Процедуры и функции С клавиатуры вводится n произвольных натуральных чисел....


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

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

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