Question

Помогите быстрее по информатике 9 класс найдите ошибки var a,b,c,D,x1,x2:real;beginwriteln('введите a,b,c');readln(a,b,c);if a=0 thn if b=0 then if c=0 then writeln('x любое')else writeln('нет решений')ele beginx1:=c/b;writeln('x=',x1:12:6);endelse begind:=bb-4ac;if d>0 then beginx1:=(-b-sqrt(D))/(2a);x2:=(-b+sqrt(D))/(2a);writeln('x1=',x1:12:6);writeln('x2=',x2:12:6);endelse if D=0 then bginx1:=-b/(2a);writeln('x=',x1:12:6);endelse write ln('нет решений,);end;readln;end.​

Answer 1

Ответ:

В 5 строчке надо было написать 'then', а написано 'thn'

В 7 строчке 'else' должно быть, а написано 'ele'

Строчка 'd:=bb-4ac' тоже неверная. Переменной bb не было, поэтому, кажется, должно быть b.

Там много ошибок, поэтому я немного подправила код. Но он всё равно не будет работать, потому что там используется конструкция if else неправильно (лучше ещё раз переписать код и как-то изменить эту конструкцию. там много else, а по правилам, к каждому if относится только одно else. Самостоятельно же else работать не может без if)

var a,b,c,D,x1,x2:real;

begin

writeln('введите a,b,c');

readln(a,b,c);

if a=0 then if b=0 then if c=0 then writeln('x любое')

else writeln('нет решений')

else begin

x1:=c/b;

writeln('x=',x1:12:6);

end;

else begin

d:=b-4ac;

if d>0 then begin

x1:=(-b-sqrt(D))/(2a);

x2:=(-b+sqrt(D))/(2a);

writeln('x1=',x1:12:6);

writeln('x2=',x2:12:6);

end;

else if D=0 then begin

x1:=-b/(2a);

writeln('x=',x1:12:6);

end;

else writeln('нет решений' );

end;

readln;

end.

Answer 2

The code you provided seems to have several errors. Let's go through them one by one:

1. The first error is in the line `thn` which should be `then`. 2. The second error is in the line `ele` which should be `else`. 3. The third error is in the line `begind` which should be `begin`. 4. The fourth error is in the line `2a` which should be `2*a`. 5. The fifth error is in the line `if+D=0+then+bgin` which should be `if D=0 then begin`. 6. The sixth error is in the line `write+ln('нет+решений,);` which should be `writeln('нет решений');`.

Here is the corrected code:

var
  a, b, c, D, x1, x2: real;
begin
  writeln('Введите a, b, c');
  readln(a, b, c);
  
  if a = 0 then
  begin
    if b = 0 then
    begin
      if c = 0 then
        writeln('x - любое')
      else
        writeln('нет решений');
    end
    else
    begin
      x1 := -c / b;
      writeln('x = ', x1:12:6);
    end;
  end
  else
  begin
    D := b * b - 4 * a * c;
    
    if D > 0 then
    begin
      x1 := (-b - sqrt(D)) / (2 * a);
      x2 := (-b + sqrt(D)) / (2 * a);
      writeln('x1 = ', x1:12:6);
      writeln('x2 = ', x2:12:6);
    end
    else if D = 0 then
    begin
      x1 := -b / (2 * a);
      writeln('x = ', x1:12:6);
    end
    else
      writeln('нет решений');
  end;
  
  readln;
end.

This corrected code should work properly and calculate the roots of a quadratic equation based on the values of `a`, `b`, and `c`.