Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Алексей_12
0 / 0 / 0
Регистрация: 27.12.2014
Сообщений: 2
#1

Посчитать количество вхождений в файл буквы введенную с клавиатуры

27.12.2014, 16:41. Просмотров 956. Ответов 2
Метки нет (Все метки)

Дан текстовый файл посчитать кол-во вхождений в него буквы введенную с клавиатуры.

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

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.12.2014, 16:41
Ответы с готовыми решениями:

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

Используя стек, написать процедуру или функцию, которая определяет количество вхождений буквы Е в файл
Используя стек, написать процедуру или функцию, которая определяет количество...

Организовать процедуру, позволяющую записать в текстовый файл введенную с клавиатуры строку
Организовать процедуру, позволяющую записать в текстовый файл введенную с...

Организовать процедуру, позволяющую записать в текстовый файл введенную с клавиатуры строку
Написать программу: 1). Организовать процедуру, позволяющую записать в...

Файл содержит буквы,посчитать буквы 'p'. нужно только найти ошибку
Помогите пожалуйста найти ошибку) Файл содержит буквы латинского алфавита....

2
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,655
Записей в блоге: 1
28.12.2014, 11:22 #2
Лучший ответ Сообщение было отмечено Алексей_12 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var f:text;
    ch:char;
    k:integer;
    s:string;
Begin
    Assign(f,'in.txt');Reset(f);
    write('Буква: ');readln(ch);
    While not Eof(f) do
    Begin
      readln(f,s);
      While Pos(ch,s)>0 do
      Begin
        inc(k);
        Delete(s,Pos(ch,s),1);
      End;
    End;
    if k>0 then writeln('Вхождений ',ch,' в файл = ',k)
     else writeln(ch,' не встречается');
    Close(f);
    readln;
End.
0
Cyborg Drone
Модератор
5273 / 3140 / 2440
Регистрация: 17.08.2012
Сообщений: 10,111
03.01.2015, 23:10 #3
Более короткий вариант с применением типизированного файла.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const s = 'in.txt';
var f: file of char;
    c, t: char;
    k: integer;
begin
  k := 0;
  write('Symbol = '); readln(c);
  assign(f, s); reset(f);
  while not eof(f) do
    begin
      read(f, t);
      if t = c then inc(k)
    end;
  close(f);
  if k = 0
    then writeln('Symbol "', c, '" in file "', s, '" not found.')
    else writeln('Count of symbol "', c, '" in file "', s, '" = ', k);
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.01.2015, 23:10

Найти количество вхождений буквы s в строку
В строке символов длиной 50 найти найти количество вхождений буквы s .

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

В данной строке подсчитать количество вхождений каждой буквы
В данной строке подсчитать количество вхождений каждой буквы


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

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

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