Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 04.07.2013
Сообщений: 10
1

Опредилить простое ли число?(нужен код для консоли)

07.07.2013, 15:44. Показов 634. Ответов 8
Метки нет (Все метки)

Опредилить простое ли число?(нужен код для консоли)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.07.2013, 15:44
Ответы с готовыми решениями:

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число
Дано простое число. Составить функцию, которая будет находить следующее за ним простое число.

Дано простое число. Составить функцию,которая будет находить следующее за ним простое число.
дано простое число.составить функцию,которая будет находить следующее за ним простое число.

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число.
6.2.2. Помогите, пожалуйста, решить задачи в С++ с помощью функций. Дано простое число....

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число
Дано простое число. Составить функцию, которая будет находить следующее за ним простое число!

8
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
07.07.2013, 15:53 2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  n: Longint;
//-----------------
Function IsPrime(x: Longint): Boolean;
var i: Longint;
begin
  IsPrime:=True;
  For i:=2 to Round(Sqrt(x)) do
  If n mod i=0 Then
  begin
    IsPrime:=False;
    Break;
  end;
end;
//-----------------
begin
  Write('Vvedite chislo:');
  Readln(n);
  Writeln(IsPrime(n));
  Readln
end.
0
0 / 0 / 0
Регистрация: 04.07.2013
Сообщений: 29
08.07.2013, 10:45 3
Медленно... Попробуй лучше решето Эратосфена. Если нужно, выложу код процедуры... Хотя, если ты не собираешься проверять большие числа, действительно большие числа, тогда норм...
0
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
08.07.2013, 10:57 4
Цитата Сообщение от Kodzaev Посмотреть сообщение
Function IsPrime(x: Longint): Boolean;
var i: Longint;
begin
* IsPrime:=True;
* For i:=2 to Round(Sqrt(x)) do
* If n mod i=0 Then
* begin
* * IsPrime:=False;
* * Break;
* end;
end;
не совсем понятно, зачем возводить в степень??
не проще ли будет
Delphi
1
for I:=2 to x-1
??
0
0 / 0 / 0
Регистрация: 04.07.2013
Сообщений: 29
08.07.2013, 11:28 5
Там должно быть [х div 2]
0
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
08.07.2013, 11:49 6
Цитата Сообщение от NotBeginner Посмотреть сообщение
не совсем понятно, зачем возводить в степень
Таким образом сокращается количество итерации, так как нет смысла проверять делители, большие, чем Sqrt(x). Следовательно, программа работает быстрее.

Добавлено через 7 минут
В 16 строке не ту переменную написал. Должно быть:
If x mod i=0 Then
0
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
08.07.2013, 12:29 7
просто число - это число которое делится на 1 и только на само себя, а вот зачем мы возводим его в степень?
0
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
08.07.2013, 12:31 8
Цитата Сообщение от NotBeginner Посмотреть сообщение
а вот зачем мы возводим его в степень?
Где возводим? Мы извлекаем из него квадратный корень
Pascal
1
Round(Sqrt(x))
0
174 / 160 / 71
Регистрация: 22.02.2013
Сообщений: 1,769
Записей в блоге: 2
08.07.2013, 13:03 9
ааа блин точно)) затупил)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2013, 13:03

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число
Дано простое число. Составить функцию, которая будет находить следующее за ним простое число

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число
Помогите пожалуйста решить задачу в Паскале Дано простое число. Составить функцию, которая будет...

Дано простое число. Составить функцию, которая будет находить следующее за ним простое число.
Дано простое число. Составить функцию, которая будет находить следующее за ним простое число.

Дано простое число. Составить функцию, которая находит следующее за ним простое число
Дано простое число. Составить функцию, которая находит следующее за ним простое число.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.