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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.03.2017, 23:57   #1
pasterr
 
Регистрация: 22.11.2016
Сообщений: 8
По умолчанию Нахождение простых чисел массива - Pascal ABC

Найти местонахождение простых чисел массива Х[1..n]. Создать из этих значений новый массив С [1..m].
pasterr вне форума Ответить с цитированием
Старый 06.03.2017, 05:15   #2
Hitoku
Пользователь
 
Аватар для Hitoku
 
Регистрация: 05.03.2017
Сообщений: 18
По умолчанию

Код:
function prost(i:integer):boolean;
var j:integer;
begin
 j:=2;
while (i mod j <> 0) do inc(j);
if i=j then prost:=true
else prost:=false
end;
var a,b:array[1..100] of integer;
    m,n,i:integer;
begin
randomize;
write('N = '); n:=ReadlnInteger;
writeln('Массив А'); m:=0;
for i:=1 to n do begin
  a[i]:=random(51);
  write(a[i]:3);
  if prost(a[i]) then begin
    m:=m+1;
    b[m]:=a[i];
   end;
 end;
writeln;
if m=0 then write('Простых чисел нет')
else begin
  writeln('Простые числа');
  for i:=1 to m do
  write(b[i]:3);
 end;
end.
Здесь должна быть подпись... Но чего-то лень придумывать(

Последний раз редактировалось Hitoku; 06.03.2017 в 05:17.
Hitoku вне форума Ответить с цитированием
Старый 06.03.2017, 14:40   #3
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

Сколько кода)
Код:
function IsPrime(x: integer) := Range(2, Round(x.Sqrt)).All(i -> x mod i<>0);
begin
  var n:=ReadInteger('N = ');
  var x:=ArrRandomInteger(n, 0, 1000);
  writeln('Massive X:');
  x.Println;
  writeln('Massive C:');
  var c:=x.Where(IsPrime).Println;
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Считать массив чисел из файла и записать в другой файл два массива (Pascal ABC) Luka_Megurine Помощь студентам 0 20.12.2016 16:51
Нахождение простых чисел через решето Эратосфена (Си) forsazh12 Помощь студентам 3 13.03.2016 12:49
подпрограммма обнуления отрицательных чисел массива Pascal ABC программирование Помощь студентам 1 04.06.2013 08:26
Pascal ABC вывод чисел и нахождение интервала DevilSkyS Помощь студентам 0 20.11.2012 20:54
Нахождение простых чисел. Lunex.08 Общие вопросы C/C++ 7 10.04.2009 17:01