在我的代码中找不到错误：“预期”

发布于 2025-01-02 20:02:03 字数 311 浏览 0 评论 0原文

当我运行代码时，它说存在语法错误，并给我标记了其他内容：致命：语法错误，;预期但发现了其他内容。（顺便说一句，这只是我的程序的一部分）任何人都可以告诉我我是什么做错了吗？

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

原文

When i'm running the code it says that there's an syntax error and it marks me the else: Fatal: Syntax Error, ;expected but ELSE found.(btw this is just one part from my program) can anyone tell me what am i doing wrong?

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

吃兔兔 2025-01-09 20:02:03

尝试

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   end
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

try

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   end
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

回复收藏 0 原文

合久必婚 2025-01-09 20:02:03

我相信您还需要一个 end; 标记，因为您有两个 if begin 语句

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   end
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

I believe you need one more end; tag as you have two if begin statements

If D>0 then
   begin
       x1:=(-b)+sqrt(D)/(2*a);
       x2:=(-b)-sqrt(D)/(2*a);
       Writeln(x1,x2);
   end
   else
      if D=0 then
   begin
       x:=(-b)/(2*a);
       Writeln(x);
   end;

回复收藏 0 原文

~没有更多了~