С Новым годом! Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 10.06.2015
Сообщений: 2
1

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

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

Author24 — интернет-сервис помощи студентам
Добрый день! Сильно не ругайтесь, я не слишком опытный
Прошу помощи, есть задание:
Описать функцию которая считает количество строк в текстовом файле которые состоят из одних букв.
пример:
роза
азор
ууу
ууу
должно вывести результат (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
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.06.2015, 18:25
Ответы с готовыми решениями:

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

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

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

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

1
Модератор
10065 / 5407 / 3353
Регистрация: 17.08.2012
Сообщений: 16,549
14.06.2015, 11:38 2
Цитата Сообщение от kos9ik Посмотреть сообщение
которые состоят из одних букв
Если так, то в первом примере должно вывести 4, а не 2, как Вы написали (строки "роза", "азор", "ууу", "ууу" состоят только из букв), а во втором примере должно вывести 2, что абсолютно правильно (строки "ууу" и "ууу" состоят только из букв, строки "ццц цц цц" и "ццц цц цц", кроме букв, содержат пробелы). Может быть, Ваше задание понято Вами неверно? Или, может быть, Вы привели неверный текст задания?
0
14.06.2015, 11:38
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.06.2015, 11:38
Помогаю со студенческими работами здесь

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

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

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

Посчитать количество строк в текстовом файле
Помогите пожалуйста!!! 6. Дан текстовый файл. Посчитать количество строк в нем. Результат выведите...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru