Дописать программу в паскаль. ниже. не знаю как сделать ее со скобками. напишите программу, которая вычисляет выражение, состоящее из трех чисел и двух знаков (допускаются знаки «+», «–», «*» и «/») и круглых скобок. выражение вводится как символьная строка, все числа целые. операция «/» выполняется как целочисленное деление (div). пример: введите выражение: 2*(3+45)+4 ответ: 100 вот что у меня есть: ( я сделала, чтобы вычисляло выражение их 3 чисел и двух знаков, но не получается сделать так, чтобы учитывались круглые скобки ) var s, s1, s2, s3, s4: string; i, a, b, c, d, e, f: integer; begin writeln('введите строку: '); readln(s); for i : = 1 to length(s) do begin if (s[i] = '+') or (s[i] = '-') or (s[i] = '*') or (s[i] = '/') then begin s1 : = copy(s, 1, i-1); s2 : = copy(s, i+1, length(s)); c : = i; end; end; for i : = 1 to length(s1) do begin if (s1[i] = '+') or (s1[i] = '-') or (s1[i] = '*') or (s1[i] = '/') then begin s3 : = copy(s1, 1, i-1); s4 : = copy(s1, i+1, length(s1)); e : = i; end; end; val(s3, a, d); val(s4, b, d); val(s2, f, d); if (s[e] = '/') and (s[c] = '/') then writeln((a div b) div f); if (s[e] = '/') and (s[c] = '*') then writeln((a div b) * f); if (s[e] = '+') and (s[c] = '*') then writeln(a + (b * f)); if (s[e] = '*') and (s[c] = '*') then writeln(a * b * f); if (s[e] = '+') and (s[c] = '/') then writeln(a + (b div f)); if (s[e] = '*') and (s[c] = '+') then writeln((a * b) + f); if (s[e] = '/') and (s[c] = '+') then writeln((a div b) + f); if (s[e] = '*') and (s[c] = '/') then writeln((a * b) div f); if (s[e] = '+') and (s[c] = '+') then writeln(a + b + f); if (s[e] = '-') and (s[c] = '-') then writeln(a - b - f); if (s[e] = '+') and (s[c] = '-') then writeln(a + b - f); if (s[e] = '-') and (s[c] = '+') then writeln(a - b + f); if (s[e] = '*') and (s[c] = '-') then writeln((a * b) - f); if (s[e] = '/') and (s[c] = '-') then writeln((a div b) - f); if (s[e] = '-') and (s[c] = '*') then writeln(a- (b * f)); if (s[e] = '-') and (s[c] = '/') then writeln(a - (b div f)); end.

Популярно: Информатика

• 

  madi101

  19.11.2020 02:33
  Написать программу, которая вводит десять чисел в одномерный массив, а затем...
• 

  nnnnn777

  04.01.2020 05:07
  Запишите оператор для вывода значений целых переменных a = 5 и b = 3 в формате:...
• 

  бэйба123

  21.08.2021 09:39
  Python это если что я зык такой ну типо того...
• 

  danil1365334

  21.11.2021 13:37
  В списке хранятся оценки учеников. Напишите программу, которая выводит номера...
• 

  Умники121212

  25.04.2022 18:08
  Python да қолданылатын логикалық деректер типін көрсет​...
• 

  Артем15227897

  08.02.2020 05:03
  Написать код программы определяющую количество секунд по заданному количеству...
• 

  sashik2005

  26.07.2021 05:09
  Розв язати систему мовою програмування​...
• 

  иван1159

  02.02.2021 19:16
  Запусти Новый файл в среде Python, (File – New File) и замени оператор break...
• 

  nastyapuhova1

  25.02.2022 17:35
  1. В каких режимах можно вводить программу на языке Python? ​...
• 

  Albina7890

  01.01.2023 19:40
  История и перспективы робототехники красных – 4, желтых – 3, зеленых – 2 красных...