Вывести на экран строки из файла, содержащие символы латинского алфавита

@armentrout · Регистрация: 28.10.2019

Студворк — интернет-сервис помощи студентам

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

@Cyborg Drone · 10.03.2020, 11:18

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  fname = 'text.txt';
var
  f: text;
  s: string;
  i: integer;
begin
  assign(f, fname);
  reset(f);
  while not eof(f) do
    begin
      readln(f, s);
      for i := 1 to length(s) do
        if s[i] in ['A'..'Z', 'a'..'z'] then
          begin
            writeln(s);
            break
          end
    end;
  close(f);
  readln
end.

Файл text.txt должен быть создан заранее, и располагаться в папке с программой. Можно расположить файл и в другом месте, но тогда нужно во 2 строке указать не только имя файла, но и полный путь до него.

@Puporev · 10.03.2020, 11:48

Кириллицу будет неправильно выводить. А как правильно, по простому, без костылей я не знаю.

@mr-Crocodile · 10.03.2020, 15:49

Сообщение от Puporev

Кириллицу будет неправильно выводить. А как правильно, по простому, без костылей я не знаю.

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

вот, например, Решение квадратного уравнения

Отображение Русского языка в консольном окне

мне лично проще всего вариант сделать код программы в кодировке DOS (866)
и поставить вначале {$CODEPAGE CP866}
пример,

Pascal
1
2
3
4
5
{$CODEPAGE CP866}
begin
  writeln('Пример текста на кириллице');
  ReadLn
end.

Добавлено через 1 минуту

Сообщение от Puporev

Кириллицу будет неправильно выводить.

Блин. А при чём здесь Кириллица?!!!
тут же

Сообщение от armentrout

которые содержат символы латинского алфавита.

и в коде Cyborg Drone только латиница...

@volvo · 10.03.2020, 16:10

Сообщение от mr-Crocodile

А при чём здесь Кириллица?!!!

При том, что если в файле будет кириллица, а в исходнике не предпринять никаких мер по работе с определенной кодировкой - то вся кириллица, прочитанная из файла, будет выводится кракозябрами.

@mr-Crocodile · 10.03.2020, 16:14

Сообщение от volvo

При том, что если в файле будет кириллица

а, да, верно. Может быть кириллица.
Ну тогда
1) нужно знать в какой кодировке текстовый файл 'text.txt'
2) нужно использовать один из способов, описанных по приведённым в пост #4 ссылкам.

@Cyborg Drone · 10.03.2020, 16:29

Надеюсь, скоро будет полная поддержка unicode...

@volvo · 10.03.2020, 16:37

Для начала полная поддержка Unicode должна появиться в Windows. Потому что в других осях уже сейчас все прекрасно работает безо всякого указания кодировок:

@mr-Crocodile · 10.03.2020, 17:30

Сообщение от volvo

все прекрасно работает безо всякого указания кодировок:

вот прямо "без указания" ?

Вывести на экран строки из файла, содержащие символы латинского алфавита

p.s. в других операционных системах, как я слышал, тоже можно задать кодировку файла. Просто чаще всего по умолчанию там UTF-8, что, на мой взгляд, правильно и удобно!

@volvo · 10.03.2020, 17:46

Сообщение от mr-Crocodile

вот прямо "без указания" ?

Без указания. Ибо дефолтная кодировка, с которой вся система работает - это UTF8. А в том самом MousePad-е, в котором создавался файл, вообще нет никаких средств для изменения кодировки. Совсем никаких, ни при сохранении, ни при создании (даже того минимума, который есть в стандартном виндовом NotePad-е). Потому что все будет создано и сохранено именно в дефолтной кодировке.

Так что проблема не в FPC. Он как раз с юникодом очень даже дружит, а в системе, которая никак не может избавиться от этой детской болезни: создам и сделаю дефолтной свою собственную кодировку, чтобы все только усложнить, и потом буду героически обновляться, чтобы создать видимость кипучей деятельности по решению этих надуманных проблем.

@bormant · 11.03.2020, 12:14

Сообщение от volvo

Без указания. Ибо дефолтная кодировка, с которой вся система работает - это UTF8.

Слишком категорично. Всей системе можно легко поставить по умолчанию не-UTF-8: например, из русских однобайтных: koi8-r, cp866, windows-1251, iso-8859-5. Список поддерживаемых можно получить по iconv -l, а по localedef скомпилировать локаль с желаемой кодировкой. И всё, приехали. Так что речь только о совпадении умолчаний и не более того.

В Windows в пределах UCF-2 давно все в порядке, а с некоторых пор и с UTF-16 тоже вполне неплохо. Да и UTF-8 в консоли довольно давно вполне поддерживается.

Так что проблемы примерно одного порядка.

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@armentrout 0 / 0 / 0 Регистрация: 28.10.2019 Сообщений: 9

	Вывести на экран строки из файла, содержащие символы латинского алфавита 10.03.2020, 10:32. Показов 2502. Ответов 10 Метки pascal (Все метки) Дан текстовый файл. Разработать программу, которая читает текстовый файл по строкам и выводит на экран только те строки, которые содержат символы латинского алфавита. 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	10.03.2020, 11:48
	Кириллицу будет неправильно выводить. А как правильно, по простому, без костылей я не знаю. 0

@Cyborg Drone Модератор 10440 / 5729 / 3405 Регистрация: 17.08.2012 Сообщений: 17,438
	10.03.2020, 16:29
	Надеюсь, скоро будет полная поддержка unicode... 0

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	10.03.2020, 16:37
	Для начала полная поддержка Unicode должна появиться в Windows. Потому что в других осях уже сейчас все прекрасно работает безо всякого указания кодировок: Миниатюры 0