|
|
Другие темы раздела | |
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 - Ответ 205092708.10.2011, 11:25. Показов 17575. Ответов 22
Метки (Все метки)
В одной компьютерной игре игрок выставляет в линию шарики разных цветов. Когда образуется
непрерывная цепочка из трех и более шариков одного цвета, она удаляется из линии. Все шарики при этом сдвигаются друг к другу, и ситуация может повториться. Напишите программу, которая по данной ситуации определяет, сколько шариков будет сейчас уничтожено. Естественно, непрерывных цепочек из трех и более одноцветных шаров в начальный может быть не более одной. Формат входного файла Даны количество шариков в цепочке (не более 1000) и цвета шариков (от 0 до 9, каждому цвету соответствует свое целое число). Формат выходного файла Требуется вывести количество шариков, которое будет уничтожено. Пример: ввод: 10 3 3 2 1 1 1 2 2 3 3 вывод: 10 Вернуться к обсуждению: Задача про линию шариков (удаление со сдвигом 3х и более одинаковых подряд идущих) Free Pascal
0
|
08.10.2011, 11:25 | |
Готовые ответы и решения:
22
Обработка строк: Заменить большие буквы маленькими в словах, содержащих две и более подряд идущих одинаковых букв Задача про линию шариков (удаление со сдвигом 3х и более одинаковых подряд идущих) Удаление строк, в которых 3 или более подряд идущих одинаковых элементов Удаление подряд идущих одинаковых элементов массива |
08.10.2011, 11:25 | |
08.10.2011, 11:25 | |
Помогаю со студенческими работами здесь
0
Список: Удаление всех подряд идущих одинаковых элементов из списка Задача на динамическое программирование(скорее всего) (сколькими способами в сумме получить N, без подряд идущих одинаковых чисел) Имеются ли в последовательности два идущих подряд нулевых числа или три подряд одинаковых числа Поиск идущих подряд одинаковых символов. |