Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
Karina2496
3 / 3 / 0
Регистрация: 22.12.2013
Сообщений: 52
1

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

12.10.2018, 10:38. Просмотров 1310. Ответов 15
Метки нет (Все метки)

Даны натуральное число n, целые числа a1,...,an. Рассмотреть отрезки последовательности a1,...,an (последовательности идущих подряд членов), состоящие из полных квадратов. Получить наибольшую из длин рассматриваемых отрезков.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.10.2018, 10:38
Ответы с готовыми решениями:

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

Получить самый большой из длин отрезков, которые рассматриваются
Составить программу с использованием функций и процедур: 2. Задано натуральное n, целые числа...

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

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

Дан массив натуральных чисел. Получить самый длинный из отрезков последовательности
Даны натуральное n, массив из натуральных чисел A(n). Рассмотреть отрезки последовательности...

15
FFPowerMan
344 / 237 / 103
Регистрация: 11.10.2018
Сообщений: 1,620
12.10.2018, 10:43 2
Не совсем понял что такое полный квадрат. Просто квадрат числа? И что это за последовательность такая? Можете привести пример?
0
Karina2496
3 / 3 / 0
Регистрация: 22.12.2013
Сообщений: 52
12.10.2018, 10:58  [ТС] 3
последовательность - любая, состоящая из целых натуральных чисел. а полный квадрат - это когда квадратный корень которого тоже целый (например 2^2, 4^4, 3^3 и т.д.)
0
FFPowerMan
344 / 237 / 103
Регистрация: 11.10.2018
Сообщений: 1,620
12.10.2018, 11:03 4
Цитата Сообщение от Karina2496 Посмотреть сообщение
это когда квадратный корень которого тоже целый
- но у Вас не так написано. У Вас написано, что полный квадрат - это когда степень равна самому числу = число. - Это так ли полный квадрат что-то другое?

Добавлено через 2 минуты
С чего начинается программа на Паскале?
0
12.10.2018, 11:03
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,576
12.10.2018, 11:07 5
Полный квадрат это
Pascal
1
if frac(sqrt(n))=0
0
Karina2496
3 / 3 / 0
Регистрация: 22.12.2013
Сообщений: 52
12.10.2018, 11:08  [ТС] 6
прошу прощения, не так написала. в общем, если из полного квадрата вычислить квадратный корень, то получится целое число
0
FFPowerMan
344 / 237 / 103
Регистрация: 11.10.2018
Сообщений: 1,620
12.10.2018, 11:45 7
Karina2496, вот простейшая программа на Паскале. Понимаете ее?
Pascal
1
2
3
4
5
6
7
8
9
10
Program P2;
Var
I: Integer;
X: Char;
Begin
  WriteLn("Privet!!!!!!!!!!!!!!!!!!!!!!!");
  I := 20 MOD 25;
  WriteLn("I = ", I);
  ReadLn(X);
End.
0
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,576
12.10.2018, 12:07 8
Лучший ответ Сообщение было отмечено Karina2496 как решение

Решение

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
function square(n:integer):boolean;
begin
square:=frac(sqrt(n))=0
end;
var a:array[1..50] of integer;
    n,i,j,k,mx:integer;
begin
repeat
write('Введите размер последовательности от 2 до 50 n=');
readln(n);
until n in [2..50];
writeln('Введите элементы последовательности, натуральные числа,');
writeln('в том числе участки из полных квадратов');
for i:=1 to n do
readln(a[i]);
mx:=0;
i:=1;
while i<n do
if square(a[i]) then
 begin
  k:=0;
  j:=i;
  while (j<=n)and square(a[j]) do
   begin
    inc(k);
    inc(j);
   end;
  if k>mx then mx:=k;
  i:=i+k;
 end
else inc(i);
if mx=0 then write('В последовательности нет полных евадратов')
else write('Максимальная длина последовательнсти полных квадратов=',k)
end.
0
FFPowerMan
344 / 237 / 103
Регистрация: 11.10.2018
Сообщений: 1,620
12.10.2018, 12:59 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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Program Posledovatelnost;{Polnih Kvadratov}
Uses CRT;
Const N = 12;  {Razmer massiva}
Type MassivType = Array[1..N] of Integer;
 
Var
X, MaxLength, CurrentCounter: Integer;
Massiv: MassivType;
Capture: Boolean;
 
Begin
  Capture := False;
  MaxLength := 0;
 
  ClrScr;
  WriteLn('Privet.');
  Massiv[1] := 24;       {Not a Polnii Kvadrat}
  Massiv[2] := 4;        {Polnii Kvadrat}
  Massiv[3] := 16;       {Polnii Kvadrat-2 chisla}
  Massiv[4] := 5;        {Not a Polnii Kvadrat}
  Massiv[5] := 7;        {Not a Polnii Kvadrat}
  Massiv[6] := 15;       {Not a Polnii Kvadrat}
  Massiv[7] := 25;       {Polnii Kvadrat}
  Massiv[8] := 9;        {Polnii Kvadrat}
  Massiv[9] := 4;        {Polnii Kvadrat-3 chisla}
  Massiv[10] := 32;     {Not a Polnii Kvadrat}
  Massiv[11] := 48;     {Not a Polnii Kvadrat}
  Massiv[12] := 36;     {Polnii Kvadrat-1 chislo}
 
  For X:=1 To N Do
  Begin
    WriteLn('Massiv[', X, '] = ', Massiv[X]);
  End;
 
  For X:=1 To N Do
  Begin
    If Frac(Sqrt(Massiv[X])) = 0 Then
        If Capture = False Then
          Begin
            Capture := True;   {1}
            CurrentCounter := 1;
          End
        Else
          Begin
            {Capture = True; - est}  {2}
            Inc(CurrentCounter);
          End
    Else
      If Capture = True Then
        Begin
          Capture := False;
          If CurrentCounter > MaxLength Then      {3}
              MaxLength := CurrentCounter;
        End
  End;{For X:=1 To N, Massiv[X]}
 
  If Capture = True Then
      If CurrentCounter > MaxLength Then      {Naposledok}
              MaxLength := CurrentCounter;
 
  {Resultat}
  WriteLn('MaxLength = ', MaxLength);
 
  Repeat
  Until Keypressed;
End.
Товарищ, модератор, можно 2 вопроса:
1) Как убрать такую синюю полоску в правом нижнем углу? - Достает. Я все равно заказывать работы не буду.
2) Когда можно будет подать объявление во "Фриланс", типа, "Я напишу программу на C++", но из правил я так понял что нужно накопить кармы 100 единиц и подождать 20 дней - но ведь это долго, деньги нужны сейчас. Так когда мне можно будет подать объявление во "Фриланс"?
0
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,576
12.10.2018, 13:53 10
Цитата Сообщение от FFPowerMan Посмотреть сообщение
Как убрать такую синюю полоску в правом нижнем углу?
Я не знаю о чем Вы, у меня нет никакой полоски.
0
FFPowerMan
344 / 237 / 103
Регистрация: 11.10.2018
Сообщений: 1,620
12.10.2018, 14:09 11
Ну может быть это потому что Вы - модератор, а я простой пользователь.
Как во "Фриланс" у Вас пробиться?
0
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,576
12.10.2018, 14:10 12
Просто выбираю этот раздел на главной странице.
0
FFPowerMan
344 / 237 / 103
Регистрация: 11.10.2018
Сообщений: 1,620
12.10.2018, 14:17 13
Какой раздел? Фриланс?
0
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,576
12.10.2018, 14:20 14
Получить наибольшую из длин рассматриваемых отрезков последовательности

Заказать программу
0
FFPowerMan
344 / 237 / 103
Регистрация: 11.10.2018
Сообщений: 1,620
12.10.2018, 16:17 15
Так я исполнителем хочу пойти. И нужно побыстрее - деньги нужны.
0
Puporev
Модератор
58588 / 44484 / 30715
Регистрация: 18.05.2008
Сообщений: 106,576
12.10.2018, 16:35 16
Прочитайте это, особо пункт 4.
http://www.cyberforum.ru/about-forum/thread782784.html

Добавлено через 11 минут
Цитата Сообщение от FFPowerMan Посмотреть сообщение
деньги нужны.
Там исполнителей больше чем заказчиков, так что до денег тебе далеко.
0
12.10.2018, 16:35
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.10.2018, 16:35

Массив: вывести наименьшую из длин отрезков нечетных чисел в массиве
рассмотреть отрезки массива состоящие из нечетных чисел.вывести наименьшую из длин этих отрезков. ...

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

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


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

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

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