0 / 0 / 0
Регистрация: 11.07.2009
Сообщений: 40
1

сортировка списка и количество букв

11.07.2009, 10:50. Показов 1272. Ответов 6
Метки нет (Все метки)

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

условие:

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

2)ввести с клавиатуры текст до 255 символов русским языком. Найти количество голосних букв в заданном тексте и для каждой буквы отдельно. Результат напечатать в виде таблицы:
Голосна буква Количество
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.07.2009, 10:50
Ответы с готовыми решениями:

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

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

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

Определить количество букв и количество цифр в строке
Очень прошу, помогите пожалуйста написать программу с использованием подпрограмм, буду очень...

6
Отдыхающий:)
94 / 91 / 22
Регистрация: 05.04.2009
Сообщений: 188
11.07.2009, 22:55 2
№1
Если ты имел ввиду это, то оно здесь:
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
uses crt,printer;
type
str=string[30];
var pr:array[1..50]of str;
k,i,j:byte;
temp:str;
begin clrscr;
write('Size of List: ');
readln(k);
for i:=1 to k do
begin
    writeln('Subj. #',i,' :');
    readln(pr[i]);
end;
for i:=1 to k-1 do
for j:=1 to k-i do
if pr[j]>pr[j+1] then
begin
    temp:=pr[j];
    pr[j]:=pr[j+1];
    pr[j+1]:=temp;
end;
for i:=1 to k do
begin
    writeln(pr[i]);
    writeln(lst,pr[i]);
end;
readkey;
end.
Добавлено через 1 минуту 6 секунд
№2
Просьба уточнить
Цитата Сообщение от rom-scorpion Посмотреть сообщение
и для каждой буквы отдельно.
1
0 / 0 / 0
Регистрация: 11.07.2009
Сообщений: 40
12.07.2009, 00:04  [ТС] 3
1) как раз в яблочко!! огромное СПАСИБО!!

2) для каждой буквы нужно вывести количество в таблицу с такими полями:

гласная буква_______________количество

к примеру:

гласная буква_______________количество
а _____________________________2
с_____________________________3
и так дали...
0
138 / 138 / 65
Регистрация: 20.03.2009
Сообщений: 235
12.07.2009, 04:39 4
помоему буква С, точно не гласная...
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
12.07.2009, 04:57 5
А может Ющенка ее уже в гласные перевел. У них с русским языком что хотят, то и делают.
0
149 / 139 / 57
Регистрация: 05.06.2009
Сообщений: 310
12.07.2009, 08:56 6
№ 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
program EvgeniiSp;
uses Crt;
var
 st: string;
//------------------------
 procedure InputData;
  begin
   writeln('Введите строку текста:');
   readln(st);
  end;
//------------------------
 procedure AnalysisData;
  var
   gl: char;
   i,j,count: byte;
   chars,count_char: set of char;
  begin
   count:=0;
   count_char:=[];
   chars:=['у','е','ы','а','о','э','я','и','ё'];
   for i:=1 to length(st) do
     if st[i] in chars then Inc(count);
   writeln('Количество гласных в тексте - ',count);
   writeln('гласная - количество');
   for i:=1 to length(st) do
     if (st[i] in chars) and not(st[i] in count_char)
      then
       begin
        count:=0;
        gl:=st[i];
        for j:=1 to length(st) do
         if st[j] = gl then Inc(count);
        writeln('    ',gl,'   -   ',count);
        count_char:=count_char+[gl];
       end;
  end;
 
Begin
 ClrScr;
 InputData;
 AnalysisData;
end.
1
0 / 0 / 0
Регистрация: 11.07.2009
Сообщений: 40
12.07.2009, 10:35  [ТС] 7
Цитата Сообщение от c00le® Посмотреть сообщение
помоему буква С, точно не гласная...
это был пример заполнение таблицы...
ошибся, бывает...

Добавлено через 45 минут 47 секунд
Большое спасибо за помощь!
0
12.07.2009, 10:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.07.2009, 10:35
Помогаю со студенческими работами здесь

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

Указать минимальное количество первых букв, по которым можно различить слова из заданного списка
В строке малыми латинскими буквами записаны слова, разделяющиеся запятыми. Первые буквы некоторых...

Определить длину строки и количество букв "а" в ней. Вывести имя и количество букв в фамилии.
Ввести фамилию, имя и отчество как одно данное строкового типа. Определить длину строки и...

Подсчитать количество содержащихся в ней цифр, прописных букв и строчных букв.
Дана строка. Подсчитать количество содержащихся в ней цифр, прописных букв и строчных букв.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru