Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.06.2009, 18:36   #11
Вавел из ГМТУ
Форумчанин
 
Регистрация: 19.06.2009
Сообщений: 896
По умолчанию

Ну не множество а массив в который забивается алфавит...
Вавел из ГМТУ вне форума Ответить с цитированием
Старый 20.06.2009, 19:07   #12
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

такой вариант
Код:
var
	s:string;
	x:array['a'..'z'] of string;
	i:byte;
	j:char;
begin
	readln(s);
	for i:=1 to length(s) do
		if (s[i] in ['a'..'z']) then
			x[s[i]] := x[s[i]] + s[i] + ' ';
	for j:='a' to 'z' do 
		write(x[j]);
	readln;
end.
Только массив x пустыми значениями вначале проинициализируйте еще)

***
еще следует добавить проверку на вхождение эл-та в мн-во 'a'..'z', иначе будет выкидывать при встрече любого другого символа (исправил выше)
Uguu~

Последний раз редактировалось __STDC__; 20.06.2009 в 19:11.
__STDC__ вне форума Ответить с цитированием
Старый 21.06.2009, 00:24   #13
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

а мне больше понравился алгоритм от Daramant
(я бы и сам так же делал)
вот реализация:
Код:
var CCount:array['A'..'Z'] of integer;
  k : char;
  i : integer;
  S : string;
begin
  {предварительно обнулим счётчик символов}
  for k:='A' to 'Z' do CCount[k] := 0;

  WriteLn;
  Write('Введите строку:');
  Readln(S);

  {цикл подсчёта}
  for i:=1 to Length(S) do
    if S[i] in ['a'..'z','A'..'Z'] then
      {UpCase позволяет считать
         и строчные и прописные буквы не различая их!}
      inc(CCount[UpCase(S[i])]);

  {теперь вывод результатов}
  for k:='A' to 'Z' do
     for i:=1 to CCount[k] do Write(k,' ');

  readln;
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить программу, которая запрашивает пароль Olesya2406 Помощь студентам 5 28.04.2015 17:20
Составить программу, которая создает и выводит на экран файл. STEELKUZNECOV Помощь студентам 1 30.05.2009 09:50
17 Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в шестнадцатеричн OTLi4HO Общие вопросы C/C++ 1 16.01.2009 13:59
Составить программу которая будет сортировать все положительные элементы Wast Паскаль, Turbo Pascal, PascalABC.NET 1 22.12.2008 15:56
Составить процедуру, которая в задоном массиве С заменяет элементы Absent Помощь студентам 1 25.03.2008 23:11