0 / 0 / 0
Регистрация: 09.12.2014
Сообщений: 1
1

Исключение из текста строк, содержащих заданный символ нечетное количество раз

09.12.2014, 09:51. Показов 746. Ответов 1
Метки нет (Все метки)

Надо создать программу, которая исключает из текста строк, содержащих заданный символ нечетное количество раз. Нет самого главного. Помогите, пожалуйста.
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
uses crt;
var f1, f: text;
    s: string;
    i,k,ns: byte;
begin
  ClrScr;
  assign(f,'D:\user\41-21\input.txt');
  assign(f1,'D:\user\41-21\output.txt');
  reset(f);
  rewrite(f1);
  writeln('Kolichestvo simvolov v strokah:');
  while not (eof(f)) do
      begin
      inc(ns);
      readln(f,s);
         k:=0;
         for i:=1 to length(s) do
             if s[i]='!' then inc(k);
         writeln(ns,' stroka - ',k);
      end;
  reset(f);
  writeln('Stroki, v kotoryh kol-vo simvolov nechyotnoe:');
 
  while not (eof(f)) do
      begin
      readln(f,s);
         k:=0;
         for i:=1 to length(s) do
           if s[i]='!' then inc(k);
           if k mod 2 = 1 then begin
             writeln(s);
 
           end;
      end;
  close(f);
  reset(f);
 
  while not eof(f) do
  begin
    Readln(f,s);
    Writeln(f1,s);
  end;
 
  close(f);
  close(f1);
  readln;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.12.2014, 09:51
Ответы с готовыми решениями:

Поиск в файле строк, содержащих заданный символ, с пропуском строк с определёнными порядковыми номерами
Имеется файл отчета otchet.txt. Найти строки содержащие значёк # (решетка). Но при поиске...

Определить количество слов в строке, содержащих заданный символ
С клавиатуры вводится строка, которая состоит из слов, разделенных одним или несколькими пробелами....

Как в исходной строке b$ определить количество слов, содержащих хотя бы один заданный символ x$
В исходной строке b$ определить количество слов, содержащих хотя бы один заданный символ x$.

Из текста удалить заданный символ, каждый раз сдвигая оставшуюся часть каждой строки “влево”
Из текста удалить заданный символ, каждый раз сдвигая оставшуюся часть каждой строки “влево”.

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
32244 / 20884 / 8086
Регистрация: 22.10.2011
Сообщений: 36,120
Записей в блоге: 7
09.12.2014, 10:50 2
Все гораздо проще:
Pascal
1
2
3
4
5
6
7
8
9
{$reference System.Core.dll}
uses System, System.IO, System.Linq, System.Collections.Generic;
 
var L : List<string> := new List<string>;
begin
  foreach st : string in &File.ReadAllLines('d:\test\input.txt') do
    if not Odd(st.ToCharArray().Where((ch : char) -> ch = '!').Count()) then L.Add(st);
  &File.WriteAllLines('d:\test\output.txt', L.ToArray());
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2014, 10:50
Помогаю со студенческими работами здесь

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

Найти слова, в которых заданный символ встречается наибольшее количество раз
Доброе время суток еще раз :) Нужна помощь в написании программы на Асемблере. Буду благодарен за...

Найти и напечатать все слова строки, в которые заданный символ входит наибольшее количество раз
Задано текст, слова в котором разделены пробелами и разделительными знаками, и символ. Разработать...

Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке
1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru