Автор Дмитрий Евсеев задал вопрос в разделе Другие языки и технологии
как сформировать одномерный массив различных чисел в паскале? и получил лучший ответ
Ответ от { Люцерна }[гуру]
Не силён в программировании.. .
Но - вот.
Значения НЕ повторяются.
var
a: array [1..100] of Integer;
function Put(n, c: Integer): Boolean;
// n - индекс массива, c - число;
var
i: Integer;
begin
for i := 1 to n do
begin
if a = c then
begin
Result := False;
Exit;
end;
end;
a[n] := c;
Result := True;
end;
var
i: Integer;
begin
Randomize;
for i := 1 to 100 do
begin
repeat
Put(i, Random(10000));
until
a <> 0;
WriteLn(a);
end;
ReadLn;
end.
{ Люцерна }
Мастер
(1234)
Да чёрт побери....))
В комментариях - тоже)
В общем, после A должна быть i в квадратных скобках.
Ответ от Енот[гуру]
for i:=1 to n do
begin
m:=random(100);
end;
где n размерность массива, укажешь при описании, 100- интервал из которого будут выбираться числа
for i:=1 to n do
begin
m:=random(100);
end;
где n размерность массива, укажешь при описании, 100- интервал из которого будут выбираться числа
Ответ от Даниил Петранов[эксперт]
Массив задается так : имя: array [номер первого элемента .. номер последнего элемента] of тип переменной;
Пример a:array [1..100] of integer;{в нем будет 100 элементов}
может быть и так a:array [100..1234] of integer;
типы переменных
integer - целые числа
real - дробные числа
byte - целые от 0 да 255 включительно
заполняется
var a:array [1..100] of integer;
i:longint;
begin
randomize;//каждый раз выдаются новые числа
for i:=1 to 100 do
a:=random(100);// значения до 100
end;
а если дробными то
var a:array [1..100] of real;
i:longint;
begin
randomize;
for i:=1 to 100 do
a:=random(100)+random;
end;
Массив задается так : имя: array [номер первого элемента .. номер последнего элемента] of тип переменной;
Пример a:array [1..100] of integer;{в нем будет 100 элементов}
может быть и так a:array [100..1234] of integer;
типы переменных
integer - целые числа
real - дробные числа
byte - целые от 0 да 255 включительно
заполняется
var a:array [1..100] of integer;
i:longint;
begin
randomize;//каждый раз выдаются новые числа
for i:=1 to 100 do
a:=random(100);// значения до 100
end;
а если дробными то
var a:array [1..100] of real;
i:longint;
begin
randomize;
for i:=1 to 100 do
a:=random(100)+random;
end;
Ответ от Ѐоман Малиновский[гуру]
var a : array[1..255] of real;
i : integer;
begin
for i := 1 to 255 do begin
readln(a);
end;
end.
var a : array[1..255] of real;
i : integer;
begin
for i := 1 to 255 do begin
readln(a);
end;
end.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: как сформировать одномерный массив различных чисел в паскале?
Фотошоп - как повторить прошлое действие (в Иллюстраторе это - Ctrl + D)?
Возможно, но только при использовании Action (Действия, Операции, Alt+F9). Записываете действие и,
подробнее...
Как снять нарощенные волосы в домашних условиях??
Наращивание волос: как снять наращенные пряди?
Срок ношения наращенных прядей составляет 3-5
подробнее...
Как принять ислам в Москве? Что для этого надо зделать и куда идти?
Ислам принять очень легко: для этого не нужны какие-либо предварительные действия, надо просто
подробнее...
Самонаказание - это медод самовоспитания, или ошибка....
Это одно из проявлений гордыни, вообще -все действия над личностью не вызванные непосредственной
подробнее...
Как оформить сочинение? как оформить сочинение? Именно ту основную вступительную сторону.
Вступительная часть
Вступительная часть знакомит читателя с темой сочинения и подводит
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
история возникновения сказки, сказка как метод воспитания ребенка
Сказка – это волшебный и увлекательный мир, который манит ребенка удивительными приключениями,
подробнее...
спросили в Дурново
Какие несклоняемые фамилии вы знаете?
Все фамилии, заканчивающиеся на -*любую согласную*о, например, Васейко, иностранные фамилии (не
подробнее...
Какие несклоняемые фамилии вы знаете?
Все фамилии, заканчивающиеся на -*любую согласную*о, например, Васейко, иностранные фамилии (не
подробнее...
спросили в Техника 1623 год
кто создал компьютер с какого года вышел кто создатель
Краткая история компьютерной техники и программ (1623-1999) 1623 Первая "считающая машина",
подробнее...
кто создал компьютер с какого года вышел кто создатель
Краткая история компьютерной техники и программ (1623-1999) 1623 Первая "считающая машина",
подробнее...
спросили в Другое
как правильно оформить сочинения
Вступительная часть
Вступительная часть знакомит читателя с темой сочинения и подводит
подробнее...
как правильно оформить сочинения
Вступительная часть
Вступительная часть знакомит читателя с темой сочинения и подводит
подробнее...
какие организационно-правовые формы чаще всего используются для малых предприятий.
Организационно-правовая форма МП устанавливается в со¬ответствии с Законом «О предприятиях и
подробнее...
спросили в 1150 год 1150 е годы
В каком году разработали первый компьютер?
Краткая история компьютерной техники и программ (1623-1999)
1623 Первая "считающая машина",
подробнее...
В каком году разработали первый компьютер?
Краткая история компьютерной техники и программ (1623-1999)
1623 Первая "считающая машина",
подробнее...
Помогите, как войти в безопасный режим на виндовс 7?
Нажимаем кнопку «Пуск» и в строке поиска пишем msconfig и нажимаем клавишу «Enter».В открывшемся
подробнее...
факториалы можно делить умножать и сокращать??
Конечно. Это ж число, так что с ним можно производить все операции над числами.
Отношение
подробнее...
спросили в Другое
Жизненный путь Пьера Безухова?
Пьер Безухов был внебрачным сыном одного из богатейших людей в России. В обществе его воспринимали
подробнее...
Жизненный путь Пьера Безухова?
Пьер Безухов был внебрачным сыном одного из богатейших людей в России. В обществе его воспринимали
подробнее...
Бизнес план по продаже нижнего белья. Подскажите с чего начать?
С самого начала надо определиться с торговым с местом оно должно быть максимально проходимым я
подробнее...