Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Определить, образуют ли числа возрастающую последовательность 2)Дано 100 вещественных чисел. Определить, образуют ли они возрастающую последовательность https://www.cyberforum.ru/ pascal/ thread1944900.html Вычислить k-й член последовательности Pascal
1)Имеется целое k>0. Вычислить k-й член последовательности {x}, где x1=1 и xn=nxn-1+1/n при n=2, 3, 4..
Pascal Как выйти по Esc https://www.cyberforum.ru/ pascal/ thread1944531.html
Допустим есть некая программка (в данный момент нет никакой программки - это просто для примера): program proba; uses Crt; var a,b,c:real; begin repeat write('Ввести число а: '); readln(a);
Pascal Для каждого из слов строки, указать, сколько раз оно встречается в данной строке https://www.cyberforum.ru/ pascal/ thread1944431.html
Для каждого из слов строки, указать, сколько раз оно встречается в данной строке. ДЛЯ КАЖДОГО СЛОВА Добавлено через 8 часов 59 минут var x:array of string; s1,s2: string; i,j,k,n:integer; begin readln(s1); s1+=' ';
Pascal Организовать циклическую перестановку слов
Для фразы на русском языке, в которой нет знаков препинания, а слова отделяются одним единственным пробелом, организовать циклическую перестановку слов. Например: Исходная фраза: ВЕЧЕРАМИ МЫ СМОТРИМ ТЕЛЕВИЗОР Циклическая перестановка слов: МЫ СМОТРИМ ТЕЛЕВИЗОР ВЕЧЕРАМИ СМОТРИМ ТЕЛЕВИЗОР ВЕЧЕРАМИ МЫ ТЕЛЕВИЗОР ВЕЧЕРАМИ МЫ СМОТРИМ ВЕЧЕРАМИ МЫ СМОТРИМ ТЕЛЕВИЗОР Добавлено через 7 часов 2...
Pascal Удаление элемента перед первым отрицательным в двунаправленном списке https://www.cyberforum.ru/ pascal/ thread1944161.html
Доброе время суток. Помогите реализовать процедуру удаления элемента перед первым отрицательным. //Удаление элемента перед первым отрицательным. procedure DelElemPredFirstNeg(var aList:TDList); var aPElem,tmp:ukaz; begin If (aList.PFirst = nil) then begin begin writeln('Error!');
Pascal Операция неприменима к операндам этого типа https://www.cyberforum.ru/ pascal/ thread1944119.html
Program zadacha1; Var Sum,Pro:integer; b,a,x:real; Begin Writeln ('Введите x'); Readln (x); a:=x div 10; b:=x mod 10; Sum:=a+b; Pro:=a*b;
Pascal Создать модуль позволяющий проводить проверку правильности строения арифметического выражения
Создать модуль позволяющий проводить проверку правильности строения арифметического выражения (арифметическое выражение строится из целых чисел и круглых скобок. Разрешены операции сложения, вычитания, умножения и деления). Используя модуль, написать программу, которая вводит выражение, проверяет правильность его и вычисляет его значение.
Pascal Построить график функции. вычислить и построить все асимптоты для этой функции Помогите пожалуйста... Устал с ней возиться... Задание: Построить график функции,вычислить и построить все асимптоты для этой функции. Функция: F(x)=sin6x+sin3x+sinx Метод локализации корней: Метод хорд https://www.cyberforum.ru/ pascal/ thread1944088.html Pascal Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей последовательности чисел https://www.cyberforum.ru/ pascal/ thread1944065.html
Дано натуральное число n. Написать рекуррентную процедуру вывода на экран следующей последовательности чисел: 1 2 1 3 2 1 ... N N-1 N-2 ... 1
Pascal Определить среднее арифметическое всех положительных компонент файла
Записать на диск файл вещественных чисел. Определить среднее арифметическое всех положительных компонент файла.Если первая компонента меньше среднего арифметического значения , заменить Ее значением.файл распечатать.
Pascal Нахождение числа, которое встречается в последовательности наибольшее количество раз https://www.cyberforum.ru/ pascal/ thread1943625.html
привет всем ребят нужен хороший способ для нахождения число, которое встречается в этой последовательности наибольшее количество раз ?
101 / 97 / 112
Регистрация: 28.11.2016
Сообщений: 528
23.03.2017, 19:55 0

Определить количество чисел в наиболее длинной подпоследовательности - Pascal - Ответ 10249436

23.03.2017, 19:55. Показов 1476. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Selvia как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  a, b, i: integer;
 
begin
  for i := 1 to 100
  do 
  begin
    read(a);
    if a = 0
    then begin
      inc(a);
      if a > b
        then b := a;
    end
    else a := 0;
  end;
end.


Вернуться к обсуждению:
Определить количество чисел в наиболее длинной подпоследовательности Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.03.2017, 19:55
Готовые ответы и решения:

Определить количество чисел в наиболее длинной последовательности из подряд идущих нулей
Данная последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной...

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

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Дана последовательность из 10 целых чисел. Определить количество чисел в наиболее длинной...

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

1
23.03.2017, 19:55
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2017, 19:55
Помогаю со студенческими работами здесь

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Операторы цикла. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее...

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Программа. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее...

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих одинаковых чисел
Дана непустая последовательность не нулевых целых чисел, за которой следует 0. Определить...

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих чисел одного знака
Дана непустая последовательность не нулевых целых чисел, за которой следует 0: Определить...

Циклы. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
дана последовательность из 20целых чисел.определить количество чисел в наиболее длинной...

Требуется определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Дан текстовый файл с именем FileName, в первой строке которого записано единственное число N, а во...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru