VPF::[pascal]Приведение подобных членов в строке

Seifer

Дата 16.10.2007, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 9.4.2006

Репутация: нет
Всего: нет

Не могу решить:
Строка содержит выражение, состоящее из произведений вида С*Х, С - целая константа, Х - имя переменной, состоящей из 1й латинской буквы. Такие произведения объединены знаками + или - . Если константа = 1, то она и соответствующий ей знак умножения могут отсутствовать. Например, 8*А-3*В+6*А+В. Составить программу, выполняющую приведение подобных членов в выражении и выводящую сформировавшуюся строку.

volvo877

Дата 17.10.2007, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Вот так, что-ли:

Код


var
  s, sub: string;
  coeff: array['A' .. 'Z'] of integer;
  i, p, err, coef: integer;
  letter: char;

const sign: array[boolean] of char = ('+', '-');

begin
  i := 1;
  s := '8*A-3*B+6*A+B+11*C-23*a+4*b';
  repeat
    sub := '+';
    repeat
      if s[i] = '-' then sub := '-'
      else if s[i] = '+' then
           else sub := sub + s[i];
      inc(i);
    until (i > length(s)) or (s[i] in ['+', '-']);

    coef := 1; letter := upcase(sub[2]);
    p := pos('*', sub);
    if p > 0 then begin
      val(copy(sub, 2, p - 2), coef, err);
      letter := upcase(sub[p + 1]);
    end;
    if sub[1] = '-' then coef := - coef;
    coeff[letter] := coeff[letter] + coef;

  until i > length(s);
  writeln('result:');
  for letter := 'A' to 'Z' do
    if coeff[letter] <> 0 then write(sign[coeff[letter] < 0]:2, abs(coeff[letter]):3, '*', letter);
  writeln;
end.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »