0
program Lab1s2;
var   Fa,Fc,a,b: real;
      f: text;
      eps:=exp(ln(10) * (-4));
      begin;
   a:=1;
   b:=2;
   x:=a;
   Fa:=exp(ln(x) * 4)-13*exp(ln(x) * 2)+(36/x);
while b-a>=2*eps do;
   c:=(a+b)/2;
   x:=c;
   Fc:=exp(ln(x) * 4)-13*exp(ln(x) * 2)+(36/x);
   if (Fa*Fc=0) then c:=a;
    else c:=b;
   c:=(a+b)/2;
procedure Write(f, 'C:\TEXT.txt'; c);
end. 

Пишет Program1.pas(15) : Встречено 'else', а ожидался оператор. Я не могу понять в чем проблема, и как это исправить. Я только начал учиться писать на языке Pascal, раньше писал на Fortran. Как это исправить?

9
  • 2
    Это разве Pascal? В Pascal нет end if, end do(вместо этого только begin end). Это немного другой язык. 11 мар 2018 в 13:17
  • 1
    Это не моя инициатива, университет требует. У нас на Украине вообще система образования устаревшая. Ну кому взбредет в голову что учить не то что паскаль, FORTRAN - хорошая идея.
    – Lucky
    11 мар 2018 в 13:32
  • 2
    @BogdanBida, паскаль лет 20 уже хоронят, а он все живет и живет
    – Grundy
    11 мар 2018 в 13:33
  • 1
    @Lucky Ну.. я тоже с Украины, Харьков, мы же учим с++, python, c#, java, и.т.д.
    – BogdanBida
    11 мар 2018 в 13:35
  • 2
    Как бы это выразиться... Язык - он, ну, как машина, что ли. Сел и поехал. Если не знаешь ПДД, то толку от того, насколько круто ты водишь? Главное - куда ехать, а не на чем :) Да и переучиться с одной машины на другую - не так сложно...
    – Harry
    11 мар 2018 в 13:40

2 ответа 2

3

Это далеко не единственная ошибка у вас...

program Lab1s2;
var   x, Fa,Fc,a,b,c: real;
      f: text;
      eps: real; 
begin;
   eps := 1e-4;
   a:=1;
   b:=2;
   x:=a;
   Fa:=exp(ln(x) * 4)-13*exp(ln(x) * 2)+(36/x);
   while b-a>=2*eps do
   begin
       c:=(a+b)/2;
       x:=c;
       Fc:=exp(ln(x) * 4)-13*exp(ln(x) * 2)+(36/x);
       if (Fa*Fc >= 0) then a:=c else b:=c;
   end;
   Assign(f,'C:\TEXT.txt');
   Rewrite(f);
   Write(f, c);
   Close(f);
   Writeln(c);
end. 

Примерно так. Сами посмотрите, где отличия. И учтите, что в корень диска C: у вас может не хватить прав писать.

Да, и все-таки пишите лучше x*x вместо exp(ln(x) * 2) - оно и проще, и быстрее, и область определения пошире :)

14
  • Спасибо огромное. Это моя первая программа на данном языке.
    – Lucky
    11 мар 2018 в 13:43
  • Я ожидал что ошибок будет дофига
    – Lucky
    11 мар 2018 в 13:43
  • я там поменял уже. if (Fa*Fc=0) then c:=a else c:=b
    – Lucky
    11 мар 2018 в 13:44
  • См. ideone.com/NonYyx - там все же нужно >= 0
    – Harry
    11 мар 2018 в 13:46
  • ideone.com/NonYyx - я там причесал немного, посмотрите...
    – Harry
    11 мар 2018 в 13:52
2

Согласно синтаксису языка, в конструкции if .. then .. else .., перед else в строчке a:=c; не должно быть точки с запятой.

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.