Помогите решить

ann55 · 21.01.2013, 01:40

Pascal

1.Найти количество различных элементов в массиве.

2.Используя датчик случайных чисел, заполнить массив из двадцати элементов неповторяющимися числами.

Заранее спасибо!

Léon · 21.01.2013, 01:42

Ну и когда будете учиться? Задачи же легкие!

ann55 · 21.01.2013, 02:14

Я знаю, что легкие. Просто у меня их очень много, а сама я все не успеваю.

Gruvi · 21.01.2013, 02:22

Используя датчик случайных чисел - это как?

Gruvi · 21.01.2013, 02:33

Задача № 2. Используя генератор случайных чисел, заполнить массив из не повторяющимися числами.

Цитата:

uses Crt;
const MAX=20;
var
a :array[1..MAX] of byte;
b :array[1..MAX+5] of byte;
i :byte;
Asc :boolean;

begin
ClrScr;
randomize;
For i:=1 to 20 do begin
Asc:=False;
repeat
a[i]:=random(MAX+6);
if (b[a[i]]=0) and (a[i]>0) and (a[i]<MAX+6) then begin
b[a[i]]:=1;
Asc:=True;
end;
until Asc;
end;
for i:=1 to 20 do Write (a[i],' ');
Writeln;
ReadKey;
end.

Задача № 1. Найти количество различных элементов в массиве.

Цитата:

uses crt;
const n = 10;
var mas : array [1..n] of string;
i, j, num : integer;
begin
clrscr;
writeln('Введите массив:');
for i := 1 to n do
begin
write('m[',i,'] = '); readln(mas[i]);
end;
for i := 1 to n - 1 do
for j := i + 1 to n do
if (mas[i] = mas[j]) then mas[i] := 'duplicate';
writeln('Результат:');
for i := 1 to n do
if mas[i] <> 'duplicate' then inc(num);
writeln('В массиве ',num,' различных элементов:');
for i := 1 to n do
if mas[i] <> 'duplicate' then write(mas[i],' ');
writeln;
readkey;
end.

21.01.2013, 01:40	#1 (permalink)
ann55 Новичок Регистрация: 11.12.2012 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить Pascal 1.Найти количество различных элементов в массиве. 2.Используя датчик случайных чисел, заполнить массив из двадцати элементов неповторяющимися числами. Заранее спасибо!

21.01.2013, 01:40
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Так же вы можете поискать решение проблемы в аналогичных темах Помогите решить Помогите решить Помогите решить Помогите решить Помогите решить

21.01.2013, 01:42	#2 (permalink)
Léon С# - learn or die Регистрация: 17.12.2011 Сообщений: 2,438 Записей в дневнике: 8 Сказал(а) спасибо: 21 Поблагодарили 49 раз(а) в 11 сообщениях Репутация: 19701	Ну и когда будете учиться? Задачи же легкие!

21.01.2013, 02:14	#3 (permalink)
ann55 Новичок Регистрация: 11.12.2012 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Я знаю, что легкие. Просто у меня их очень много, а сама я все не успеваю.

21.01.2013, 02:22	#4 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	Используя датчик случайных чисел - это как?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070