как сделать циклы while и repeat

[Aleksandr litvinch]

нужно написать программу в Pascal двумя циклами while и repeat которая выводит простые числа от 1 до n

c циклом for я сделал

uses crt;
var n,k,i,t:integer;
begin
clrscr;
write('вводим   n= ');
readln (n);
for i:=2 to (n+5) do {во внешнем цикле поочереди берем цифры от 2 до  n+5}

   begin
   t:=0;{t-это количество делителей }
   for k:=2 to (n+5) do
       if i mod k=0 then t:=t+1; {а во внутреннем делим эту цифру на все числа от 2 до нее самой }
   if t=1 then write(i:10); {и если число имеет только один делитель ,то оно простое }
    end;
end.

[ViktorR]

1. Нет необходимости проверять делимость на числа, которые больше корня самого числа.
Если число делится, то оно представимо в форме: n = m * k;
Увеличивая m, уменьшаем k. В крайнем случае получим - n = m * m.
2. Аналогом цикла for, построенного на While будет такой цикл:

i := 2;
m := round(sgrt(n);
while (i <= m) do begin
...
i := i + 1;
end;

3. Аналог цикла for, построенный на Repeat, будет цикл:

i := 2;
m := round(sgrt(n);
repeat
...
i := i + 1;
until (i > m);

Где-то так, ...

[Aleksandr litvinch]

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

1. Нет необходимости проверять делимость на числа, которые больше корня самого числа.
Если число делится, то оно представимо в форме: n = m * k;
Увеличивая m, уменьшаем k. В крайнем случае получим - n = m * m.
2. Аналогом цикла for, построенного на While будет такой цикл:

i := 2;
m := round(sgrt(n);
while (i <= m) do begin
...
i := i + 1;
end;

3. Аналог цикла for, построенный на Repeat, будет цикл:

i := 2;
m := round(sgrt(n);
repeat
...
i := i + 1;
until (i > m);

Где-то так, ...

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

[grominfo]

i := i + 1;

Можно заменить на

inc(i);

Преподы любят, когда код оптимизирован

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

На месте троеточий может быть любой ваш дополнительный код, или не быть его вообще

[Aleksandr litvinch]

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

1. Нет необходимости проверять делимость на числа, которые больше корня самого числа.
Если число делится, то оно представимо в форме: n = m * k;
Увеличивая m, уменьшаем k. В крайнем случае получим - n = m * m.
2. Аналогом цикла for, построенного на While будет такой цикл:

i := 2;
m := round(sgrt(n);
while (i <= m) do begin
...
i := i + 1;
end;

3. Аналог цикла for, построенный на Repeat, будет цикл:

i := 2;
m := round(sgrt(n);
repeat
...
i := i + 1;
until (i > m);

Где-то так, ...

но ведь если я напишу m:=round (sqrt(n)) а потом сделаю цикл от i до m , мне найдет простые числа до корня этого числа , а нужно так что именно до числа которое вводиться

[BDA]

Во-первых, цикл for i:=2 to (n+5) do уже ищет простые числа не от 1 до n, а от 2 до n+5. Во-вторых, m := round(sqrt(n)) нужен для того, чтобы не проверять лишние делители, так как проверяемое число не может делиться на число, большее корня из проверяемого числа.

Спасибо, Poma][a. Поправил у себя

[Poma][a]

И в-третьих везде нужно писать sqrt, а не sgrt