Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Сформировать матрицу размера M × N, у которой первый столбец совпадает с исходным набором чисел http://www.cyberforum.ru/pascalabc-net/thread1664843.html
Доброе время суток! Помогите с матрицей , не могу решить :( . Условие задачи :Даны целые положительные числа M, N, число D и набор из M чисел. Сформировать матрицу размера M × N, у которой первый...
Ошибка при возведении в степень с функций ln и exp PascalABC.NET
Собственно вот код: var n, c: integer; a, b: real; begin readln(n);{например n=16} a := trunc(log2(n)); b := exp(a*ln(2)); writeln(n-b);{тут выводится...
PascalABC.NET Найти минимальное и второе по величине значение массива
заполнить массив 10 рандомными числами в пределах 100. вывести минимальное число и его номер и предминимум и тоже его номер
PascalABC.NET Использование SetPixel - закраска определенной части экрана Я нашёл вот такой графический код,но мне бы хотелось узнать,как сделать так чтобы эти цвета покрывали не весь экран, а только верх или низ(В общем любое место которое будет указанно в коде) uses... http://www.cyberforum.ru/pascalabc-net/thread1664659.html
PascalABC.NET Вывести элементы выше главной диагонали матрицы в виде треугольника http://www.cyberforum.ru/pascalabc-net/thread1664605.html
:(Дан массив A(5,5). Вывести ее в элементы выше главной диагонали в треугольном виде(т.е напечатать элементы верхнего треугольника в виде треугольника). Заранее спасибо!
PascalABC.NET Подскажите, как упростить код
Доброго времени суток! Собственно кодить только начинаю, родные по такому случаю попросили сделать программу по работе. Программу написал, работает, все довольны. Однако хотелось бы как-то сократить...
PascalABC.NET Ошибка при вычислении выражения
Выдает эту ошибку в строке 20. function Power(a: real; b: real): real; //Выводит результат возведения числа a в степень b begin; Result := exp(b * ln(a)) end; function Factorial(a:...
PascalABC.NET Объясните код Код от цифровых часов,расскажите подробно что делает каждый код,пожалуйста. uses GraphABC,System; begin Font.Size := 80; var x0 := (Window.Width - TextWidth('00:00:00')) div 2; var y0... http://www.cyberforum.ru/pascalabc-net/thread1664291.html
PascalABC.NET Неправильный код http://www.cyberforum.ru/pascalabc-net/thread1664230.html
type man=class public name:string; age:integer; howareyou:string; end; var h:man; begin
PascalABC.NET Определение отношения дробей «не равно» Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида P/Q (где Р — целое число, Q — натуральное число). В модуль включить подпрограмму определения отношения... http://www.cyberforum.ru/pascalabc-net/thread1664126.html
Joy
Эксперт Pascal/Delphi
2225 / 1236 / 1455
Регистрация: 29.08.2014
Сообщений: 4,500
19.02.2016, 06:10 0

Выдать элементы массива, являющиеся простыми числами

19.02.2016, 06:10. Просмотров 972. Ответов 8
Метки (Все метки)

Ответ

volvo, полностью согласен, но почему работает медленнее?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses Arrays, System.Linq;
function isPrime(v : integer) : boolean :=
  (v > 1) and Enumerable.Range(2, Trunc(Sqrt(v)) - 1).all(t -> v mod t <> 0);
function ispr(n:integer):boolean;
begin
  Result:=false;
  if n<2 then exit;
  for i:integer:=2 to round(sqrt(abs(n))) do 
    if n mod i=0 then exit;
  Result:=true;
end;
begin
  var a:=range(1,2000000).Select(i->random(10000000)).ToArray();
  writeln(System.DateTime.Now);
  writeln(a.Where(ispr).Count());
  writeln(System.DateTime.Now);  
  writeln(a.Where(isPrime).Count());  
  writeln(System.DateTime.Now);
end.
вывод:
Код
19.02.2016 9:08:57
132660
19.02.2016 9:09:01
132660
19.02.2016 9:09:10


Вернуться к обсуждению:
Выдать элементы массива, являющиеся простыми числами
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2016, 06:10

Сформировать новый массив, содержащий все элементы исходного массива, являющиеся палиндромами
Сформировать новый массив, содержащий все элементы исходного массива, являющиеся палиндромами.(ввод...

Упорядочить по возрастанию модулей элементы целочисленного массива, расположенные между третьим и пятым простыми числам
Упорядочить по возрастанию модулей элементы целочисленного массива, расположенные между третьим и...

Определить все ли элементы массива различны и выдать соответствующее сообщение на экран.
Определить все ли элементы массива различны и выдать соответствующее сообщение на экран.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru