Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
antonyskarulis
0 / 0 / 1
Регистрация: 29.11.2013
Сообщений: 82
#1

Найти N пар простых чисел-близнецов - Pascal ABC

18.04.2014, 00:43. Просмотров 514. Ответов 10
Метки нет (Все метки)

Найти N пар простых чисел, которые отличались бы друг от друга на 2 («близнецы»). Использовать функцию поиска «близнецов» и простых чисел.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.04.2014, 00:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти N пар простых чисел-близнецов (Pascal ABC):

Требуется подсчитать число пар простых чисел-близнецов ,не больших заданного числа N. С использованием функций
Среди простых чисел встречаются числа-близнецы(числа,разность между которыми...

Проверка существования «близнецов», т.е. простых чисел, разность между которыми равна 2
Решить задачу с использованием процедур с входными и выходными параметрами или...

Найти количество простых чисел в массиве из 10 положительных целых чисел
Задание: Описать функцию IsPrime(K) логического типа, возвращающую true, если...

Найти N пар простых чисел-близнецов
помогите пожалуйста , как реализовать эту задачу Найти N пар простых чисел,...

Дополнить программу по нахождению пар "близнецов" простых чисел.
Пожалуйста помогите дописать программу. Нужно в эту программу добавить такое...

Найти количество пар натуральных чисел, где одно из чисел делится на другое
Есть число n, оно от 1 до 1000. Нужно найти количество пар натуральных чисел,...

10
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27941 / 15659 / 960
Регистрация: 15.09.2009
Сообщений: 67,839
Записей в блоге: 78
18.04.2014, 00:48 #2
ищи.
0
Зотов_из_ОСА
Аналитик
79 / 79 / 63
Регистрация: 24.04.2014
Сообщений: 465
Записей в блоге: 15
26.04.2014, 13:27 #3
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
type  Tar: array [1..100] of integer;
Tar2: array [1..100, 1..2] of integer;
var i,j,k,n,m,e: integer;
function prost(x: integer; var y:integer): integer;
var c,d,t,n,i : integer
a:Tar;
b,h:Tar2
begin
 for c:=1 to x do if x mod c =0 then inc(d);
 if d=2 then y:=x else 
begin
d:=0;
y:=0;
end;
Function Bliz(t,k: integer; a:Tar, var b:Tar2;);
var bul: boolean;
begin
 for i:=t to sizeof(a) do
 begin
  if a[i]-a[i-1] = 2 then  bul:=true
  if bul = true then begin
  if k=1 then b[1,1]:=a[i-1];
  if k=2 then b[1,2]:=a[i];
end else 
begin
if k=1 then b[1,1]:=a[i-1];
if k=2 then b[1,2]:=a[i];
end;
end;
end;
begin
writeln('введите число пар');
readln(n);
m:=1;
i:=1;
t:=2;
while m<>n do
begin
 inc(e);
 a[i]:=prost(e,y);
 if a[i]<>0 then inc(i);
 h[m,1]:=bliz(t,1,a,b);
 h[m,2]:=bliz(t,2,a,b);
 if (h[m,1] <>0) and(h[m,2]<> 0) then inc(m);
end;
for i:=1 to m do writeln(h[m,1],' ', h[m,2]);
end;
1
antonyskarulis
0 / 0 / 1
Регистрация: 29.11.2013
Сообщений: 82
06.05.2014, 00:53  [ТС] #4
в 15 строчке пишет ожидался оператор
0
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
06.05.2014, 01:41 #5
antonyskarulis, перед
Pascal
1
Function Bliz(t,k: integer; a:Tar, var b:Tar2;);
допишите
Pascal
1
end;
1
antonyskarulis
0 / 0 / 1
Регистрация: 29.11.2013
Сообщений: 82
06.05.2014, 07:41  [ТС] #6
Pascal
1
2
3
4
end;
end;
function Bliz(t,k: integer; a:Tar; var b:Tar2;);// теперь в той же строчке пишет ожидалась 
//закрывающая скобка
0
Svager
394 / 374 / 405
Регистрация: 14.09.2013
Сообщений: 1,202
06.05.2014, 07:54 #7
antonyskarulis,
Pascal
1
Function Bliz(t,k: integer; a:Tar, var b:Tar2;);
ааааааа
Pascal
1
Function Bliz(t,k: integer; a:Tar, var b:Tar2;):integer;
Добавлено через 2 минуты
antonyskarulis, и вообще,у вас бред написан , у нас написано две функции , но результат функции вы не присваиваете .не правильно короче
0
antonyskarulis
0 / 0 / 1
Регистрация: 29.11.2013
Сообщений: 82
06.05.2014, 08:30  [ТС] #8
если не трудно можете код отредактировать пожалуйста
0
Зотов_из_ОСА
Аналитик
79 / 79 / 63
Регистрация: 24.04.2014
Сообщений: 465
Записей в блоге: 15
06.05.2014, 20:32 #9
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
50
51
type  Tar: array [1..100] of integer;
Tar2: array [1..100, 1..2] of integer;
var i,j,k,n,m,e: integer;
function prost(x: integer): integer;
var c,t,n,i : integer
bl: boolean;
a:Tar;
h:Tar2
begin
 bL:=true;
 for c:=2 to trunc(sqrt(x)) do if x mod c =0 then bl:=false;
 if b=true then result:=x else 
begin
d:=0;
result:=0;
end;
end;
Function Bliz(t,k: integer; a:Tar ): integer;
var bul: boolean;
begin
 for i:=t to heit(a) do
 begin
  if a[i]-a[i-1] = 2 then  bul:=true
  if bul = true then begin
  if k=1 then result:=a[i-1]
   end;
  if k=2 then result:=a[i];
end else 
begin
if k=1 then result:=a[i-1];
if k=2 then reult:=a[i];
end;
end;
end;
begin
writeln('введите число пар');
readln(n);
m:=1;
i:=1;
t:=2;
while m<>n do
begin
 inc(e);
 a[i]:=prost(e,y);
 if a[i]<>0 then inc(i);
 h[m,1]:=bliz(t,1,a);
 h[m,2]:=bliz(t,2,a);
 if (h[m,1] <>0) and(h[m,2]<> 0) then inc(m);
end;
for i:=1 to m do writeln(h[m,1],' ', h[m,2]);
end;
Добавлено через 2 часа 24 минуты
Delphi
1
 var h: tar2
1. объяви в основной программе
2. убери d
3. в 13 строке bl
1
Sofilu
0 / 0 / 0
Регистрация: 24.10.2016
Сообщений: 8
14.11.2016, 18:30 #10
может так?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
 var i,a,n,j:longint;
    prostoe:integer;
begin
 writeln('Введите N');
 readln(n);
 For i:=n to 2*n do begin
  For j:=2 to 30 do If (i mod j=0) or ((i+2) mod j=0) then inc(Prostoe);
  If i<=30 then If prostoe=1 then writeln(i,' ',i+2);
  If i>30 then If prostoe=0 then writeln(i,' ',i+2);
  prostoe:=0;
  end;
 readln;
 end.
0
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,072
21.11.2016, 15:18 #11
Моё решение: http://www.cyberforum.ru/pascal/thread1850700.html.

Добавлено через 4 минуты

Не по теме:

А, Sofilu, привет... Я ж это Вам и писал, сразу не заметил... Ну ладно, пусть ссылка остаётся, для поиска полезно.

0
21.11.2016, 15:18
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.11.2016, 15:18
Привет! Вот еще темы с решениями:

Среди заданных чисел найти количество пар чисел, модуль разности которых равен заданному числу
Дана строка из n целых чисел. Найти кол-во пар чисел модуль разности которых...

Найти большее из наименьших значений пар чисел
№1(с помощью процедуры) Даны действительные числа S,t. Получить...

Найти первые N простых чисел
Найти первые N простых чисел

Найти следующие k простых чисел
Нужно создать программу, которая считывает простое число и n. n- Количество...


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

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

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