Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Правила Карта Блоги Социальные группы Поиск Сообщения за день  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
2 / 2 / 1
Регистрация: 05.09.2011
Сообщений: 39
1

сортировка букв

23.02.2012, 12:24. Просмотров 1426. Ответов 5
Метки нет (Все метки)
помогите пожалуйста написать программу которая сортирует введенное предложение на гласные и согласные буквы и выводит их.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 23.02.2012, 12:24
Ответы с готовыми решениями:

Сортировка слов в массиве по кол-ву букв в слове
Помогите , задали сделать эту программу в школе , но я без понятия как ее делать ) Буду очень...

Сортировка. Массив латинских букв.
Дан одномерный массив латинских букв. Отсортировать их методом выбора в порядке возрастания....

сортировка списка и количество букв
помогите очень надо! условие: 1) ввести с клавиатуры список товаров на складе. Распечатать...

Сортировка массива латинских букв
Дан массив латинских букв А. Отсортировать их методом выбора в порядке убывания. Вычислить среднее...

5
135 / 132 / 30
Регистрация: 08.12.2009
Сообщений: 565
Записей в блоге: 3
23.02.2012, 12:43 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

var i:integer;
s,resg,ress:string;
begin
write('предожение:');readln(s);
for i:=1 to length(s) do
 begin
  if s[i]='а' then resg[i]:=s[i];
  if s[i]='е' then resg[i]:=s[i];
  if s[i]='ё' then resg[i]:=s[i];
  if s[i]='и' then resg[i]:=s[i];
  if s[i]='о' then resg[i]:=s[i];
  if s[i]='у' then resg[i]:=s[i];
  if s[i]='ы' then resg[i]:=s[i];
  if s[i]='э' then resg[i]:=s[i];
  if s[i]='ю' then resg[i]:=s[i];
  if s[i]='я' then resg[i]:=s[i];
  if s[i]='б' then ress[i]:=s[i];
  if s[i]='в' then ress[i]:=s[i];
  if s[i]='г' then ress[i]:=s[i];
  if s[i]='д' then ress[i]:=s[i];
  if s[i]='ж' then ress[i]:=s[i];
  if s[i]='з' then ress[i]:=s[i];
  if s[i]='й' then ress[i]:=s[i];
  if s[i]='к' then ress[i]:=s[i];
  if s[i]='л' then ress[i]:=s[i];
  if s[i]='м' then ress[i]:=s[i];
  if s[i]='н' then ress[i]:=s[i];
  if s[i]='п' then ress[i]:=s[i];
  if s[i]='р' then ress[i]:=s[i];
  if s[i]='с' then ress[i]:=s[i];
  if s[i]='т' then ress[i]:=s[i];
  if s[i]='ф' then ress[i]:=s[i];
  if s[i]='х' then ress[i]:=s[i];
  if s[i]='ц' then ress[i]:=s[i];
  if s[i]='ч' then ress[i]:=s[i];
  if s[i]='ш' then ress[i]:=s[i];
  if s[i]='щ' then ress[i]:=s[i];
  if s[i]='ъ' then ress[i]:=s[i];
  if s[i]='ь' then ress[i]:=s[i];
 end;
write('гласные: ',resg);
write('Согласные: ',ress);
readln
end.
1
2 / 2 / 1
Регистрация: 05.09.2011
Сообщений: 39
23.02.2012, 12:52  [ТС] 3
она работает не правильно, нужно чтоб он выводил гласные в одну строку, согласные в другую
0
135 / 132 / 30
Регистрация: 08.12.2009
Сообщений: 565
Записей в блоге: 3
23.02.2012, 13:02 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

var i:integer;
s,resg,ress:string;
begin
write('предожение:');readln(s);
for i:=1 to length(s) do
 begin
  if s[i]='а' then resg[i]:=s[i];
  if s[i]='е' then resg[i]:=s[i];
  if s[i]='ё' then resg[i]:=s[i];
  if s[i]='и' then resg[i]:=s[i];
  if s[i]='о' then resg[i]:=s[i];
  if s[i]='у' then resg[i]:=s[i];
  if s[i]='ы' then resg[i]:=s[i];
  if s[i]='э' then resg[i]:=s[i];
  if s[i]='ю' then resg[i]:=s[i];
  if s[i]='я' then resg[i]:=s[i];
  if s[i]='б' then ress[i]:=s[i];
  if s[i]='в' then ress[i]:=s[i];
  if s[i]='г' then ress[i]:=s[i];
  if s[i]='д' then ress[i]:=s[i];
  if s[i]='ж' then ress[i]:=s[i];
  if s[i]='з' then ress[i]:=s[i];
  if s[i]='й' then ress[i]:=s[i];
  if s[i]='к' then ress[i]:=s[i];
  if s[i]='л' then ress[i]:=s[i];
  if s[i]='м' then ress[i]:=s[i];
  if s[i]='н' then ress[i]:=s[i];
  if s[i]='п' then ress[i]:=s[i];
  if s[i]='р' then ress[i]:=s[i];
  if s[i]='с' then ress[i]:=s[i];
  if s[i]='т' then ress[i]:=s[i];
  if s[i]='ф' then ress[i]:=s[i];
  if s[i]='х' then ress[i]:=s[i];
  if s[i]='ц' then ress[i]:=s[i];
  if s[i]='ч' then ress[i]:=s[i];
  if s[i]='ш' then ress[i]:=s[i];
  if s[i]='щ' then ress[i]:=s[i];
  if s[i]='ъ' then ress[i]:=s[i];
  if s[i]='ь' then ress[i]:=s[i];
 end;
writeln('гласные: ',resg);
writeln('Согласные: ',ress);
readln
end.
1
2 / 2 / 1
Регистрация: 05.09.2011
Сообщений: 39
23.02.2012, 13:12  [ТС] 5
она все равно не работает, ничего не выводит!!
0
135 / 132 / 30
Регистрация: 08.12.2009
Сообщений: 565
Записей в блоге: 3
23.02.2012, 13:32 6
Вот это по идее точно должно работать:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

var i,i1,i2,n:integer;
s,resg,ress:string;
begin
write('предожение:');readln(s);
n:=length(s);
for i:=1 to n do
 begin
  if s[i]='a' then begin inc(i1); resg[i1]:=s[i] end;
  if s[i]='е' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='ё' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='и' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='о' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='у' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='ы' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='э' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='ю' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='я' then begin inc(i1); resg[i1]:=s[i];end;
  if s[i]='б' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='в' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='г' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='д' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='ж' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='з' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='й' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='к' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='л' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='м' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='н' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='п' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='р' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='с' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='т' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='ф' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='х' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='ц' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='ч' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='ш' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='щ' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='ъ' then begin inc(i2); ress[i2]:=s[i];end;
  if s[i]='ь' then begin inc(i2); ress[i2]:=s[i];end;
 end;
writeln('гласные: ',resg);
writeln('Согласные: ',ress);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 23.02.2012, 13:32

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

Сортировка букв в слове по алфавиту - составить блок-схему
Эта...тут у меня задачка одна помогите составить алгоритм и блок-схему, ПОЖАЛУЙСТА!!!!!! ...

Сортировка множества букв в алфавитном порядке с использованием ASCII кода на Паскале.
Сортировка множества букв в алфавитном порядке с использованием ASCII кода на Паскале ...

Блок схема.Сортировка «Пузырьком», Сортировка методом «Последовательных перестановок», Сортировка «Вставками»
Помогите, нужны блок схемы Сортировка «Вставками» Program Vstavka; uses dos; Type mass=array ...

Сколько в заданном слове букв А и сколько букв О? Каких букв больше?
НУЖНА ПОМОЩЬ Написать программу которая позволит ответить на следующие вопросы: 1. сколько в...


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

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

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