Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.03.2016, 17:41   #1
Вутвут
Новичок
Джуниор
 
Регистрация: 03.03.2016
Сообщений: 2
По умолчанию Заполните два массива длинной по 10 элементов каждый случайными целыми числами из диапазона от 10 до 100 так, что бы все 20 чисел

Заполните два массива длинной по 10 элементов каждый случайными целыми числами из диапазона от 10 до 100 так, что бы все 20 чисел были различными. Задачу решить 3 методами.
Вутвут вне форума Ответить с цитированием
Старый 03.03.2016, 17:48   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Вутвут Посмотреть сообщение
Задачу решить 3 методами.
О!

я даже знаю какими.
записывайте:
Метод один, метод два, метод три.

Я угадал?!

p.s. что за методы предлагаются? Или какие у Вас есть мысли на этот счёт?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 03.03.2016, 17:50   #3
Вутвут
Новичок
Джуниор
 
Регистрация: 03.03.2016
Сообщений: 2
По умолчанию

Мне информатик сказал решить тремя методами, и все.
Вутвут вне форума Ответить с цитированием
Старый 03.03.2016, 17:54   #4
FPaul
Форумчанин
 
Регистрация: 25.01.2015
Сообщений: 472
По умолчанию

Возможно имелись в виду:
1. Списать
2. Купить
3. Уговорить (родителей, друзей, форум)
FPaul вне форума Ответить с цитированием
Старый 03.03.2016, 17:57   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Удалил два кросспоста, у автора ABC
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 03.03.2016, 18:10   #6
FPaul
Форумчанин
 
Регистрация: 25.01.2015
Сообщений: 472
По умолчанию

Сдайте один. Всё равно никто не поверит в ваши знания... А информатику скажите, что ничего не можете и не знаете.
Код:
program test;

var
  a, b: array[1..10] of byte;
  used: set of byte;
  r: byte;
  i: integer;
begin
  randomize;
  used := [];
  for i := 1 to 10 do
  begin
    repeat
      r := 10 + random(91);
    until not (r in used);
    a[i] := r;
    include(used, r);
  end;
  for i := 1 to 10 do
  begin
    repeat
      r := 10 + random(91);
    until not (r in used);
    b[i] := r;
    include(used, r);
  end;
  for i := 1 to 10 do
    Write(a[i]: 4);
  writeln;
  for i := 1 to 10 do
    Write(b[i]: 4);
  writeln;
end.
FPaul вне форума Ответить с цитированием
Старый 03.03.2016, 19:05   #7
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Можно слить все в один - там будет a[i] = a[i-1]+Random(сколько-то)+1;
А потом распилить их на два и там размешать..
Можно еще делать это в двух разных сразу. Мол в первом все будут от A до B. 2 - [C;D]. Где эти два отрезка не пересекаются..
А потом рандомно их мешать.
Poma][a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
написать программу массивы (C++) - Создать 2 массива по 5 элементов. Заполнить их случайными числами и отсортировать Саша1990 Помощь студентам 1 02.02.2015 00:01
Заданы два массива из 10 целых чисел каждый maxim1592 Паскаль, Turbo Pascal, PascalABC.NET 21 28.05.2014 23:56
заполнить массив A (40) случайным образом целыми числами с диапазона [100, 999] prosto_man Паскаль, Turbo Pascal, PascalABC.NET 9 25.11.2013 22:58
QBasic: Массив x(20) заполнить целыми случайными числами (1-100)... ski11 Помощь студентам 8 14.02.2010 14:08
заполнить файл целыми числами из отрезка [—100; 100] с помощью датчика случайных чисел. ALEX-7-7-7 Паскаль, Turbo Pascal, PascalABC.NET 4 05.04.2009 14:51