Подсчитать количество букв в слове.

@Рус777 · Регистрация: 25.01.2009

Author24 — интернет-сервис помощи студентам

Помогите с решением задачи!!! надо сделать так чтобы на экран выдавались только те буквы которые есть в слове.а у меня он выдает весь алфавит.

Pascal

var i:byte;   
    a:array[97..122] of byte;   
    s:string;   
begin   
readln(s);   
for i:=1 to length(s) do   
  a[ord(s[i])]:=a[ord(s[i])]+1;   
for i:=97 to 122 do   
  writeln(chr(i),'-',a[i]);   
end.

@Sergei · 28.01.2009, 14:12

Объясните задание получше тогда поможем

@Рус777 · 28.01.2009, 14:18 **[ТС]**

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

@xToTa · 28.01.2009, 14:18

добавь перед выводом в цикле проверку на ненулевое значение, т.е.
if (a[i]!=0) then writeln (chr(i),'-',a[i]);

@dvma04 · 28.01.2009, 14:19

Сообщение от Sergei

Объясните задание получше тогда поможем

На сколько я понимаю строка – массив символов.
Не Проше ли перебрать ее посимвольно до нахождения символа конца строки?
Счетчик итераций будет числом символов.

@flegmatik · 28.01.2009, 14:20

Pascal

var i:byte;
    a:array[65..90] of byte;
    s:string;
begin
readln(s);
for i:=1 to length(s) do
  begin
    s[i]:=upcase(s[i]);
    a[ord(s[i])]:=a[ord(s[i])]+1;
  end;
for i:=65 to 90 do
  if a[i]<>0 then
    writeln(chr(i),'-',a[i]);
end.

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

способов много, но этот мне кажется наиболее оптимальным и главное работает все прекрасно

@Рус777 · 28.01.2009, 14:21 **[ТС]**

Сообщение от Sergei

Объясните задание получше тогда поможем

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

@Sergei · 28.01.2009, 14:23

То есть все различные буквы которые встречаются в слове

@Puporev · 28.01.2009, 14:25

Надо не по строке идти, а по алфавиту и искать буквы в слове.
for i:=97 to 122 do
for j:=1 to length(s) do
if chr(i)=s[j] then write(chr(i),' ');

@Рус777 · 28.01.2009, 14:28 **[ТС]**

Сообщение от flegmatik

Pascal

var i:byte;
    a:array[65..90] of byte;
    s:string;
begin
readln(s);
for i:=1 to length(s) do
  begin
    s[i]:=upcase(s[i]);
    a[ord(s[i])]:=a[ord(s[i])]+1;
  end;
for i:=65 to 90 do
  if a[i]<>0 then
    writeln(chr(i),'-',a[i]);
end.

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

)))

спс!!!

Добавлено через 1 минуту 21 секунду

Сообщение от Sergei

То есть все различные буквы которые встречаются в слове

уже помогли!!) но все равно спс!!!

@Людмилка · 17.05.2009, 13:57

Помогите пожалуйста....Очень нужна ваша помощь
Мне нужно составить программу для решения задачи: дан текст.Вывести его на экран задом на перёд.

@Puporev · 17.05.2009, 14:16

Pascal

1
2
3

 
for i:=length(s) downto 1 do
write(s[i]);

@Людмилка · 17.05.2009, 19:53

Ещё одна просьбочка помогите кто может!!!!

Нужно составить програму подсчёта буквы "а" в слове

@Puporev · 17.05.2009, 19:56

Pascal

1
2
3

k:=0;
for i:=1 to length(s) do
if s[i]='a' then k:=k+1;

@Людмилка 0 / 0 / 0 Регистрация: 17.05.2009 Сообщений: 5
	17.05.2009, 13:57	11
	Помогите пожалуйста....Очень нужна ваша помощь Мне нужно составить программу для решения задачи: дан текст.Вывести его на экран задом на перёд. 0

@Sergei 1512 / 779 / 103 Регистрация: 22.04.2008 Сообщений: 1,610
	28.01.2009, 14:12	2
	Объясните задание получше тогда поможем 0

@Рус777 17 / 17 / 0 Регистрация: 25.01.2009 Сообщений: 63
	28.01.2009, 14:18 [ТС]	3
	мы вводим слово...программа должна подсчитать сколько раз встретилась каждая буква.и вывести результат на экран. та прога которая написана.выводит на экран весь алфавит.а мне надо чтобы выводило на экран только те буквы которые встречаються в заданном слове. 0

@xToTa 13 / 13 / 1 Регистрация: 26.01.2009 Сообщений: 156
	28.01.2009, 14:18	4
	добавь перед выводом в цикле проверку на ненулевое значение, т.е. if (a[i]!=0) then writeln (chr(i),'-',a[i]); 1

@dvma04 0 / 0 / 0 Регистрация: 28.01.2009 Сообщений: 7
	28.01.2009, 14:19	5
	Сообщение от Sergei Объясните задание получше тогда поможем На сколько я понимаю строка – массив символов. Не Проше ли перебрать ее посимвольно до нахождения символа конца строки? Счетчик итераций будет числом символов. 0

@Рус777 17 / 17 / 0 Регистрация: 25.01.2009 Сообщений: 63
	28.01.2009, 14:21 [ТС]	7
	Сообщение от Sergei Объясните задание получше тогда поможем мы вводим слово...программа должна подсчитать сколько раз встретилась каждая буква.и вывести результат на экран. та прога которая написана.выводит на экран весь алфавит.а мне надо чтобы выводило на экран только те буквы которые встречаються в заданном слове. 0

@Sergei 1512 / 779 / 103 Регистрация: 22.04.2008 Сообщений: 1,610
	28.01.2009, 14:23	8
	То есть все различные буквы которые встречаются в слове 1

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.01.2009, 14:25	9
	Надо не по строке идти, а по алфавиту и искать буквы в слове. for i:=97 to 122 do for j:=1 to length(s) do if chr(i)=s[j] then write(chr(i),' '); 1

@Людмилка 0 / 0 / 0 Регистрация: 17.05.2009 Сообщений: 5
	17.05.2009, 19:53	13
	Ещё одна просьбочка помогите кто может!!!! Нужно составить програму подсчёта буквы "а" в слове 0

	17.05.2009, 19:56