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

@A_Orlov · Регистрация: 27.04.2010

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

Помогите решить пожалуйста!
Дана строка, изображающая арифметическое выражение вида «<цифра>±<цифра>±…±<цифра>», где на месте знака операции «±» находится символ «+» или «–» (например, «4+7–2–8»). Вывести значение данного выражения (целое число).

@Puporev · 27.04.2010, 17:37

Pascal

uses crt;
const cf=['0'..'9'];
var s:string;
    sm:integer;
    i:byte;
begin
clrscr;
writeln('Введите строку из цифр, чередующихся со знаками + и - ');
readln(s);
sm:=0;
for i:=1 to length(s) do
 begin
  if(s[i] in cf)and((s[i-1]='+')or(i=1))then sm:=sm+(ord(s[i])-48);
  if(s[i] in cf)and(s[i-1]='-') then sm:=sm-(ord(s[i])-48);
 end;
write('Значение=',sm);
readln
end.

@A_Orlov 0 / 0 / 0 Регистрация: 27.04.2010 Сообщений: 24
		1
	Вычислить значение выражения 27.04.2010, 16:20. Показов 3137. Ответов 1 Метки нет (Все метки) Помогите решить пожалуйста! Дана строка, изображающая арифметическое выражение вида «<цифра>±<цифра>±…±<цифра>», где на месте знака операции «±» находится символ «+» или «–» (например, «4+7–2–8»). Вывести значение данного выражения (целое число). 0

	27.04.2010, 17:37

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

Решение