freepascal.ru

Я только недавно начала изучать Free Pascal. В моём учебнике Алексеев Е. Р., Чеснокова О. В., Кучер Т. В. - Free Pascal и Lazarus(2010), есть пример такой программы:

Код: Выделить всё

var a, b, c, d, x1, x2: real;
begin
writeln (’Введите_коэффициенты_квадратного_уравнения’);
readln (a, b, c);
d:=b*b−4*a*c;
if d<0 then
begin
//Если дискриминант отрицателен, то вывод сообщения,
//что действительный корней нет и вычисление комплексных корней.
writeln (’Действительных_корней_нет’);
{Вычисление действительной части комплексных корней.}
x1:=−b/(2*a);
{Вычисление модуля мнимой части комплексных корней.}
x2:=sqrt(abs(d))/(2*a);
writeln ( ’Комплексные_корни_уравнения_’,
a:1:2, ’x^2+’ ,b:1:2, ’x+’ ,c:1:2, ’=0’ );
{Вывод значений комплексных корней в виде x1±ix2}
writeln (x1:1:2, ’+i*(’ ,x2:1:2, ’)’);
writeln (x1:1:2, ’−i*(’ ,x2:1:2, ’)’);
end
else
begin
{иначе вычисление действительных корней x1, x2}
x1:=(−b+sqrt(d))/2/a;
x2:=(−b−sqrt(d))/(2*a);
{и вывод их на экран.}
writeln ( ’Действительные_корни_уравнения_’ ,
a:1:2, ’x^2+’ ,b:1:2, ’x+’ ,c:1:2, ’=0’);
writeln (’X1=’ ,x1:1:2, ’X2=’ ,x2:1:2)
end end.

Подскажите как в Free Pascal написать знак плюс/минус ±???

Нет в примере этого знака. А вставить знак так: Shift-Ctrl-M, Выбираешь вкладку Unicode, там выбираешь множество Latin-1 Supplement, выбираешь этот знак и двойным кликом вставляешь.

Анна Бак, http://ru.wikipedia.org/wiki/Microsoft_Windows
Чуть дальше по тексту для других осей.

В виндовс прокатывает такой способ <Alt>+0177 (цифры набираются на боковой цифровой клавиатуре, в среде Лазарус)

Добавлено спустя 1 минуту 23 секунды:
hovadur, он там таки есть -- в комментарии

Лекс Айрин писал(а):В виндовс прокатывает такой способ <Alt>+0177 (цифры набираются на боковой цифровой клавиатуре, в среде Лазарус)

СПАСИБО ВАМ БОЛЬШОЕ!!!