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

Вывести массив так, чтобы его элементы следовали в алфавитном порядке

12.10.2016, 22:33. Показов 1852. Ответов 2
Метки нет (Все метки)

25. Дан массив x, состоящий из латинских букв. Вывести его так, чтобы его элементы следовали в алфавитном порядке в массиве a, а в массив b все повторящиеся элементы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.10.2016, 22:33
Ответы с готовыми решениями:

Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними – буквы. Преобразованный массив вывести на экран
Добрый день . Задание:Преобразовать массив так, чтобы в нём сначала следовали цифры, а за ними –...

Составить массив так, чтобы элементы матрицы следовали в нем параллельно побочной диагонали
Добрые люди помогите пожалуйста..Вот задачка: Составить одномерный массив В так, чтобы элементы...

Массив: Напишите программу, которая меняет массив так, чтобы его элементы шли в обратном порядке.
Техническое задание Напишите программу, которая меняет массив так, чтобы его элементы шли в...

Составить массив B так, чтобы элементы массива A[0..6, 0..6] следовали в нем в последовательности диагоналей параллельно побочной диагонали
Дали лабораторную работу по информатике Задание: Составить массив В так, чтобы элементы массива A...

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
13.10.2016, 09:43 2
Лучший ответ Сообщение было отмечено Shestak123 как решение

Решение

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
uses crt;
var a,b:array[1..100] of char;
    n,m,i,j:byte;
    c:char;
begin
clrscr;
randomize;
write('Введите размер массива от 2 до 100 n=');
readln(n);
writeln('Исходный массив А');
for i:=1 to n do
 begin
  a[i]:=chr(65+random(26));
  write(a[i]:2);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  c:=a[i];
  a[i]:=a[j];
  a[j]:=c;
 end;
writeln('Массив А в алфавитном порядке');
m:=0;
for i:=1 to n do
 begin
  write(a[i]:2);
  if(i>1)and(a[i]=a[i-1])and((a[i]<>a[i+1])or(i=n)) then
   begin
    inc(m);
    b[m]:=a[i];
   end;
 end;
writeln;
if m=0 then write('Повторяющихся элементов нет')
else
 begin
  writeln('Повторяющиеся элементы');
  for i:=1 to m do
  write(b[i]:2);
 end;
readln
end.
1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7480 / 4352 / 2771
Регистрация: 22.11.2013
Сообщений: 12,470
Записей в блоге: 1
16.10.2016, 09:45 3
Или используя сортировку подсчетом:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a: array [1..100] of Char;
  c: array ['A'..'Z'] of Integer;
  n, i: Integer;
  e: Char;
begin
  repeat Write('N [1-',High(a),']: '); ReadLn(n); until (n>=1) and (n<=High(a));
  for i:=1 to n do a[i]:=Chr(Ord('A')+Random(26));
  for i:=1 to n do Inc(c[a[i]]);
  WriteLn('A ='); for i:=1 to n do Write(a[i]); WriteLn;
  WriteLn('A''='); for e:=Low(c) to High(c) do if c[e]>0 then Write(e); WriteLn;
  WriteLn('B ='); for e:=Low(c) to High(c) do for i:=2 to c[e] do Write(e); WriteLn;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2016, 09:45
Помогаю со студенческими работами здесь

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

переупорядочить заданный одномерный массив так, чтобы его элементы шли в порядке возрастания их близости к целым числам
не могу сделать задачу.....помогите пожалуйста ))))))))) задача: переупорядочить заданный...

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

Отсортировать массив так, чтобы сначала в нем в алфавитном порядке шли согласные буквы латинского алфавита
хмм, странно... в универе делал задачу на windows XP программа работала, пробую дома на Seven...


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

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

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