Скачать: CL | DM;

OR   Найти похожие ветки 

← →
KLAUS ©   (2006-03-20 12:56) [0]

Всем привет! Люди подскажите плиз где ошибка, нужно найти такое число, которое делилось бы только на 1 или на само себя   . Где ошибка??

z:=Random(156);
     n1:
     if ((z mod 3 ) or (z mod 5) or (z mod 7) or (z mod 9) or
     (z mod 4 ) or (z mod 2) or (z mod 6) or (z mod 8)) = 0   then
  goto n
   else
    z:=z+1 ;
  goto n1;
  n:


---

← →
MBo ©   (2006-03-20 13:01) [1]

Существует много методов определения, простое ли число.
Один из простейших - проверить его делимость на числа в цикле от 2 до Round(Sqrt(N))
Судя по твоему коду, тебе нужно познакомиться с использованием циклов for, while, repeat

---

← →
KLAUS ©   (2006-03-20 13:24) [2]

Да не с циклами знаком, но не выходит:

for n:=1 to 9 do
   n2:
    if (z mod n) = 0 then goto  n1
   else
    z:=z+1;
    goto n2 ;


---

← →
TUser ©   (2006-03-20 13:30) [3]

> Да не с циклами знаком, но не выходит:

Не факт

---

← →
KLAUS ©   (2006-03-20 13:32) [4]

Мда, вопрос в другом, как быть, кто-нить всё таки подскажет!!

---

← →
TUser ©   (2006-03-20 13:35) [5]

for i:=2 to trunc (sqrt (N)) do
 if N mod i = 0 then begin
   Число N - не простое;
   break;
   end;

---

← →
Gydvin ©   (2006-03-20 13:37) [6]

KLAUS ©   (20.03.06 13:24) [2]

Ну кто ж из цикла прыгает вот

for n:=1 to 9 do begin
      if (z mod n) = 0 then begin
      //////тут действия
     end    else    z:=z+1;
end;

---

← →
Gydvin ©   (2006-03-20 13:39) [7]

KLAUS ©   (20.03.06 13:24) [2]

Ну кто ж из цикла прыгает вот

for n:=1 to 9 do begin
      if (z mod n) = 0 then begin
      //////тут действия
     end    else    z:=z+1;
end;

на крайняк так

for n:=1 to 9 do begin
      if (z mod n) = 0 then begin
  break; ////помоему
goto n1;
     end    else    z:=z+1;
end;

---

← →
Плохиш ©   (2006-03-20 13:40) [8]

> for n:=1 to 9 do begin

Число 121 простое или нет?

---

← →
KLAUS ©   (2006-03-20 13:45) [9]

Простое простое

---

← →
MBo ©   (2006-03-20 13:49) [10]

> Плохиш ©   (20.03.06 13:40) [8]
а ты коварный ;))

---

← →
Ega23 ©   (2006-03-20 13:54) [11]

> Число 121 простое или нет?


Нет, канешна...

---

← →
KLAUS ©   (2006-03-20 13:54) [12]

Всё это весело, но не один из способов не подходит!
Число у меня генерится и нужно проверить простое оно или нет...не один из способов не подошёл!!

---

← →
KLAUS ©   (2006-03-20 13:57) [13]

> Нет, канешна

А на что, оно ещё делится, кроме 1 и 121  ??

---

← →
MBo ©   (2006-03-20 13:59) [14]

>KLAUS ©   (20.03.06 13:54) [12]
>Всё это весело, но не один из способов не подходит!
TUser [5]  дал тебе код.

---

← →
Сергей М. ©   (2006-03-20 13:59) [15]

> KLAUS ©   (20.03.06 13:54) [12]
> Всё это весело


Гораздо веселее вот это


> А на что, оно ещё делится, кроме 1 и 121  ??

---

← →
Плохиш ©   (2006-03-20 14:05) [16]

> KLAUS ©   (20.03.06 13:57) [13]
>
> > Нет, канешна
>
> А на что, оно ещё делится, кроме 1 и 121  ??

Как тут весело :-))

PS. возведи 11 в квадрат и удивись.

---

← →
Johnmen ©   (2006-03-20 14:07) [17]

> Плохиш ©   (20.03.06 14:05) [16]
> PS. возведи 11 в квадрат и удивись.


Щас он спросит, что такое "квадрат"...

---

← →
KLAUS ©   (2006-03-20 14:57) [18]

МЛя, ну ошибся.... не оборжитесь!!

---

← →
KLAUS ©   (2006-03-20 14:58) [19]

MBo, Gydvin, TUser - СПАСИБО!
Разобрался!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.026 c