Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2022, 12:35   #1
Alisa15
Пользователь
 
Регистрация: 28.09.2022
Сообщений: 19
По умолчанию Как исправить программу( паскаль)

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

как исправить чтобы выводило строки которые начинаются с русских слов.
Код:
var 
letter : char;
st : string;
T1, T2: text;
//ch: set of char := ['a'..'z','0'..'9','а'..'я','A'..'Z','А'..'Я'];
begin
      assign(T1, 'T_files.txt');
      assign(T2, 'T_result.txt');
      writeln('введите нужную букву (RU): ');
      readln (letter);
      reset(T1);
      rewrite(T2);
   
while not Eof(T1) do 
  begin
      readln (T1, st);
     // writeln(st[1], ' ',st[1] = letter);
      if (length(st)>0) and (st[1] = letter) then begin
        writeln(T2, st);
        writeln( st)
      end
  end;

Close(t1);
  Close(t2);
end.

Последний раз редактировалось BDA; 30.09.2022 в 15:19.
Alisa15 вне форума Ответить с цитированием
Старый 30.09.2022, 14:23   #2
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

Судя по заданию надо найти окончание первого слова в строке (пробел), после в цикле перебрать все символы слова и проверить их на попадание в диапазон латинского алфавита или символов пунктуации.
Если проверка пройдена, тогда эту строку записать в выходной файл.
macomics вне форума Ответить с цитированием
Старый 01.10.2022, 00:34   #3
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

У меня сложилось немного другое представление:
1. Дан файл, состоящий из строк
2. которые могут начинаться либо с русских, либо с английских слов
Т.е.
а) Создаём множество английских символов
б) В цикле While
в) Читаем строки файла в переменную строкового типа
г) Проверяем принадлежность к множеству английских символов первый символ строки
д) Если не принадлежит, то строку отправляем в новый файл.
е) Конец цикла

PS: Для ТС: Ваше множество символов состоит из латинских и кирилличных символов.
Надо оставить символы только одного языка.
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Старый 01.10.2022, 08:33   #4
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,833
По умолчанию

Цитата:
Сообщение от ViktorR Посмотреть сообщение
У меня сложилось немного другое представление:
Возможно. Просто я рассматриваю слово как набор символов одного алфавита. Если слово состоит из мешанины кириллических или латинских символов - тогда это не русское слово. Еще строка может начинаться и с некоторых символов пунктуации (пробелов, табуляций).
macomics вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Исправить программу Smile189 Общие вопросы Delphi 0 13.12.2016 11:22
Исправить программу Smile189 Общие вопросы Delphi 0 21.10.2016 11:51
Составить процедуру "сжатия" исходной последовательности символов (Паскаль). Помогите пожалуйста исправить программу ИриSка-147 Помощь студентам 8 19.01.2015 15:45
исправить программу Александрq Помощь студентам 0 05.11.2012 00:25
Исправить программу amfisat Общие вопросы C/C++ 3 02.06.2010 08:22