Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

Excel VBA, CAD, Софт, ОС, Windows, Ubuntu, Android, VPS
Win Api, Assembler, C++, Java, Pascal, Lazarus, Delphi, OpenGL, DirectX
C#, Qt, .NET, ASP.NET, Windows Forms, ADO.NET, Framework, WPF, UWP, WinRT, XAML
HTML, CSS, JavaScript, Ajax, PHP, Perl, Python, Ruby, SQL, WordPress, API, XML, JSON, ActionScript, Flash

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

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

Код:

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 в 06:17.
Hitoku вне форума   Ответить с цитированием
Старый 06.03.2017, 15:40   #3
Plague
Забанен
Форумчанин
 
Аватар для Plague
 
Регистрация: 01.11.2006
Адрес: ЯНАО
Сообщений: 372
Репутация: 376
По умолчанию

Сколько кода)
Код:

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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Считать массив чисел из файла и записать в другой файл два массива (Pascal ABC) Luka_Megurine Помощь студентам 0 20.12.2016 17:51
Нахождение простых чисел через решето Эратосфена (Си) forsazh12 Помощь студентам 3 13.03.2016 13: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




04:20.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru