Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

OR

KLAUS © (2006-03-20 12:56:00)
Всем привет! Люди подскажите плиз где ошибка, нужно найти такое число, которое делилось бы только на 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:

KLAUS (2006-03-20 14:58:00) [1]
MBo, Gydvin, TUser - СПАСИБО!
Разобрался!

KLAUS (2006-03-20 14:57:00) [2]
МЛя, ну ошибся.... не оборжитесь!!

Johnmen (2006-03-20 14:07:00) [3]

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

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

Плохиш (2006-03-20 14:05:00) [4]

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

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

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

Сергей М. (2006-03-20 13:59:00) [5]

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

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

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

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

KLAUS (2006-03-20 13:57:00) [7]

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

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

KLAUS (2006-03-20 13:54:00) [8]
Всё это весело, но не один из способов не подходит!
Число у меня генерится и нужно проверить простое оно или нет...не один из способов не подошёл!!

Ega23 (2006-03-20 13:54:00) [9]

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

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

MBo (2006-03-20 13:49:00) [10]
> Плохиш © (20.03.06 13:40) [8]
а ты коварный ;))

KLAUS (2006-03-20 13:45:00) [11]
Простое простое

Плохиш (2006-03-20 13:40:00) [12]

> for n:=1 to 9 do begin

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

Gydvin (2006-03-20 13:39:00) [13]
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;

Gydvin (2006-03-20 13:37:00) [14]
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;

TUser (2006-03-20 13:35:00) [15]
for i:=2 to trunc (sqrt (N)) do
if N mod i = 0 then begin
Число N - не простое;
break;
end;

KLAUS (2006-03-20 13:32:00) [16]
Мда, вопрос в другом, как быть, кто-нить всё таки подскажет!!

TUser (2006-03-20 13:30:00) [17]

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

Не факт

KLAUS (2006-03-20 13:24:00) [18]
Да не с циклами знаком, но не выходит:
for n:=1 to 9 do n2: if (z mod n) = 0 then goto n1 else z:=z+1; goto n2 ;

MBo (2006-03-20 13:01:00) [19]
Существует много методов определения, простое ли число.
Один из простейших - проверить его делимость на числа в цикле от 2 до Round(Sqrt(N))
Судя по твоему коду, тебе нужно познакомиться с использованием циклов for, while, repeat

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »