уравнение

[Poma][a]

.Разработать программу, которая будет находить корень уравнения вида x + 5 = 12, и выводить ответ в виде: x = 7. Переменная может быть обозначена любой строчной латинской буквой. Переменная может быть либо первым, либо вторым операндом в левой части уравнения. В левой части уравнения может быть либо операция сложения либо вычитания. Константы и в левой и в правой части уравнения - целые числа. Примеры:

-10 - y = 3 Ответ: y = -13
a + 4 = 12 Ответ: a = 8

И может быть только одна строка!!

[Poma][a]

сам я пытался :
зделал цикл чтоб удалил все пробелы, затем

k  := 1;
Val (s [k], i, err);
if  err <> 0 then begin
          Val (s[k+2], i, err);
           k := k +2;
           end;
Inc (k);
d := i;
Val (s [k], i, err);
l :=Pos ('=', s);
While err = 0 do begin
           d := d + 1;
           val (s [k], i, err);
           end;
WriteLn (d)
end.

знаю что программa не всz (там даже половины нет)) но в последнем цикле ошибка, я её не вижу помогите плиз

[Poma][a]

ну блин!! люди помогите !!!

[_Alerter_]

Вот, написано кривовато, но работает)

uses crt;
var
	str, num, num2 : string;
	ch : char;
	i, k, x : integer;
	subz, ravno : boolean;
procedure DelSpace(var s : string);
var
	i : integer;
begin
	i := 1;
	while i <= length(s) do
	begin
		if str[i] = ' ' then Delete(s, i, 1);
		Inc(i);
	end;
end;

begin
           clrscr;
	ReadLn(str);
	DelSpace(str);
	i := 1;
	k := 1;
	subz := false;
	ravno := false;
	while i <= length(str) do
	begin
		if (str[i] >= 'a') and (str[i] <= 'z') then
		begin
			ch := str[i];
		end;
		if ((str[i] >= '0') and (str[i] <= '9')) or ((str[i] = '-') and (str[i + 1] >= '0') and (str[i + 1] <= '9')) then
		begin
			if not ravno then
			begin
				num[k] := str[i];
				num[0] := Chr(k);
				Inc(k);
			end;	
		end;
		if (str[i] = '-') and (str[i + 1] >= 'a') and (str[i] <= 'z') and (not ravno) then
		begin
			subz := true;
		end
		else if ravno = true then
		begin
			num2[k] := str[i];
			num2[0] := Chr(k);
			Inc(k);
		end
		else if (str[i] = '=') then
		begin
			ravno := true;
			k := 1;
		end;
		Inc(i);
	end;
	val(num, k, i);
	val(num2, x, i);
	i := 1;
	x := x - k;
	if subz then
		x := x * (-1);
	WriteLn(ch, ' = ', x);
	readln
end.

[Poma][a]

Сообщение от _Alerter_

Вот, написано кривовато, но работает)

uses crt;
var
	str, num, num2 : string;
	ch : char;
	i, k, x : integer;
	subz, ravno : boolean;
procedure DelSpace(var s : string);
var
	i : integer;
begin
	i := 1;
	while i <= length(s) do
	begin
		if str[i] = ' ' then Delete(s, i, 1);
		Inc(i);
	end;
end;

begin
           clrscr;
	ReadLn(str);
	DelSpace(str);
	i := 1;
	k := 1;
	subz := false;
	ravno := false;
	while i <= length(str) do
	begin
		if (str[i] >= 'a') and (str[i] <= 'z') then
		begin
			ch := str[i];
		end;
		if ((str[i] >= '0') and (str[i] <= '9')) or ((str[i] = '-') and (str[i + 1] >= '0') and (str[i + 1] <= '9')) then
		begin
			if not ravno then
			begin
				num[k] := str[i];
				num[0] := Chr(k);
				Inc(k);
			end;	
		end;
		if (str[i] = '-') and (str[i + 1] >= 'a') and (str[i] <= 'z') and (not ravno) then
		begin
			subz := true;
		end
		else if ravno = true then
		begin
			num2[k] := str[i];
			num2[0] := Chr(k);
			Inc(k);
		end
		else if (str[i] = '=') then
		begin
			ravno := true;
			k := 1;
		end;
		Inc(i);
	end;
	val(num, k, i);
	val(num2, x, i);
	i := 1;
	x := x - k;
	if subz then
		x := x * (-1);
	WriteLn(ch, ' = ', x);
	readln
end.

спасибо щас буду разбираться