Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Serhio1
0 / 0 / 0
Регистрация: 27.03.2011
Сообщений: 4
#1

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

12.04.2011, 10:26. Просмотров 595. Ответов 1
Метки нет (Все метки)

Дано символьный файл f. Подсчитать число вхождений в файл каждой из букв a,b,c,d,e,f и представить ответ в виде таблицы
a - Na, b - Nb, c - Nc ... где N - количество вхождений соответствующий букв.

Все, чего я добился - прога проверяет каждую букву в файле, если есть a,b,c... - пишет в таблице 1. Суть в том, как все эти единички для каждой буквы подсчитать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program z1_15;
uses crt;
const l='abcdef';
var f:file of char; x: char;  a:array[1..100] of char;
i,k:integer;
begin
clrscr;
assign (f,'my_file.txt');
reset (f);
while not eof(f) do
begin
k:=0;
read (f,x);
for i:=1 to length(l) do
begin
if x=l[i] then a[i]:=l[i];
end;
write ('',x,' - ',a[i],'',x,'':4);
end;
close(f);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2011, 10:26
Ответы с готовыми решениями:

Найти в файле самое длинное слово и вывести количество его букв
Дано условие: В файле записаны слова. Указать какое слово самое длинное и...

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

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

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

Определить процентное соотношение определенных букв в тексте
В Pascale ABC определить, является ли данное предложение "рычащим", т.е....

1
Puporev
Модератор
54393 / 41973 / 28989
Регистрация: 18.05.2008
Сообщений: 98,873
12.04.2011, 13:03 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program z1_15;
uses crt;
const l=['a'..'f'];
var f:file of char;
    x: char;
    a:array[97..102] of integer;
    i,k:integer;
begin
clrscr;
for i:=97 to 102 do a[i]:=0;
assign (f,'my_file.txt');
reset(f);
while not eof(f) do
 begin
  read (f,x);
  if x in l then inc(a[ord(x)]);
 end;
close(f);
writeln('Встречаемость символов');
for i:=97 to 102 do
writeln(chr(i),' - ',a[i]);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2011, 13:03

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

Найдите количество гласных букв в символьном файле
Найдите количество гласных букв в символьном файле.

В файле посчитать наименьшее количество идущих подряд гласных букв в словах
2)В файле посчитать наименьшее количество идущих подряд гласных букв в словах.


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

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

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