Различные числа и случайный порядок Опции

[maks]

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

[ozzy]

Процедура, случайным образом перемешивающая элементы массива (легко переделывается под Ваш вариант)

Код

var { Глобальные переменные - Фамилия, имя, класс }
 Name    : string;
 SurName : string;
 Class   : string;
Const
 Dimension = 47;
 NumberOfTest = 15;
Type
 DataRecord=Record
   Nomer,Kolvo:Integer;
   Answer:String;
   Category,Number:Integer;
   Stroki:Array [1..9] of String[70];
 end;
 ErrorsArray = Array [1.. Dimension] of Integer;
Var
 MyOIVT :   DataRecord;
 VArray,MyArray,MyErrors : ErrorsArray;
...
Procedure RandomArray (Var A : ErrorsArray;n1,n2:Integer);
Label
 Metka1,Metka2,Metka3;
var
 i,j,t : Integer;

begin
Randomize;
{For i:=1 to n do
 A[i]:=0;}
A[n1]:=Random((n2-n1+1))+n1;
For j:=n1 to n2-1 do
 begin
  Metka2:
   t:=Random((n2-n1+1))+n1;
   i:=n1;
  Metka3:
   if i>j then goto Metka1;
   if t=a[i] then goto Metka2;
   i:=i+1;
   goto Metka3;
   Metka1:
   a[j+1]:=t;
 end;
end;

Сообщение отредактировано: volvo - 17.12.2004 15:48