задача на Delphi, массивы. никак не получается!

[Saka]

Вот условия задачи:
Дан одномерный целочисленный массив А из N элементов. N заданное натуральное число.
• сформировать массив В, из элементов массива А, которые являются простыми числами;
• удалить из массива А те элементы в записи которых есть цифра 5
• выполнить циклический сдвиг массива А вправо на заданное число элементов К

Единственная просьба написать в console application на Delphi. ОЧень срочно надо. помогите поджалуйста.

[fbus]

пиши в аську, сделаю

[Saka]

актуально. пишите код в тему пожалуйста

[Saka]

up! помогите пожалуйста нужна срочно

[Saka]

up срочно надо

[psycho-coder]

Вот тебе шаблончик Дальше сам

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A, B: array of Integer; (* Дан одномерный целочисленный массив А из N элементов.
                          N заданное натуральное число. *)
  i, tmp: Integer;
  N, K: Integer;

begin
  ReadLn(N);
  SetLength(A, N); // Установка длин массивов
  SetLength(B, N);

  for i := 0 to N - 1 do (* сформировать массив В, из элементов массива А,
                            которые являются простыми числами; *)
    // Проверка на прост. числа

  for i ;= 0 to N - 1 do (* удалить из массива А те элементы в
                            записи которых есть цифра 5*)
    if A[i] = 5 then A[i] := 9999; (* После всех проверок сдвинуть массив
                                      Значение можно взять любое, главное чтобы
                                      было "заметным" *)

  (* выполнить циклический сдвиг массива А
     вправо на заданное число элементов К *)
  for i := 0 to N - 1 do
  begin
    tmp := A[i+K];
    A[i+K] := A[i];
    A[i] := tmp; // Вроде так
  end;


end.

[Saka]

все алгоритмы понял, кроме нахождения простого числа. не могли бы помочь.

[Serge_Bliznykov]

для проверки числа на простоту:

{Внимание! N должно быть от 2 и выше!!!!!}
function IsProstoe2(N: LongInt): boolean;
var
  i: integer;
begin
  IsProstoe2 := true;
  if abs(N) < 3 then
    exit;
  for i := 2 to Trunc(sqrt(N)) do
    if abs(N) mod i = 0 then
      begin
        IsProstoe2 := false;
        exit;
      end;
end;

[Alex_FF]

Сообщение от Serge_Bliznykov

для проверки числа на простоту:

{Внимание! N должно быть от 2 и выше!!!!!}
function IsProstoe2(N: LongInt): boolean;
var
  i: integer;
begin
  IsProstoe2 := true;
  if abs(N) < 3 then
    exit;
  for i := 2 to Trunc(sqrt(N)) do
    if abs(N) mod i = 0 then
      begin
        IsProstoe2 := false;
        exit;
      end;
end;

я думаю, так лучше:

{ Возвращает TRUE если число простое }
function PrimeNumber(X: Longint): Boolean;
var
  I: Integer;
  F: Boolean;
begin
  F := True;
  for I := 2 to Trunc(Sqrt(X)) do
    if X mod I = 0 then
    begin
      F := False;
      Break;
    end;
  PrimeNumber := F and (X <> 1);
end;

работает для всех положительных целых чисел 1, 2, 3, ...
можно еще в самом начале условие добавить:

if X <= 1 then
begin
  PrimeNumber := False;
  Exit;
end;

тогда будет работать для всех целых чисел + в конце проверку на неравенство единице можно убрать... и даже обойтись без переменной F...

вот такая универсальная функция получится:

{ Возвращает TRUE если число простое }
function PrimeNumber(X: Longint): Boolean;
var
  I: Integer;
begin
  PrimeNumber := True;
  if X <= 1 then
  begin
    PrimeNumber := False;
    Exit;
  end;
  for I := 2 to Trunc(Sqrt(X)) do
    if X mod I = 0 then
    begin
      PrimeNumber := False;
      Break;
    end;
end;

[Serge_Bliznykov]

Alex, лучше так, согласен.