Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Дениссссс
0 / 0 / 0
Регистрация: 29.10.2010
Сообщений: 69
1

Получить наибольшую из длин рассматриваемых отрезков

10.02.2011, 15:37. Просмотров 1409. Ответов 5
Метки нет (Все метки)

Дано натуральное число n, целые числа a1, ..., an. Рассмотреть отрезки последовательности a1, ..., an (подпоследовательности идущих подряд членов), состоящие из простых чисел. В каждом случае получить наибольшую из длин рассматриваемых отрезков. (Определить процедуры, позволяющие распознавать полные квадраты, степени пятерки, простые числа).

Привет помогите пожалуйста написать програмку, очень нужна ваша помощь.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.02.2011, 15:37
Ответы с готовыми решениями:

Получить наибольшую из длин рассматриваемых отрезков
Дано натуральные число n, целые числа a1,...an. Рассмотреть отрезки последовательности a1,...an...

Получить наибольшую из длин рассматриваемых отрезков
Даны натуральное число n, целые числа а1,...,аn. Рассмотреть отрезки последовательности а1,...,аn...

Определить наибольшую и наименьшую из длин рассматриваемых отрезков
Здравствуйте! Помогите пожалуйста понять, как определяются наим. и наиб. длины отрезков. Есть...

Дано N отрезков провода. Получить из них К равных отрезков провода
Дано N отрезков провода длиной L1, L2,…,Ln сантиметров. Требуется разрезанием получить из них К...

Получить наибольшую из длин рассматриваемых отрезков из массива
Ввести массив целых чисел (размерность любая). Рассмотреть отрезки массива (группы идущих подряд...

5
Puporev
Модератор
58554 / 44465 / 30699
Регистрация: 18.05.2008
Сообщений: 106,536
10.02.2011, 15:52 2
Цитата Сообщение от Дениссссс Посмотреть сообщение
состоящие из простых чисел.
Цитата Сообщение от Дениссссс Посмотреть сообщение
(Определить процедуры, позволяющие распознавать полные квадраты, степени пятерки, простые числа).
А при чем тут степени и квадраты?
0
Дениссссс
0 / 0 / 0
Регистрация: 29.10.2010
Сообщений: 69
10.02.2011, 15:55  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
А при чем тут степени и квадраты?
Да нет это тут не причём
0
Puporev
Модератор
58554 / 44465 / 30699
Регистрация: 18.05.2008
Сообщений: 106,536
10.02.2011, 16:49 4
Цитата Сообщение от Дениссссс Посмотреть сообщение
В каждом случае получить наибольшую из длин рассматриваемых отрезков.
В каком каждом случае? Вы бы уточнили свое задание, в таком виде его трудно читать и понимать.
0
Дениссссс
0 / 0 / 0
Регистрация: 29.10.2010
Сообщений: 69
10.02.2011, 17:14  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
В каком каждом случае? Вы бы уточнили свое задание, в таком виде его трудно читать и понимать.
Дано натуральное число n, целые числа a1, ..., an. Рассмотреть отрезки последовательности a1, ..., an (подпоследовательности идущих подряд членов), состоящие из :

в) простых чисел.
0
Puporev
Модератор
58554 / 44465 / 30699
Регистрация: 18.05.2008
Сообщений: 106,536
10.02.2011, 17:45 6
Фиг знает что тебе нужно. Вот программа находит и выводит максимальную цепочку из простых чисел.
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
52
53
54
55
56
57
58
59
60
61
62
63
64
uses crt;
const nmax=13;
function Prost(a:longint):boolean;
var i:longint;
begin
if a<2 then Prost:=false
else
 begin
  Prost:=true;
  for i:=2 to round(sqrt(a)) do
  if a mod i=0 then
    begin
     Prost:=false;
     break;
    end;
 end;
end;
var a:array[1..nmax] of integer;
    n,i,j,k,mx,imx:byte;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
i:=2;mx:=0;imx:=0;
while i<=n do
if Prost(a[i])and Prost(a[i-1])  then
  begin
   j:=i;k:=1;
   while (Prost(a[j])and Prost(a[j-1]))and(j<=n) do
    begin
     j:=j+1;
     k:=k+1;
    end;
   if k>mx then
    begin
     mx:=k;
     imx:=i-1;
    end;
   i:=i+k;
  end
else i:=i+1;
if mx=0 then write('Нет простых чисел!')
else
 begin
  writeln('Максимальная последовательность простых чисел=',mx);
  for i:=imx to imx+mx-1 do
  write(a[i],' ');
 end;
readln
end.
1
10.02.2011, 17:45
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2011, 17:45

Получить наибольшую из длин рассматриваемых отрезков последовательности
Даны натуральное число n, целые числа a1,...,an. Рассмотреть отрезки последовательности a1,...,an...

Рассмотреть отрезки, идущих подряд членов последовательности, состоящие из полных квадратов. Получить наибольшую из длин рассматриваемых отрезков
Даны натуральное число n, целые числа a_1 ,…,a_n. Рассмотреть отрезки идущих подряд членов данной...

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


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

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

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