Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Определить максимальный из периметров десяти треугольников https://www.cyberforum.ru/ pascal/ thread93663.html Определить максимальный из периметров десяти треугольников, вершины которых A, B, C заданы координатами (x, y) в массивах: AX(10), AY(10), BX(10), BY(10), СХ(10), CY(10) соответственно. Периметр сторон треугольника вычислять в подпрограмме-функции	Разработка прог с использованием комбинаторных алгоритмов Pascal Ребят, нужно написать прогу по решению следующей задачи: Вычислить количество двоичных матриц с 3 строками и 4 столбцами, все строки которых различны. Буду очень признательна, если мне поможете!! Прошу, сама не могу к сожалению понять(((
Pascal сортировка двумерного массива в паскале Помогите, пожалуйста! Вот такое задание! В двумерном массиве хранится информация о результатах ЕГЭ десяти абитуриентов по 5-ти предметам. Каждый столбец массива - один предмет. Каждая строка - результат одного абитуриента. Заполните двумерный массив случайным образом. Выведите на экран заполненный массив по строкам под заголовком Input data. Отсортируйте оценки по каждому предмету по... https://www.cyberforum.ru/ pascal/ thread93634.html	Pascal Полный граф по матрице инциденции https://www.cyberforum.ru/ pascal/ thread93627.html Граф задан матрицей инциденции. Определить является ли он полным. Достроить до полного графа если он таковым не является. 6<n<10. Если би использовалась матрица смежности то и вопроса бы не возникло :( а так что то даже в голову ничего не идет. Помогите пожалуйста.
Pascal Среднее арифмет. положительных элементов трех массивов Дано массивы А(10), В(8), С(6) Найти среднее арифметическое положительных элементов всех трех массивов	Pascal Вывести на экран только те символы? которые находятся между "(" и ")". Пусть задан не пустой текст. Вывести на экран только те символы которые находятся между "(" и ")". Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread93624.html
Pascal Тектовые файлы.Строки https://www.cyberforum.ru/ pascal/ thread93623.html Удалить слова с чётной длиной	Pascal Определить номер и значение первого элемента массива, большего своего номера 1. Дан массив B(k), k<=20. Определить номер и значение первого элемента массива, большего своего номера. Сформировать новый масси из таких элементов. Вывести на экран исходный и полученный массивы. 2.*Сформировать массив, состоящий из символов с четными порядковыми номерами, начиная с символа К. Количество элементов массива вводит пользователь. Вывести полученный массив на экран. 3. Дан...
Pascal Описать запись с именем AEROFLOT https://www.cyberforum.ru/ pascal/ thread93599.html описать запись с именем AEROFLOT,содержащую след поля:название пункта,название рейса,номер рейса,тип самолёта.Написать программу,выполняющую след действия: ввод с клавиатуры данных в массив,состоящий из семи элементов типа AEROFLOT; вывод на экран номеров рейсов и типов самолётов,вылетающих в пункт назначения,название которого совпало с введённым с клавиатуры.Упарядочить записи по возрастанию...	Pascal Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго мень https://www.cyberforum.ru/ pascal/ thread93593.html Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго меньше N. Thanks Добавлено через 47 минут up Добавлено через 32 минуты Вот накалякал, но не уверен, что работает во всех случаях: var n,i,h,j,n1:integer; tmp,sum:real;
Pascal Графика и динамическая память Доброго времени суток! Нужна помощь в решении 2 задач. 1 Дана квадратная матрица порядка n(n=10). Упорядочить строки матрицы по убыванию. Заменить все элементы главной диагонали и ниже нее нулями.(нужно сделать с помощью динамической памяти) 2 Построить равнобочную трапецию с заданными основаниями и высотой. Закра-сить ее последовательно разными цветами. Код: uses Graph; var...	Pascal Определить номер и значение первого элемента массива, большего числа M 1.Дан массив F(n), n<=15.Определить номер и значение первого элемента массива, большего числа M, предполагая , что такой элемент существует. Определить Сумму и количество элементов массива, больших М. Сформировать новый массив, состоящий из номеров элемента,больших М. Вывести на экран исходный и полученный массив. 2. Сформировать массив, на четных местах которого стоят нули , а на нечетных... https://www.cyberforum.ru/ pascal/ thread93578.html

Puporev

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

64304 / 47599 / 32743

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

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

08.02.2010, 20:44

правильность расставления скобок... - Pascal - Ответ 532125

08.02.2010, 20:44. Показов 4450. Ответов 5

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

Ответ

Попробуйте так.

Pascal

d:=length(s);
m:=0;
k:=0;
n:=0;
for i:=1 to d do
 begin
  if s[i]='(' then m:=m+1;
  if s[i]=')' then m:=m-1;
  if s[i]='{' then n:=n+1;
  if s[i]='}' then n:=n-1;
  if s[i]='[' then k:=k+1;
  if s[i]=']' then k:=k-1;
  if (m<0) or (n<0) or (k<0) then
    begin
     write('NO');
     exit;
    end;
 end;
if (m=0) and (n=0) and (k=0) then
write('Yes')
else write('No');

Вернуться к обсуждению:
правильность расставления скобок... Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

08.02.2010, 20:44

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

Проверить правильность расстановки скобок
Дано арифметическое выражение, содержащее три вида скобок "(","[","{". Проверить правильность...

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

Необходимо проверить расстановок скобок на правильность написания
Необходимо проверить расстановок скобок.На правильность написания и исправить. Правильно (), Не...

Проверить правильность расстановки операторных скобок 'begin' и 'end'
Доброго времени суток )))) Помогите пожалуйста : проверка правильности расстановки операторных...

	08.02.2010, 20:44

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

08.02.2010, 20:44

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

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

Дан массив строк. Напишите программу, проверяющую правильность вложения операторных скобок begin . end — каждому begin должен соответствовать end
Дан массив строк, представляющий собой фрагмент программы на языке Pascal. Напишите программу,...

Проверить правильность расстановки скобок трех типов в выражении
Проверить правильность расстановки скобок трех типов (круглых, квадратных и фигурных) в выражении....

Правильность расстановки скобок
В строке записано математическое выражение с круглыми скобками. Проверить правильность расстановки...

Наверх