Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 2
Регистрация: 06.12.2013
Сообщений: 13
1

Вычислить к-тое число последовательности целых простых чисел

06.12.2013, 23:37. Просмотров 555. Ответов 3
Метки нет (Все метки)

Помогите, пожалуйста.
Вычислить K-тое число последовательности целых простых чисел (где K>1) (Pascal 7.0).
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2013, 23:37
Ответы с готовыми решениями:

Подсчитать число положительных и отрицательных чисел во введенной последовательности из n целых чисел
Подсчитать число положительных и отрицательных чисел во введенной последовательности из n целых...

В последовательности целых чисел определить минимальное положительное число
Напишите программу, которая в последовательности целых чисел определяет минимальное положительное...

Вычислить среднее арифметическое значение последовательности целых чисел
Задача: Вычисляет среднее арифметическое значение последовательности целых чисел. Первое,...

Вычислить сумму и произведение элементов последовательности целых чисел Р1, Р2,…, Р10
Составить программу для вычисления сумму элементов последовательности целых чисел Р1, Р2,…, Р10...

3
Модератор
8268 / 4054 / 2827
Регистрация: 17.08.2012
Сообщений: 12,937
07.12.2013, 05:58 2
Ramora, вот, разбирайтесь. Функция простоты числа навеяна Википедией. Остальное просто.
Pascal
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
29
30
31
32
33
34
35
36
program simpl;
 
function simple(N: integer): boolean;
var i: integer;
begin
  if n < 2
    then simple := False
    else begin
      simple := True;
      for i := 2 to trunc(sqrt(N)) do
      if N mod i = 0
        then begin
          simple := False;
          break
        end
    end
end;
 
var k, n, i: integer;
 
begin
  repeat
    write('k = ');
    readln(k);
    if k < 1 then writeln('Error: k < 1, reenter.')
  until k >= 1;
  i := 0;
  n := 1;
  while i < k do
    begin
      n := n + 1;
      if simple(n) then i := i + 1
    end;
  writeln('Simple number #', k, ' = ', n);
  readln
end.
1
0 / 0 / 2
Регистрация: 06.12.2013
Сообщений: 13
08.12.2013, 21:59  [ТС] 3
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Ramora, вот, разбирайтесь. Функция простоты числа навеяна Википедией. Остальное просто.
Можно ли задать ряд простых чисел с помощью массива или множества? И как это реализовать в коде? Простые числа, по сути, делятся на 1 и на само себя нацело.
0
Модератор
8268 / 4054 / 2827
Регистрация: 17.08.2012
Сообщений: 12,937
09.12.2013, 12:43 4
Цитата Сообщение от Ramora Посмотреть сообщение
Можно ли задать ряд простых чисел с помощью массива или множества?
с помощью массива - запросто. С помощью множества - вряд ли. Во множестве не может быть более 256 элементов. Так что разве что пляски с бубном в виде нескольких множеств.
Цитата Сообщение от Ramora Посмотреть сообщение
И как это реализовать в коде?
Задать массив, в него и писать. Однако, зачем это надо, я не постигаю. Ну вот так это дело за уши можно притянуть:
Pascal
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program simpl;
 
function simple(N: integer): boolean;
var i: integer;
begin
  if n < 2
    then simple := False
    else begin
      simple := True;
      for i := 2 to trunc(sqrt(N)) do
      if N mod i = 0
        then begin
          simple := False;
          break
        end
    end
end;
 
const m = 1000;
 
var k, n, i: integer;
    a: array [1..m] of integer;
 
begin
  repeat
    write('k = ');
    readln(k);
    if (k < 1) or (k > m) then writeln('Error: k out of range [1..', m, '], reenter.')
  until (k >= 1) and (k <= m);
  i := 0;
  n := 1;
  while i < k do
    begin
      n := n + 1;
      if simple(n) then
        begin
          i := i + 1;
          a[i] := n
        end;
    end;
  writeln('Simple number #', k, ' = ', a[k]);
  writeln('All k simple numbers:');
  for i := 1 to k do
    begin
      if (i - 1) mod 5 = 0 then writeln;
      write(a[i]:10)
    end;
  readln
end.
Цитата Сообщение от Ramora Посмотреть сообщение
Простые числа, по сути, делятся на 1 и на само себя нацело.
Ну да, и более ни на что.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.12.2013, 12:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

напишите программу,которая определяет минимальное число во вводимой последовательности из N целых чисел.
помогите!!!

В последовательности целых положительных чисел определить максимальное четное число и его порядковый номер.
кто если знает как сделать это, напишите пожайлуста!!=) задействовать оператор цикла с преусловием

В последовательности целых положительных чисел опреде- лить максимальное четное число и его порядковый номер.
Ребят, у меня есть наброски, но я не знаю точно , подскажите кто что знает program/// var i, s,...

Дана последовательность чисел. Что больше? число нулей в последовательности Ф или число едениц в последовательности B?
Дана последовательность чисел. Что больше? число нулей в последовательности Ф или число едениц в...


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

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

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