Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Перевод григорианской даты в юлианскую https://www.cyberforum.ru/ turbo-pascal/ thread1872683.html Программа перевода из Григорианского календаря в Юлианский. У меня нет никаких идей по этому поводу, нужна помощь.	Найдя от каждой дороги самый большой элемент матрицы, заменить его главный диагональным элементом Turbo Pascal Найдя от каждой дороги самый большой элемент матрицы,заменить его главный диагональным элементом.Вывести на экран полученную матрицу. Матрица P(N,N) Условия и ограничения N<=15
Turbo Pascal Найти геометрический центр массивного элемента Массив X(N) условия и ограничения Xi>0,N<=50 Добавлено через 34 минуты Напишите пожалуйста программу в Паскале. Задание: найти среднее геометрическое значение элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread1872514.html	Turbo Pascal Поменять последовательность цифр из, допустим 1234567 в 1234321 в двумерном массиве https://www.cyberforum.ru/ turbo-pascal/ thread1872349.html Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321 var A:array of integer; i, j, n, m, k, k1: integer; begin writeln('Введите размерность двумерного массива:'); write('n='); read(n); write('m=');
Turbo Pascal Из процедуры сделать функцию Объясните пожалуйста как из этого кода с процедурой превратить в функцию! Я не могу понять что делаю не так. program laba9; uses crt; const h=0.5; z=pi; Procedure pusk(x:real; var y:real); begin y:=-3*sqr(x)+2; end; Procedure poloska;	Turbo Pascal Определить, можно ли перелететь через пропасть Добрый вечер! Помогите, пожалуйста, решить задачу: На пути вашего героя встретилась пропасть шириной s метров. До ближайшего моста идти очень и очень долго, поэтому вы решаете перелететь через нее. Для героя единственный способ летать — выпить зелье левитации. Одна выпитая бутылочка зелья позволяет лететь в течении k секунд со скоростью v м/c. К несчастью, самого зелья у героя с собой нет,... https://www.cyberforum.ru/ turbo-pascal/ thread1872312.html
Turbo Pascal Сумма всех элементов матрицы составить программу, которая в двумерном массиве находит сумму его элементов и выводит на экран. количество элементов массива(строк и столбцов) пользователь вводит с клавиатуры https://www.cyberforum.ru/ turbo-pascal/ thread1872302.html	Найти количество парных положительных Turbo Pascal Найти количество парных положительных, тип масива integer, размер 4..5, диапазон (-50;50)
Turbo Pascal Модуль CRT Движение символа по экрану под управлением курсовых клавиш со сменой цвета символа в четвертях, выход из программы ctrl+x. https://www.cyberforum.ru/ turbo-pascal/ thread1872012.html	*Turbo Pascal Требуется найти количество целых чисел x таких, что 0 <= x < n и число ax при делении дает остаток b** https://www.cyberforum.ru/ turbo-pascal/ thread1871835.html Даны числа a, b и n. Требуется найти количество целых чисел x таких, что 0 <= x < n и число a*x при делении дает остаток b
Вывести элементы последовательности в обратном порядке Turbo Pascal Дана последовательность чисел А длины N. Требуется вывести в обратном порядке. Первая строка входного файла содержит целое число N (1 <= N <= 1000000) - длину последовательности. Вторая строка входного файла содержит N целых чисел - элементы последовательности A. Все элементы последовательности не превосходят 100000 по абсолютному значению. В единственной строке выходного файла выведите...	Turbo Pascal Найти количество заданных действий для преобразования одного числа в другое Даны целые цисла а,b. У вас есть три действия: -а умножить на (а=a2) -a умножить на 3 (a=a3) -a прибавит 1 (a=a+1) Сколько минимум действии сделать чтоб цифра а был равен на цифру Б https://www.cyberforum.ru/ turbo-pascal/ thread1871808.html

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

09.12.2016, 10:58

В таблице есть одинаковые идущие подряд элементы. Подсчитать их количество. - Turbo Pascal - Ответ 9873617

09.12.2016, 10:58. Показов 1604. Ответов 1

Метки (Все метки)

Сообщение было отмечено dobrik817 как решение

Решение

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,k,p:byte;
begin
clrscr;
writeln('Введите ',n,' целых чисел, в том числе одинаковые подряд');
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;
i:=2;
k:=0;
while i<=n do
if a[i]=a[i-1] then
 begin
  j:=i;
  p:=1;
  while(j<=n)and(a[j]=a[j-1]) do
   begin
    p:=p+1;
    j:=j+1;
   end;
  i:=i+p;
  k:=k+p;
 end
else i:=i+1;
if k=0 then write('Нет одинаковых рядом')
else write('Количество одинаковых рядом=',k);
readln
end.

Вернуться к обсуждению:
В таблице есть одинаковые идущие подряд элементы. Подсчитать их количество. Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

09.12.2016, 10:58

Готовые ответы и решения:

Исключить из листа подряд одинаковые, подряд идущие элементы. Почему мое решение неверно?
Задача: исключить из списка подряд идущие элементы, например: --> --> У меня почему...

Определить, есть ли в сумме чисел идущие подряд одинаковые цифры
Написать программу, запрашивающую с клавиатуры два целых числа a и b и определяющую, есть ли в...

Найти все слова, в которых есть две подряд идущие одинаковые буквы
Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы.

Дан массив натуральных чисел. Определить, есть ли в нем идущие подряд одинаковые числа
дан массив натуральных чисел .Определить , есть ли в нем : а) два подряд идущих одинаковых числа б)...

	09.12.2016, 10:58

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

09.12.2016, 10:58

Помогаю со студенческими работами здесь

Необходимо «сжать» данную последовательность, объединив одинаковые подряд идущие элементы в блоки
Дана последовательность из N целых чисел. Необходимо «сжать» данную последовательность, объединив...

Дан массив из слов Z(m). Найти все слова, в которых есть две подряд идущие одинаковые буквы
Уважаемые программисты :) Я уверена,что вы мне поможете)Пожалуйста! Задание: Дан массив из слов...

Найти и удалить одинаковые подряд идущие одинаковые цифры в матрице
Здравствуйте. Помогите мне пожалуйста в работе с двумерным массивом. Мне нужно найти и удалить...

Определить, есть ли в однонаправленном списке L1 подряд идущие элементы, составляющие список L2.
Помогите решить задачу на Pascal. Дан однонаправленный список L1. Определить, есть ли в нем подряд...

Наверх