Операция '=' не применима к типам real и char

[Cryptic22]

Операция '=' не применима к типам real и char. Как исправить?

Program calculate;
var c,v:integer;
    a,g:real;
    b:char;
 

Begin

b:='-';
g:=9.8;

Writeln('Введите объем');
Readln(a);
 if (a=b)then
 
a:= a/10000;

{Writeln('Введите массу');
Readln(b);}

Writeln('Введите плотность');//Если не знаете введите название жидкости
Readln(c);

Writeln(a*g*c);


End.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Sciv]

a:real;
b:char;
...
if (a=b)then

Это сурово. А зачем Вам тут нужен чар, если у Вас расчитывается формула из вещественных чисел?

А ещё g := 9.8; вполне выносится в константу - прямо как в учебнике физики

[ura_111]

Попробуй удалить строчку:

if (a=b)then

[Serge_Bliznykov]

про ошибку в строке if (a=b)then
где a - это вещественное (дробное) число, а b - это символ '-' всё верно сказали.

но, чтобы исправить ошибку, нужно понять логику.
а я не могу понять, что за алгоритм пытался автор реализовать в строчках:

 if (a=b)then
     a:= a/10000;

это читаем так, если ввели символ "-" (пока опустим невозможность ввести символ в переменную вещественного типа), тогда нужно в переменную a записать символ "-" разделенный на 10000. Это, простите, как? и для чего?

Автор, Вы какую задачу вообще пытаетесь решить?

[Cryptic22]

Я пытаюсь сделать код по решению задач по физике с использование формул, то есть формула F=gmV и если в это формуле m или v неизвестно я хочу чтобы код вычислил их по другим формулам. Именно поэтому я пишу условном операторе что значение неизвестно

[Sciv]

если в это формуле m или v неизвестно я хочу чтобы код вычислил их по другим формулам.

В случае с данными величинами вполне можно использовать число "-1" в качестве определения неизвестности. То есть предложить пользователю "Введите массу или -1, если масса неизвестна" и соответственно сравнивать введённое значение с -1.

Тот метод, который Вы выбрали, требует сначала ввода char. Но поскольку введённое число может не уместиться в один символ, придётся использовать уже даже не char, а string.
Потом, если этот char/string не равен "-" - требуется его преобразование в real (функция val в "классическом" паскале или StrToFloat в обжект-паскале), и уже с real проводить все необходимые расчёты.

[Serge_Bliznykov]

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

то есть формула F=gmV и если в это формуле m или v неизвестно я хочу чтобы код вычислил их по другим формулам.

т.е., если вместо неизвестного объёма ввести -, тогда объём находится как неизвестное значение разделить на 10000?!! Однако! Интересные у Вас методы решения уравнения!