Форум программистов, компьютерный форум, киберфорум
Наши страницы
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
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
27551 / 18461 / 7296
Регистрация: 22.10.2011
Сообщений: 32,445
Записей в блоге: 6
18.02.2016, 23:11 0

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

18.02.2016, 23:11. Просмотров 972. Ответов 8
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Насколько я понимаю, вот это:
Pascal
1
2
3
4
5
6
uses Arrays, System.Linq;
begin
  var a:=CreateRandomIntegerArray(20);
  writeln(a);
  writeln(a.Where(v -> (v > 1) and Enumerable.Range(2, Trunc(Sqrt(v)) - 1).All(t -> v mod t <> 0)));
end.
будет выдавать те же результаты. "Так зачем писать больше?" (С)

При особом желании можно вынести определение простоты и в функцию:
Pascal
1
2
3
4
5
6
7
8
9
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);
  
begin
  var a:=CreateRandomIntegerArray(20);
  writeln(a);
  writeln(a.Where(isPrime));
end.


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

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

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

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

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