[Pascal] По номеру числа в последовательности простых чисел выдать само число

[Stalin2019]

Здравствуйте, уважаемые форумчане. Задачу нужно решить без введения функций. Максимум все виды циклов.
Задача такая:
По номеру числа в последовательности простых чисел выдать само число.
Например: ввожу номер 1, выдает 2. Ввожу 2, выдает 3. Ввожу 3, выдает 5.
Мои мысли по задаче:

program prog;
uses crt;
var
   n,i,j,k,l,m:integer;
begin
write('Введите номер числа в последовательности простых чисел: ');
readln(n);
i:=0; {i будет отвечать за кол-во простых чисел}
k:=3; { пока не знаем до какого числа будем искать n-ое простое }
while (i<>n) do
 for j:=2 to k do { Перебираем числа от 2 до k}
   begin
   m:=0;  { m будет отвечать за количество делителей каждого числа}
   k:=k+1;
    for l:=1 to j do
    if j mod l=0 then
     m:=m+1;
     if (m=2) then i:=i+1; {Если у числа два делителя, то оно является простым. В этом случае увеличиваем i на 1}
   end;
   write(j);{Выводим число}
end.

Не работает. Что не так?

[digitalis]

Очередное бредовое задание. Функции не применять. Может, и стандартные (Sqrt) не применять? Тогда это этюд на тему "чесать левое ухо правой ногой".
Если никто не откликнется, после обеда накропаю, разбираться в коде лень. Хоть я и не сталинист

[Stalin2019]

Стандартные можно использовать. Заранее спасибо!

[ViktorR]

Вот тут что-то быстро сделал, но лучше разобраться и поправить.
Вроде работает.

uses crt;
var N: integer;
    k, m, i, j, p: integer;
    hbound: integer;

begin
   write('Vvod N:');
   readln(N);      {Nomer}
   if N = 1 then
   begin
      writeln('N = 1   Prostoe = 2');
      Halt;
   end;
   m := 2;         {первое простое}
   k := 1;         {его номер}
   while True do   {пока не найдем нужное простое}
   begin
      for j := m + 1 to 2*m do  {поиск следующего простого}
      begin
         p := 0;      {первый делитель}
         hbound := round(sqrt(j));
         for i := 2 to hbound do
         begin
            if ((j mod i) = 0) then {есть делитель}
            begin
               p := 1;
               Break;
            end;
         end;
         if (p = 0) then
         begin
            m := j;
            k := k + 1;
         end;
         if k = N then
            Break;

      end;
      if k = N then
         Break;
   end;
   writeln('N = ', N, '   Prostoe = ', m);
   readln();
end.

[FPaul]

Решето Эратосфена для FreePascal.

{$BITPACKING ON}
program Eratosfen;

uses
  Windows; //для определения времени работы

const
  //номер искомого простого числа
  NPrime = 1000 * 1000 * 10;
  NPrimeMax = round(1.2 * NPrime * ln(NPrime));
type
  TVector = packed array [0..NPrimeMax] of boolean;
var
  PrimeCandidate, Step, j, Count, LastCandidate: QWord;
  Sieve: TVector;
  start, done: uint64;
  n: QWord;
  NMax: QWord;
begin
  writeln('Введите номер числа в последовательности простых чисел: ');
  readln(n);

  case n of
    1: PrimeCandidate := 2;
    2: PrimeCandidate := 3;
    else
    begin
      //верхняя граница рассматриваемых кандидатов в простые числа
      Nmax := round(1.4 * n * ln(n));

      start := GetCurrentTime;
      {заполнение решета Эратосфена}
      fillchar(Sieve, sizeof(Sieve), $AA);
      {особые случаи для 2 и 3}
      Sieve[0] := False;
      Sieve[1] := False;
      Sieve[2] := True;
      j := 9;
      while j <= Nmax do
      begin
        Sieve[j] := False;
        Inc(j, 6);
      end;
      {заполнение для простых чисел от 5}
      Count := 2;
      PrimeCandidate := 5;
      Step  := 2;
      LastCandidate := round(sqrt(Nmax)) + 1;
      while ((PrimeCandidate <= LastCandidate) or (Count < n)) do
      begin
        if Sieve[PrimeCandidate] then
        begin
          Inc(Count);
          //writeln(Count: 3, ' ', PrimeCandidate);
          if Count = n then
            break;
          j := sqr(PrimeCandidate);
          while (Nmax >= j) do
          begin
            Sieve[j] := False;
            Inc(j, PrimeCandidate);
          end;
        end;
        PrimeCandidate := PrimeCandidate + Step;
        Step := Step xor $6;
      end;
    end; {else}
  end;   {case}

  done := GetCurrentTime;

  writeln('prime = ', PrimeCandidate);
  writeln('Time = ', done - start, 'ms');
end.

[Stalin2019]

Спасибо

[Stalin2019]

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

Вот тут что-то быстро сделал, но лучше разобраться и поправить.
Вроде работает.

uses crt;
var N: integer;
    k, m, i, j, p: integer;
    hbound: integer;

begin
   write('Vvod N:');
   readln(N);      {Nomer}
   if N = 1 then
   begin
      writeln('N = 1   Prostoe = 2');
      Halt;
   end;
   m := 2;         {первое простое}
   k := 1;         {его номер}
   while True do   {пока не найдем нужное простое}
   begin
      for j := m + 1 to 2*m do  {поиск следующего простого}
      begin
         p := 0;      {первый делитель}
         hbound := round(sqrt(j));
         for i := 2 to hbound do
         begin
            if ((j mod i) = 0) then {есть делитель}
            begin
               p := 1;
               Break;
            end;
         end;
         if (p = 0) then
         begin
            m := j;
            k := k + 1;
         end;
         if k = N then
            Break;

      end;
      if k = N then
         Break;
   end;
   writeln('N = ', N, '   Prostoe = ', m);
   readln();
end.

Не понял какую роль играет True.

[digitalis]

Как я понял - это бесконечный цикл с выходом по Break. Это как если бы написали
if (1+1) = 2 . Оптимизатор компилятора, видимо, этот if выкинет и заменит на банальный jmp на начало цикла.

[Stalin2019]

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

Как я понял - это бесконечный цикл с выходом по Break. Это как если бы написали
if (1+1) = 2 . Оптимизатор компилятора, видимо, этот if выкинет и заменит на банальный jmp на начало цикла.

Да,подставил вместо True Ваше условие, работает.Круто. Спасибо. Возьмем на вооружение.

[ViktorR]

Stalin2019

Не понял какую роль играет True.

В Паскале есть три типа циклов: while, repeat ... until и for.
В Python, например, есть только for и while.
В этом случае цикл типа repeat ... until реализуется через

while True:
   <что-то тут>
   if <условие>:
      break
   <и тут что-то>

Тут чисто условное пояснение. Мне это понравилось и когда надо выполнить цикл без определённого конца, как в предложенном случае, то делаю так.
Этот цикл будет выполняться до тех пор, пока не будет вычислено последнее простое число с заданным номером.

PS: Собственно вам дали пояснение.

PSS:
Смысл предложенного алгоритма - использовать предыдущее задание.
1. Задаётся первое простое число m
2. В диапазоне от m + 1 до 2*m ищем следующее простое число по ранее разработанному алгоритму.
3. Если нашли, то увеличиваем номер и поиск продолжаем от найденного
4. Если номер найденного простого числа совпадает с введённым, то завершаем работу.
Картинка была бы более понятной, если бы было можно использовать собственную функцию.
Думаю, что если бы сам разобрался и сделал с собственной функцией, то смог бы и решение отстоять. Препод мог бы на такое и не "лаять".
Но сколько тут "бы"