Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/18: Рейтинг темы: голосов - 18, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 08.11.2009
Сообщений: 29
1

2. Дана целочисленная последовательность. Определить количество вхождений каждого числа в последовательность

28.12.2009, 17:21. Просмотров 3337. Ответов 1
Метки нет (Все метки)


Написал программу
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
a,c:array [1..10] of integer;
count,i,p,u: integer;
 
begin
for i:=1 to 10 do begin
 read(p);
 a[i]:=p;
 end;
 
for i:=1 to 10 do begin
  count:=1;
   for u:=1 to 10 do
     if a[i]=a[u] then  count:=count+1; c[i]:=count-1;
     end;
 
for i:=1 to 10 do
writeln(a[i],'  vstrechalos  ',c[i],' raz');
 
end.
Как при выводе количества вхождений каждого числа , убрать повторяющиеся вхождения?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.12.2009, 17:21
Ответы с готовыми решениями:

Определить количество вхождений каждого числа в последовательность
Дана целочисленная последовательность. Определить количество вхождений каждого числа в...

дана последовательность вещественных чисел а1,а2,.а15 Определить являеться ли последовательность упорядоченной по возрастанию
дана последовательность вещественных чисел а1,а2,...а15 Определить являеться ли последовательность...

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

Найти все различающиеся слова, указав для каждого их них число его вхождений в последовательность
пусть дана последовательность, содержащая от 1 до 30 слов в каждом из которых 1 до 5 строчных...

1
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
28.12.2009, 17:31 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a:array [1..10] of integer;
i,c,j:integer;
f:boolean;
 
begin
write('Введите массив -> ');
for i:=1 to 10 do begin read(a[i]);
readln;
 
for i:=1 to 10 do {перебираем все числа}
begin
 f:=true; {пусть оно ранее не встречалось}
 c:=1; {кол-во вхождений, включая само себя}
 for j:=1 to i-1 do if a[i]=a[j] then f:=false; {перебираем все числа до a[i], нашли равный a[i] - значит встречалось, f:=false}
 if f then {и если оно не встречалось ранее}
 begin
  for j:=i+1 to n do if a[i]=a[j] then inc(c); {перебираем все остальные числа после a[i]}
  writeln('Число ',a[i],' встретилось ',c,' раз');
 end;
end;
readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2009, 17:31

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

Вывести все различные слова, указав для каждого из них число его вхождений в последовательность
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы
Дана последовательность А1...А50. Получить новую последовательность, исключив отрицательные элементы

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

дана последовательность, вывести числа в диапазоне от 1.5 до 2.0
Дана последовательность из 10 чисел. Вывести на экран одной строкой числа в интервале от 1.5 до...


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

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

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