Нельзя преобразовать тип string к real как исправить

Объяснение:

Не совсем понятно, что хотите сделать в данной программе. Обо всем по порядку.

1. Ошибка: «Нельзя преобразовать тип string к real».

D := (‘b*b-4*a*c’);

Вы пытаетесь присвоить переменной D строку, хотя она является переменной типа Real . Это абсолютно два разных типа переменных.

Real — вещественный тип, т.е. поддерживает числа с запятой и принимает на ввод такие числа, как «2.534» или «3.0»; никаких букв быть не может;

String — строковый тип, т.е. поддерживает строки, где значение заключается в одинарные кавычки, например ‘Мама мыла раму’; также можно ввести цифры, например ‘4,096’, но учтите, что строки не могу принимать участие в арифметических операциях (есть конечно процедуры перевода из строки в число, но, насколько я поняла, вы только начинаете программировать и пока что нужно понять азы программирования).

Нельзя присвоить вещественному типу строку и наоборот, что вы и делаете в 11 строке.

А теперь перейдем к моментам, в которых не совсем понятно, что хотите сделать.

Возьмем 11 и 12 строки:

<em>D := (‘b*b-4*a*c’);
</em>

<em>readln(‘дискримінант’,D);</em>

Что вам нужно?:

а) Посчитать и вывести чему будет равен D:

Для этого нужно убрать одинарные кавычки в 11 строке и вместо «ReadLn» написать «WriteLn». Строки будут иметь следующий вид:

<em>D:=b*b-4*a*c;</em>

<em>Writeln(‘дискримінант ‘,D);</em>

<em></em>

б) Вывести строку как считается дискриминант и попросить пользователя ввести данное число:

В этом случае, в 11 строке пишем WriteLn, а в 12 строке убираем <em>’дискримінант'</em>. Строки будут иметь следующий вид:

<em>writeln(‘D:=(b*b-4*a*c). ‘, ‘дискримінант’);
</em>

<em>readln(d);</em>

<em />

Та же история и со строками 13-14, 15-16.

2. У вас не объявлены переменные «x1», «x2». Для того, чтобы программа работала, добавляем их в «var»:

<em>var</em>

<em>a, b, c, d, x1, x2: real;</em>