Pascal (Паскаль)

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

Войти

Другие темы раздела
Pascal сортировка двумерного массива в паскале https://www.cyberforum.ru/ pascal/ thread93634.html Помогите, пожалуйста! Вот такое задание! В двумерном массиве хранится информация о результатах ЕГЭ десяти абитуриентов по 5-ти предметам. Каждый столбец массива - один предмет. Каждая строка -... Глупое какое условие задачи, написали бы отсортировать столбцы целочисленной матрицы по убыванию, без заморочек, а так получается, что ученику, написанному первым, достанутся одни пятёрки, а...	Pascal Разработка прог с использованием комбинаторных алгоритмов https://www.cyberforum.ru/ pascal/ thread93637.html Ребят, нужно написать прогу по решению следующей задачи: Вычислить количество двоичных матриц с 3 строками и 4 столбцами, все строки которых различны. Буду очень признательна, если мне поможете!!... задача аналогична задаче: сколько существует троек различных чисел, каждое из которых может принимать значение от 0 до 15 var i,j,k:integer; kol:longint; begin for i:=0 to 15 do for j:=0 to...
Pascal Полный граф по матрице инциденции Граф задан матрицей инциденции. Определить является ли он полным. Достроить до полного графа если он таковым не является. 6<n<10. Если би использовалась матрица смежности то и вопроса бы не возникло... Melfis, если Вы погуглите что из себя представляет матрица инциденций, и т.к. Вы ,как я понимаю, знаете что такое матрица смежности, то напишите функцию по переводу матрици инциденций в матрицу... https://www.cyberforum.ru/ pascal/ thread93627.html	Pascal Вывести на экран только те символы? которые находятся между "(" и ")". Пусть задан не пустой текст. Вывести на экран только те символы которые находятся между "(" и ")". Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread93624.html
Pascal Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго мень https://www.cyberforum.ru/ pascal/ thread93593.html Дан отсортированый массив и число N. Если сумма двух элементов массива >= N, то исключить элементы. Т.е. вывести элементы, сумма которых строго меньше N. Thanks Добавлено через 47 минут up ... Мне кажется, что гораздо удобнее заполнять массив случайными числами, а затем сортировать его. Дан отсортированый массив Если по убыванию, то в 15-ой строке вместо > поставить < вывести элементы,...	Pascal Определить номер и значение первого элемента массива, большего своего номера 1. Дан массив B(k), k<=20. Определить номер и значение первого элемента массива, большего своего номера. Сформировать новый масси из таких элементов. Вывести на экран исходный и полученный массивы. ... https://www.cyberforum.ru/ pascal/ thread93614.html
Pascal Графика и динамическая память Доброго времени суток! Нужна помощь в решении 2 задач. 1 Дана квадратная матрица порядка n(n=10). Упорядочить строки матрицы по убыванию. Заменить все элементы главной диагонали и ниже нее... for j:=1 to 1000000 do end; Это конечно оригинально. Добавлено через 15 минут uses Graph,Crt; var x,y,i:integer; begin x:=0; InitGraph(x,y,''); https://www.cyberforum.ru/ pascal/ thread93592.html	Pascal Определить номер и значение первого элемента массива, большего числа M 1.Дан массив F(n), n<=15.Определить номер и значение первого элемента массива, большего числа M, предполагая , что такой элемент существует. Определить Сумму и количество элементов массива, больших... 1: uses crt; var f:array of integer; a:array of integer; i,m,n,s,kol,r:integer; begin clrscr; write('Ââåäèòå ðàçìåð ìàññèâà='); readln(n); write('Ââåäèòå m=');
Pascal Описать запись с именем AEROFLOT описать запись с именем AEROFLOT,содержащую след поля:название пункта,название рейса,номер рейса,тип самолёта.Написать программу,выполняющую след действия: ввод с клавиатуры данных в... uses crt; const n=7; type aeroflot=record naz:string; rjs:string; nom:word; typ:string; end; var a:array of aeroflot; ... https://www.cyberforum.ru/ pascal/ thread93599.html	Pascal Среднее арифмет. положительных элементов трех массивов Дано массивы А(10), В(8), С(6) Найти среднее арифметическое положительных элементов всех трех массивов uses crt; var a:array of integer; b:arrayof integer; c:array of integer; i,s,kol:integer; begin clrscr; writeln('Ïåðâûé ìàññèâ'); randomize; for i:=1 to 10 do
Тектовые файлы.Строки Pascal Удалить слова с чётной длиной	Определить максимальный из периметров десяти треугольников Pascal Определить максимальный из периметров десяти треугольников, вершины которых A, B, C заданы координатами (x, y) в массивах: AX(10), AY(10), BX(10), BY(10), СХ(10), CY(10) соответственно. Периметр... uses crt; const n=10; function Dlina(x1,y1,x2,y2:real):real;//длина стороны begin Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2)); end; function Prov(a,b,c:real):boolean;//проверка, треугольник или нет...

Puporev

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

64305 / 47602 / 32742

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

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

08.02.2010, 20:44

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

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

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

Ответ

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

08.02.2010, 20:44

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

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

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

08.02.2010, 20:44

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

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

В некотором тексте проверьте правильность расположения круглых, квадратных и фигурных скобок
В некотором тексте проверьте правильность расположения круглых, квадратных и фигурных скобок. Тема: ТИПЫ ДАННЫХ STRING. СТАНДАРТНЫЕ...

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Исследование байт-кода Python: подключаем дизассемблер stackOverflow 19.02.2025 Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .	Исследование байт-кода Python: компиляторы против интерпретаторов stackOverflow 19.02.2025 Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .	Comprehensions в Python - что это такое? stackOverflow 19.02.2025 Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .	Python правда такой медленный? Развенчиваем миф о медлительности stackOverflow 19.02.2025 Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .	Динамические формы в Flask stackOverflow 19.02.2025 Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS stackOverflow 19.02.2025 Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .	где chromium хранит пароли и как их обнулить в пожарном варианте jigi33 19.02.2025 Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)	howto get access to external internet resources with kinit jigi33 19.02.2025 Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)	Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi stackOverflow 19.02.2025 В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .	ENV (environments) valid paths in linux jigi33 19.02.2025 Environments paths (see screenshot)

Наверх