Работа со строками

@KnightOfKamelot · Регистрация: 24.11.2016

Студворк — интернет-сервис помощи студентам

Дан файл, в котором записан ряд математических примеров на сложение или вычитание с ответами. Подсчитать количество верно решенных примеров.

@KnightOfKamelot · 12.12.2016, 21:03 **[ТС]**

Помогите доработать программу, к примеру ввожу в текстовый файл 4-3+6=7, выводит Количество правильных примеров: 0, работает только если перед + и минусом ставить пробел

CSS

var
  input: text;
  solution: integer;
  example: string;
 
procedure Calculatoin(input: string);
var
  results: array of string;
  Sum, number: real;
  error, act: integer;
  s: string;
begin
  Sum := 0;
  results := input.Split('=');
  foreach s in Regex.Split(results[0], ' +')  do 
  begin
    val(s, number, error);
    if error = 1 then begin
      if s = '+' then act := 0
      else if s = '-' then act := 1;
      continue;
    end
    else
      case act of
        0: Sum := Sum + number;
        1: Sum := Sum - number;
      end;
  end;
  val(results[1], number, error);
  if number = Sum then inc(solution);
end;
 
begin
  assign(Input, 'Input.txt');
  reset(Input);
  solution := 0;  
  while not eof(input) do 
  begin
    readln(input, example);  
    Calculatoin(example);
  end;
  close(input);
  Writeln('Количетсво правильных примеров: ', solution);
end.

Добавлено через 1 час 11 минут
Решил предыдущую проблему. Если может кто упростить и ускорить программу, пишите свое решение

@KnightOfKamelot 0 / 0 / 0 Регистрация: 24.11.2016 Сообщений: 2
		1
	Работа со строками 11.12.2016, 14:03. Показов 730. Ответов 1 Метки нет (Все метки) Дан файл, в котором записан ряд математических примеров на сложение или вычитание с ответами. Подсчитать количество верно решенных примеров. 0

Опции темы