Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Serhio1
0 / 0 / 0
Регистрация: 27.03.2011
Сообщений: 4
#1

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

12.04.2011, 10:26. Просмотров 590. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос количество определенных букв в файле (Pascal ABC):

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

Файл содержит буквы латинского алфавита. Подсчитать количество букв 'р' в файле. - Pascal ABC
Огромная просьба, помогите, пожалуйста, решить 3 задачи(пожалуйста,если можно, без go to и в Pascal ABC): 1)Разработать программу с...

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

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

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

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

1
Puporev
Модератор
54003 / 41636 / 14719
Регистрация: 18.05.2008
Сообщений: 97,877
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
Привет! Вот еще темы с ответами:

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

Дан символьный файл f Найти количество букв "o" в файле - Pascal
2)Дан символьный фаил f. Наити количство букв 'o'в фаиле. Получите фаил g из символов фаила f, которые стоят на чётных местах

Найти слова, в которых доля определенных букв минимальна - Pascal
Всем огромный приветик! Помогите, пожалуйста с этим Паскалем.... Дана строка. Группы символов, разделенные пробелами и не содержащие...

Найти все группы букв, содержащие наименьшее количество согласных английских букв - Pascal
В поиске нашёл такую же задачу, только на Delphi Помогите решить задачу: Рассматривается непустая строка, содержащая не более 80...


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

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

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