Вычисление выражения

27.02.2013, 19:05. **Показов** 967. **Ответов** 3

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

С клавиатуры вводится строка, содержащая знаки арифметических операций + - и заканчивающаяся =. Написать программу, вычисляющую значение полученного арифметического выражения.
Если можно, с помощью процедуры\функции.

@Sckrejjet · 27.02.2013, 20:02

Если я правильно понял, то так

Пробелы ставить нельзя, в дробных числах стоит точка, а не запятая, не забывать про "="(сам раз 10 забыл

)

Pascal

uses crt;
var
  s:string;
  
function Otvet (fs:string):real;
var
  i,pff:integer;
  chisl:string;
  znak:char;
  x1,x2:real;
begin
  i:=0; x1:=0; x2:=0;
  chisl:=''; znak:='+';
  
  repeat
    inc(i);
    while ((fs[i]<>'+') and (fs[i]<>'-') and (fs[i]<>'=')) and (i<Length(fs)) do
      begin
        chisl:=chisl+fs[i];
        inc(i);
      end;
    Val(chisl,x2,pff);
    chisl:='';
 
    if znak='+' then
      x1:=x1+x2
    else if znak='-' then
      x1:=x1-x2;
    znak:=s[i];
  until znak='=';
  
  Result:=x1;
end;
 
{---MAIN PROGRAMM---}
BEGIN
  s:='';
  write('Vvedite virajenie: ');
  readln(s);
  write(s,Otvet(s));
END.

02.03.2013, 17:25

А что надо вписать, чтобы скобки распознавал? С умножением/делением разобрался, а вот скобки не знаю как делать.

@Sckrejjet · 03.03.2013, 09:11

А Вы приоритет умножения и деления учли?))
Сейчас я не могу сделать, но может как-нибудь программно сделать что-то вроде:
12+32*3+(23-7)+4*(3+8)=
после чего "просканировав" текст на наличие скобок преобразовать в:
12+32*3+16+4*11=
то есть не в один ход, а в два

Тогда уже для этой строки будет работать ваш код

Oskard1
		1
	Вычисление выражения 27.02.2013, 19:05. Показов 967. Ответов 3 Метки нет (Все метки) С клавиатуры вводится строка, содержащая знаки арифметических операций + - и заканчивающаяся =. Написать программу, вычисляющую значение полученного арифметического выражения. Если можно, с помощью процедуры\функции.

Oskard1
	02.03.2013, 17:25	3
	А что надо вписать, чтобы скобки распознавал? С умножением/делением разобрался, а вот скобки не знаю как делать.

@Sckrejjet Кодинг - это искусство... 64 / 64 / 42 Регистрация: 07.01.2013 Сообщений: 156
	03.03.2013, 09:11	4
	А Вы приоритет умножения и деления учли?)) Сейчас я не могу сделать, но может как-нибудь программно сделать что-то вроде: 12+323+(23-7)+4(3+8)= после чего "просканировав" текст на наличие скобок преобразовать в: 12+323+16+411= то есть не в один ход, а в два Тогда уже для этой строки будет работать ваш код 0