Pascal ABC. Встречено '=', а ожидалось ';'

Question

program PR3;
const a=1.5; p=3.14;
var a,x,y: real;
begin
  writeln('Введите x: ');
  read(x);
    if x<1.3 then
    begin
     y=p*sqr(x)-7/sqr(x); {Здесь ошибка}
     writeln('y= ', y);
      if x=1.3 then 
      begin
       y=a*exp(ln(X)*3)+7sqrt(x); {здесь так же пишет ошибку}
       writeln('y= ');
        if x>1.3 then 
        begin
         y=log(x+7*sqrt(x); {здесь так же если убрать предыдущие}
         writeln('y= ');
      end;
    end;
  end;
end.

Выдаёт ошибку Встречено '=', а ожидалось ';' при каждом "="

Answer 1

if SameValue(x, 1.3) then 
begin
  ...
end
else if x < 1.3 then
begin
  y := p * sqr(x) - 7 / sqr(x);
  writeln('y= ', y);
end
else if x > 1.3 then
begin
  ...
end;

БЛОГ НА HUSL

Pascal ABC. Встречено '=', а ожидалось ';'

Ответы (1 шт):