1

Тема: Допоможіть знайти помилку в коді

Написав код программи, для обчислення системи рівнянь з умовою(фото прикріплено)
Ось що зробив,потрібне повне розгалуження(сподіваюсь це воно). Знаходить помилку в 14 стрічці " Встречено 'else', а ожидался оператор".

program rrr;
var a,x,y : real;
Begin
writeln(' Введіть змінні "a" та "x" ');
realn(a,x);
 if x>0 then begin
  if x<1.3 then begin
  y:=x*x-(7/x*x);
  end
  else begin
   if x=1.3 then begin
   y:=a*x+7*(sqrt(x));
   end
   else begin
    y:=ln(x+9*(sqrt(x)));
    end;
  else begin
  writeln('Недопустиме значення змінної "х" ');
  end;
 writeln(y);
 end.
Post's attachments

IMG_20140321_215651.jpg 348.15 kb, 253 downloads since 2014-03-21 

2

Re: Допоможіть знайти помилку в коді

Пробачаюсь,помилка в стрічці 17

3

Re: Допоможіть знайти помилку в коді

В 16 рядку приберіть крапку з комою.

4

Re: Допоможіть знайти помилку в коді

koala написав:

В 16 рядку приберіть крапку з комою.

Не допомогло

5

Re: Допоможіть знайти помилку в коді

Трохи статистики: у вашій програмі 7 begin і 5 end. Наведіть елементарний лад, ок?

Подякували: magnevitis1

6

Re: Допоможіть знайти помилку в коді

magnevitis
Ось ваш код, але з нормально розставленими відступами:

program rrr;
var
  a,x,y: real;
Begin
  writeln(' Введіть змінні "a" та "x" ');
  realn(a,x);
  if x>0 then 
  begin
    if x<1.3 then
    begin
      y:=x*x-(7/x*x);
    end
    else 
    begin
      if x=1.3 then
      begin
        y:=a*x+7*(sqrt(x));
      end
      else 
      begin
        y:=ln(x+9*(sqrt(x)));
      end
      else
      begin
        writeln('Недопустиме значення змінної "х" ');
      end;
      writeln(y);
    end.

Думаю тепер ви й самі бачите свою помилку.

Подякували: magnevitis, koala2

7

Re: Допоможіть знайти помилку в коді

koala написав:

Трохи статистики: у вашій програмі 7 begin і 5 end. Наведіть елементарний лад, ок?

Дякую,знайшов помилки