Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
inlove78
0 / 0 / 0
Регистрация: 29.10.2012
Сообщений: 10
1

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

30.10.2012, 00:29. Просмотров 1930. Ответов 3
Метки нет (Все метки)

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

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

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

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

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

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

3
CodeR
Фрилансер
3400 / 2797 / 3000
Регистрация: 08.02.2012
Сообщений: 7,456
Записей в блоге: 1
30.10.2012, 09:58 2
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
Var A:array[1..100] of integer;
    i,n,k,max:byte;
Function F(n:integer):boolean;
Var pr:integer;
Begin
    pr:=1;
    While pr<n do
     pr:=pr*5;
    F:=(n=pr)and(n<>1);
End;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    max:=0;k:=0;
    For i:=1 to n do
    Begin
      if F(A[i]) then inc(k) 
      else
      Begin
        if k>max then max:=k;
        k:=0;
      end;
    End;
    if k>max then max:=k;
    if max>0 then writeln('Max последовательность из степеней 5-ки = ',max)
     else writeln('Нету степеней 5-ки');
    readln;
End.
Вроде так...
2
inlove78
0 / 0 / 0
Регистрация: 29.10.2012
Сообщений: 10
30.10.2012, 11:47  [ТС] 3
Спасибо,очень помогли,а можете объяснить самое главное ,чтоб я разобрался.
0
CodeR
Фрилансер
3400 / 2797 / 3000
Регистрация: 08.02.2012
Сообщений: 7,456
Записей в блоге: 1
30.10.2012, 16:28 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от inlove78 Посмотреть сообщение
а можете объяснить самое главное ,чтоб я разобрался.
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
Var A:array[1..100] of integer;
    i,n,k,max:byte;
Function F(n:integer):boolean;
Var pr:integer;
Begin
    pr:=1;//для хранения степени 5-ки
    While pr<n do //пока степень 5-ки меньше переданного числа n
     pr:=pr*5; //домножаем на 5 т.е вычисляется степени 5-ки
    F:=(n=pr)and(n<>1);//если степень 5-ки = переданному числу и это число не 1 то это степень 5-ки
End;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    max:=0;k:=0;
    For i:=1 to n do //в цикле
    Begin //передаем элементы массива
      if F(A[i]) then inc(k)  //если это степень 5-ки увеличиваем счетчик на 1 
      else //иначе т.е не степень 5-ки этот элемент то
      Begin
        if k>max then max:=k;//проверяем сколько было таких элементов последовательно и если эточ число >max то в max ставим его
        k:=0;//обнуляем счетчик
      end;
    End;
    if k>max then max:=k;//проверяем последнюю последовательность
    if max>0 then writeln('Max последовательность из степеней 5-ки = ',max)
     else writeln('Нету степеней 5-ки');
    readln;
End.
1
30.10.2012, 16:28
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.10.2012, 16:28

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

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

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


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

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

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