Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
kos9ik
0 / 0 / 0
Регистрация: 10.06.2015
Сообщений: 2
1

Найти количество строк в текстовом файле которые состоят из одних букв

10.06.2015, 18:25. Просмотров 370. Ответов 1
Метки нет (Все метки)

Добрый день! Сильно не ругайтесь, я не слишком опытный
Прошу помощи, есть задание:
Описать функцию которая считает количество строк в текстовом файле которые состоят из одних букв.
пример:
роза
азор
ууу
ууу
должно вывести результат (2)

Программа (считает только строки в которых 1 символ). Подскажите реально ли проверять с множеством символов?
Пример:
ууу
ууу
ццц цц цц
ццц цц цц
В ответ выводит 2
Pascal
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
Type symbol= set of char; {описан множественный тип symol из букв}
function SameChars(s: string): boolean;
var i: integer;
begin
  SameChars:=false;
  if s='' then exit;
  for i:=2 to Length(s) do
    if (s[i]<>s[1]) and (s[i]<>' ') then exit;
  SameChars:=true;
end;
var
  m: symbol; {описаны три переменные множественного типа}
  f: text;
  s: string;
  k: integer;
begin
  assign(f, 'c.txt'); reset(f);
  k := 0; m:=[];
  while not eof(f) do begin
    readln(f, s);
    if SameChars(s) and not (s[1] in m) then begin
      inc(k); Include(m,s[1]);
    end;
  end;
  close(f);
  writeln(k, ' strings');
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2015, 18:25
Ответы с готовыми решениями:

Найти количество строк матрицы, которые состоят из одних нулей
Дана квадратная матрица целых чисел. Найти количество строк матрицы, которые...

Удалить из файла все слова,которые состоят из одних и тех же букв
Дан текстовый файл f.Удалить из файлы все слова,которые состоят из одних и тех...

Найти количество строк в текстовом файле
Напишите пожалуйста алгоритм нахождения кол-ва строк в текстовом файле

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

В текстовом файле найти строку, в которой наибольшее количество букв 'А' или 'а', и вывести его на экран
В текстовом файле найти строку, в которой наибольшее количество букв 'А' или...

1
Cyborg Drone
Модератор
5398 / 3209 / 2450
Регистрация: 17.08.2012
Сообщений: 10,283
14.06.2015, 11:38 2
Цитата Сообщение от kos9ik Посмотреть сообщение
которые состоят из одних букв
Если так, то в первом примере должно вывести 4, а не 2, как Вы написали (строки "роза", "азор", "ууу", "ууу" состоят только из букв), а во втором примере должно вывести 2, что абсолютно правильно (строки "ууу" и "ууу" состоят только из букв, строки "ццц цц цц" и "ццц цц цц", кроме букв, содержат пробелы). Может быть, Ваше задание понято Вами неверно? Или, может быть, Вы привели неверный текст задания?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2015, 11:38

Удалить все строки матрицы, которые состоят из одних нулей.
Дана квадратная матрица целых чисел.Удалить все строки матрицы, которые состоят...

В текстовом файле определить количество всех строк и количество символов в каждой строке.
В текстовом файле определить количество всех строк и количество символов в...

Количество пустых строк в текстовом файле
Описать функцию, которая: а) подсчитывает количество пустых строк в текстовом...


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

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

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