Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
джульетта
0 / 0 / 0
Регистрация: 12.07.2012
Сообщений: 21
#1

Сколько значений элементов в массиве А встречается более одного раза? - Turbo Pascal

12.07.2012, 21:55. Просмотров 847. Ответов 2
Метки нет (Все метки)

помогите решить задачку. на завтра очень нужно
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.07.2012, 21:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Сколько значений элементов в массиве А встречается более одного раза? (Turbo Pascal):

Для каждого символа заданного текста указать, сколько раз он встречается в тексте. Сообщение об одном символе должно печататься не более одного раза. - Turbo Pascal
ОБРоБОтка символьных строк. Для...

В тексте найти все слова, у которых буква встречается более одного раза - Turbo Pascal
Задача: В тексте найти все слова, у которых буква встречается более одного раза. Записать их в новый текст. В этом тексте слова...

Найти количество слов, в которых заданная буква встречается более одного раза - Turbo Pascal
Помогите пожалуйста. Дано срока.В заданной строке определить количество слов, в которых заданная буква встречается более одного раза.

Найти в тексте слова, в которых первая буква слева встречается более одного раза - Turbo Pascal
Здраствуйте вот есть задачка, немогу ие решить :(.Найти в тексте слова, в которых первая буква слева встречается более одного раза. В...

Найти в тексте слова, в которых вторая буква справа встречается более одного раза. - Turbo Pascal
Здраствуйте, нужна помощь в такой задачке: вводитса строка в строке слова разделяющиеся пробелом в конце стоит точка надо вивести на екран...

Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое вхождение - Turbo Pascal
Народ.помогите решить задачку Дана символьная строка. Если какой-то символ в ней встречается более одного раза, оставить только первое...

2
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
12.07.2012, 22:42 #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
uses crt;
 
var a: array [1..100] of integer;
    n,i,j,jj,k: integer;
    bool: boolean;
 
 
begin clrscr; randomize;
write('Skoliko elementov v massive? '); readln(n);
write('Ishodnyi massiv: ');
for i:=1 to n do
 begin
 a[i]:=random(20);
 write(a[i],' ');
 end;
writeln; writeln;
 
k:=0;
while n > 0 do
 begin
 j:=2;
 bool:=false;
 while j <= n do
  if a[j] = a[1] then
   begin
   bool:=true;
   for jj:=j to n-1 do a[jj]:=a[jj+1];
   dec(n);
   end
  else inc(j);
 if bool = true then inc(k);
 for jj:=1 to n-1 do a[jj]:=a[jj+1];
 dec(n);
 end;
 
writeln('V massive nahoditsia ',k,' elementa(-ov), kotorye vstrechaiutsia bolee odnogo raza');
readkey; end.
1
MansMI
1290 / 1068 / 299
Регистрация: 08.01.2012
Сообщений: 4,066
12.07.2012, 23:02 #3
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
uses crt;
var arr:array[1..100]of integer;
    a,i,j,n,nn,nnn:integer;
begin
  clrscr;
  write('Количество ЦЕЛЫХ элементов массива(1-100):');
  readln(n);
  for i:=1 to n do 
  begin
    write('Элемент',i,':');
    readln(arr[i]);
  end;
    
  while n>0 do
  begin
    i:=1;
    a:=arr[1];
    nn:=0;
    while i<=n do
    begin
      if a=arr[i] then
      begin 
        nn:=nn+1;
        for j:=i to n-1 do arr[j]:=arr[j+1];
        n:=n-1;
        i:=i-1;
      end;
      i:=i+1;
    end;
    if nn>1 then
    begin
      writeln(a,' встречается ',nn,' раза');
      nnn:=nnn+1;
    end;
  end;
  writeln(nnn,' значений встречаются несколько раз');
  readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.07.2012, 23:02
Привет! Вот еще темы с ответами:

Подсчитайте, сколько различных символов слова употребляется в его написании более одного раза - Turbo Pascal
Подсчитайте, сколько различных символов слова Х употребляется в написании Х БОЛЕЕ ОДНОГО РАЗА. P.s.: программа сама должнавывести каждый...

составьте программу нахождения максимального из чисел, встречающихся в заданном двумерном массиве более одного раза - Turbo Pascal
составьте программу нахождения максимального из чисел, встречающихся в заданном двумерном массиве более одного раза.

Дан массив A[6,6]. Найти мах среди элементов, повторившихся более одного раза. - Turbo Pascal
Доброго времени суток. Задача:Дан массив A. Найти максимальный элемент среди элементов, повторившихся более одного раза. Вообщем все...

Найти и распечатать числа, которые встречаются в массиве более одного раза - Pascal
Одномерный массив А состоит из 30 элементов. Найти и распечатать числа, которые встречаются в массиве более одного раза. Помогите сделать


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

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

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