Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Переписать код с использованием CASE https://www.cyberforum.ru/ free-pascal/ thread362561.html
Добрый день :) Не могу разобраться с кейсами =\ Нужно переделать вот это код через case Program lab2; Uses crt; Var x:real; Begin Clrscr;
Действия с векторами и матрицами Free Pascal
задачи нужно решить через подпрограммы. На вышке мы ещё не добрались до векторов, так что мне довольно сложно разобраться даже с условием.. Программа. Даны 3 -элементные вещественные векторы x, y и квадратные матрицы и 3-го порядка. Вычислить величину (A * x, B * y) + (B * x , y) / (x, A * y) Даны 3-ех элементные вещественные векторы x и y и квадратная матрица 3-го порядка....
Free Pascal Что такое цикл while? Объясните что такое цикл while и что такое if, как ими пользоваться, для чего они нужны, https://www.cyberforum.ru/ free-pascal/ thread361260.html Free Pascal комплексные коэффициенты . помогите плз. написал программу для нахождения корней кубического уравнения, но проблема в том, что прога считает корни, только если коэффициенты действительные, а надо бы, что бы она и для уравнения с комплексными коэффициентами считала, как это сделать? вот прога program ; uses crt; var a,b,c,d,r,s,t,p,q,ro,fi,x1,x2,x3,u,v,h,g:real; begin {Ввод коэффициентов кубического уравнения} https://www.cyberforum.ru/ free-pascal/ thread361152.html
Free Pascal СИМВОЛЬный рисунок
задание: Нарисуйте алмаз ромбовидной формы при помощи символов '*'. Каждый тест в отдельной строке содержит единственное целое неотрицательное число N строка со значением N равным нулю сигнализирует об окончании входных данных. Для каждого случая входных данных нарисуйте образец алмаза шириной N как в примере. Обращаем внимание, что в каждой строке не должно быть лишних пробелов...
Free Pascal Найти минимальное собственное значение Emin(а) квадратной симметричной действительной матрицы Найти минимальное собственное значение Emin(а) квадратной симметричной действительной матрицы F(N,M); 1 < M,N > 100 при заданном значении параметра a > 0: F(N,M)=sin((N+m)^(0.5*(1+0.1))/ln(N+M+a)). при а=1 должно получиться -10.40698 при а=2 получается -10.40503. помогите пожалуйста, ума не приложу как это можно сделать... https://www.cyberforum.ru/ free-pascal/ thread361052.html
Free Pascal Найти площадь заштрихованной фигуры Пожалуйста помогите, если вам не сложно. она не сложная но в паскале не работал а нужно очень срочно в программу надо ещё записать площаи этих заштихованных фигур( ну ели получится) https://www.cyberforum.ru/ free-pascal/ thread360340.html Ввод нескольких переменных в одну строку Free Pascal
как сделать чтобы переменные вводились в строку и программа их считала как разные а ни как 1. например введя 1 2 3 4 программа смотрела все а не только 1(а=1, b=2, c=3...)?
Free Pascal Сглаженная последовательность по формуле https://www.cyberforum.ru/ free-pascal/ thread360285.html
Дана последовательность из N чисел а1, а2, а3,..., аN. Построить сглаженную последовательность по формуле a(i)=1/3(a(i-1)+a(i)+a(i+1) (i=2,3,4...N-1) Первый и последний члены последовательности не изменяются. где i - порядковый номер элемента а Помогите пожалуйста!!!
Free Pascal Числа Якобшталя 1. Пользователь вводит целое положительное число m. Найти наибольшее натуральное число k, при котором сумма 22 + 42 + 62 + ... + (2k)2 < m. Вывести на экран таблицу значений сумм при всех k от 60 до 80. 2. Числа Якобшталя определяются так: первое и второе числа равны 1, каждое следующее равно a(n)=a(n-1)+2a(n-2). Составить программу, которая находит первые k чисел Якобшталя (k – задается... https://www.cyberforum.ru/ free-pascal/ thread360228.html
Площади заштрихованных фигур Free Pascal
Пожалуйста помогите, если вам не сложно она не сложная но в паскале не работал а нужно очень срочно в программу надо ещё записать площаи этих заштихованных фигур( ну ели получится)
Free Pascal Определить суммы каждой диагонали, параллельной побочной, записав их в одномерный массив Privet! Создать матрицу N*N, заполняя его числами от 1 до N*N в последовательности индексов , , , , , и т.д. (т.е. “змейкой”). Определить суммы каждой диагонали, параллельной побочной, записав их в одномерный массив. не могу понять задачу, что значит параллельной побочной? https://www.cyberforum.ru/ free-pascal/ thread360030.html
1 / 1 / 0
Регистрация: 08.10.2011
Сообщений: 13
0

Задача про линию шариков (удаление со сдвигом 3х и более одинаковых подряд идущих) - Free Pascal - Ответ 2050927

08.10.2011, 11:25. Показов 17575. Ответов 22
Метки (Все метки)

Author24 — интернет-сервис помощи студентам
В одной компьютерной игре игрок выставляет в линию шарики разных цветов. Когда образуется
непрерывная цепочка из трех и более шариков одного цвета, она удаляется из линии. Все шарики
при этом сдвигаются друг к другу, и ситуация может повториться.

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

Формат входного файла

Даны количество шариков в цепочке (не более 1000) и цвета шариков (от 0 до 9, каждому цвету
соответствует свое целое число).

Формат выходного файла

Требуется вывести количество шариков, которое будет уничтожено.

Пример: ввод: 10 3 3 2 1 1 1 2 2 3 3 вывод: 10

Вернуться к обсуждению:
Задача про линию шариков (удаление со сдвигом 3х и более одинаковых подряд идущих) Free Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2011, 11:25
Готовые ответы и решения:

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

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

Удаление строк, в которых 3 или более подряд идущих одинаковых элементов
Задана матрица размером NxM. Удалить те строки, в которых встречается 3 или более подряд идущих...

Удаление подряд идущих одинаковых элементов массива
В целочисленном массиве удалить все подряд идущие одинаковые элементы.

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

Список: Удаление всех подряд идущих одинаковых элементов из списка
Помогите пожалуйста реализовать процедуру удаления всех подряд идущих одинаковых элементов из...

Задача на динамическое программирование(скорее всего) (сколькими способами в сумме получить N, без подряд идущих одинаковых чисел)
Дано число N&lt;106 и три числа A,B,C&lt;=N нужно вывести сколькими способами в сумме получить N, без...

Имеются ли в последовательности два идущих подряд нулевых числа или три подряд одинаковых числа
44. Даны целые числа k, k,...,k (m=20). Имеются ли в последовательности два идущих подряд нулевых...

Поиск идущих подряд одинаковых символов.
Написал программу поиска идущих подряд одинаковых символов, но оно не совсем работает......

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