Различные числа и случайный порядок |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Различные числа и случайный порядок |
maks |
Сообщение
#1
|
Гость |
1.
Условие: Дано натуральное число N (0<N<1000000). Сколько различных цифр встречается в его записи? Входные данные: Число N вводиться с клавиатуры 122334 Выходные данные: На экран выдаётся одно число, которое указывает количество различных цифр в числе 4 2. Условие: С клавиатуры вводиться число N (0<N<1000). Расположить числа от 0 до N-1 в случайном порядке. (В результате работы алгоритма любая перестановка чисел может встречаться одинаково часто) Входные данные: Число N, введённое с клавиатуры. 10 Выходные данные: Файл Output.txt с набором чисел от 0 до N-1, записанными через пробел 0 5 2 9 3 7 1 8 4 6 |
Ivs |
Сообщение
#2
|
Бывалый Группа: Пользователи Сообщений: 209 Репутация: 0 |
Вот первая:
Код Program Bandy_Round; Var i,j : Integer; { Счетчики в циклах } k : Integer; { Указатель на последний элемент } n : Integer; { Вводимое число } m : Integer; { Цифра числа N } r : Real; { Количество различных букв } a : Array [1..7] of Word; { Массив цифр числа N } Begin Write('Input N (1< N <1000000): '); { Ввод числа N } Readln(n); { --------------------------------------- } i:=1; { i указывает на начало массива a } While n <> 0 do { Заполнение массива a цифрами числа N } begin m:=n mod 10; { Остаток от деления } n:=n div 10; { Сокращаем число на 10 } a[i]:=m; { Присваеваем очередному элементу массива } Inc(i); { Увеличиваем i } end; k:=i-1; { В k указатель на последний элемент } for i:=1 to k do begin n:=0; for j:=1 to k do if a[i]=a[j] then Inc(n); { В n количество встреч цифры в массиве } r:=r+1/n; { В r эта цифра без других её вхождений } end; Write('Output: ',r:0:0); { Вывод суммарного количества разных цифр } ReadKey; { Ждем нажатия любой клавиши } End. { Завершаем программу } -------------------- Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
|
Текстовая версия | 4.05.2024 5:35 |