Добрый час.
Дан набор чисел. Как посчитать сколько раз встречается каждое число (на Pascal)?
Дан набор чисел. Как посчитать сколько раз встречается каждое число (на Pascal)?
09.11.2011 09:26:10
Добрый час.
Дан набор чисел. Как посчитать сколько раз встречается каждое число (на Pascal)? |
|
|
|
09.11.2011 15:53:27
системное программирование?
не вижу проблемы в цикле for i:=1 to n do, операторе if и работе с массивом |
|
|
|
09.11.2011 16:30:06
0<=ai<=100, n<=100
Хочу понять логику, как ДЛЯ КАЖДОГО числа подсчитать сколько раз оно встречается.
Изменено: log_in - 09.11.2011 16:45:08
|
|
|
|
09.11.2011 17:02:55
Универсальный вариант:
заводим динамический массив целочисленных (все тот же А1) for i:=0 to количество_элементов_исходного_массива -1 do begin if исходный_массив[i]> Length(A1) then SetLength(A1,исходный_массив[i]); inc(A1[исходный_массив[i]]); end; for i:=0 to Length(A1)-1 do WriteLn('numeric '+i+' count: '+A1[i]); способ рабочий но есть парочка подводных камней, вот каких - хочу это услышать от вас ув. Топикстартер.
Изменено: Александр * - 09.11.2011 17:08:33
|
|
|
|
09.11.2011 17:10:35
|
|||
|
|
09.11.2011 17:14:13
|
|||
|
|
09.11.2011 17:19:56
Всё, я поняла это=) А о каких подводных камнях Вы говорили?
Изменено: log_in - 09.11.2011 17:26:16
|
|
|
|
09.11.2011 17:29:10
ну а этот вариант - вообще тогда взрыв мозга....
сразу уж исходником,
Изменено: Александр * - 09.11.2011 17:35:31
|
|||
|
|
09.11.2011 17:35:56
P.S. Кстати по коду более понятно) |
|||
|
|
09.11.2011 17:42:58
только учитывайте, что для вашей задачи в той постановке, это не самый оптимальный вариант решения, попробуйте написать самый первый мною предложенный вариант.
|
||||
|
|
|||