0

まず、私はプログラミングが初めてで、パスカルの学習を始めたばかりです。エラー 85 が発生しました: ";" 期待される。全体を何度も検索しましたが、問題を見つけることができませんでした。助言がありますか？

コードは次のとおりです。

program test;
var
  a,b,c:real;
begin
  D:=sqr(b)-4*a*c;
  writeln('Enter a value for a');
  readln(a);
  writeln('Enter a value for b');
  readln(b);
  writeln('Enter a value for c');
  readln(c);
  if ( D<0 ) then
  begin
    writeln('There is no solution.');
  else
  if ( D>0 ) then
  begin
    x1:=(-b+sqrt(D))/2*a;
    x2:=(-b-sqrt(D))/2*a;
    writeln('x1 is:');
    writeln('x1:=',x1);
    writeln(x2 is:);
    writeln('x2:=',x2);
  end;
end.
4

2 に答える 2

3

ステートメントは 3 つbeginあり、2 つしかありません。endコードをインデントすると、間違いに気付くでしょう。変数 D、X1、および X2 も未定義です。出力に他の構文エラーがあります。つまり、ステートメントの末尾近くに'目盛りがありません。writeln

于 2014-03-05T19:43:07.080 に答える