Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 04.01.2015
Сообщений: 7
1

В качестве исходного текста задать арифметическое выражение, записанное на Паскале

04.01.2015, 23:20. Показов 618. Ответов 4
Метки нет (Все метки)

Помогите решить задачу.

В качестве исходного текста задать арифметическое выражение, записанное на Паскале. Проверить, соблюдается ли равенство открывающих и закрывающих скобок. Вывести на печать исходный текст и количество открывающих и закрывающих скобок.

я так понимаю надо либо ввести либо из txt файла прочитать арифм. строку, например: y*(sqrt(c))*(exp(ln(y+a))*d), и проверить равенства в скобках.
Помогите сделать по простому (запустил и в окне вывода запись: exp(ln(y+a))=...). Желательно,по возможности, без record, boolean, type, procedure ...
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.01.2015, 23:20
Ответы с готовыми решениями:

Вычислить арифметическое выражение записанное в строку
Дана строка, содержащая N-ое количество чисел (N<6) со знаками вычисления между ними (сложение,...

Вычислить выражение, записанное в Edit
Всем привет! Вот задачка: Есть функция, есть Edit. function Fun(x1, x2 : real) :Real;...

Вычислить выражение, записанное строкой
Написать программу, которая использует класс string для анализа строки, содержащей математическое...

Вычислить выражение записанное в стрке
Здравствуйте. Подскажите как выполнить следующее: данна строка. необходимо вычислить выражение...

4
4651 / 2339 / 2214
Регистрация: 10.12.2014
Сообщений: 9,002
05.01.2015, 06:28 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
parent := 0;
for i := 1 to Str.Length do
  case Str[i] of
    '(' : inc(parent);
    ')' : begin
            dec(parent);
            if parent < 0 then
              begin
                 { скобки не согласованы }
                 Break;
              end;
          end;
  end; { case }
Добавлено через 14 минут
Забыл в конце добавить:
Pascal
1
2
3
4
if parent = 0 then
  { скобки согласованы }
else
  { скобки не согласованы }
1
0 / 0 / 0
Регистрация: 04.01.2015
Сообщений: 7
05.01.2015, 23:35  [ТС] 3
Спасибо за работу. Но для меня сложно, не могу разобраться...
0
4651 / 2339 / 2214
Регистрация: 10.12.2014
Сообщений: 9,002
06.01.2015, 05:42 4
basel, забей программу и по шагам с помощью отладчика прогони для разных строк:
(())()
())()
(()()
1
0 / 0 / 0
Регистрация: 04.01.2015
Сообщений: 7
06.01.2015, 12:18  [ТС] 5
буду делать, спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2015, 12:18

Вычислить выражение, записанное в постфиксной записи
В постфиксной записи (или обратной польской записи) операция записывается после двух операндов....

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

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

Написать программу, которая переводит выражение, записанное в обычной (инфиксной) форме в текстовом файле infix, в постфиксную форму
Дали непростые задачи по программированию. Кто бы мог хотя бы ввести меня в дело? Постфиксной...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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