Question

Program calklin; uses crt; var a,b,x : real; begin textcolor(red); gotoxy(10,5); write('Вас приветствует калькулятор, способный решать линейные уравнения'); gotoxy(10,6); write('Введите а='); readln(a); gotoxy(10,7); write('Введите b='); readln(b); gotoxy(10,8); if a=0 then begin gotoxy(10,9); textcolor(red); write('Нет корней') end else begin if a<>0 then begin gotoxy(10,10); textcolor(red); x:=(-b/a); write('Уравнение имеет корень и он равен: x =',x''); end; end; end. программа решения линейных уравнений в паскале абс, в чем у меня ошибка???

Answer 1

program calklin;

uses

 crt;

var

 a, b, x: real;

begin

 textcolor(red);

 gotoxy(10, 5);

 write('Вас приветствует калькулятор, способный решать линейные уравнения');

 gotoxy(10, 6);

 write('Введите а=');

 readln(a);

 gotoxy(10, 7);

 write('Введите b=');

 readln(b);

 gotoxy(10, 8);

 if a = 0

 then

 begin

   gotoxy(10, 9);

   textcolor(red);

   writeln('Нет корней')

 end

 else

 begin

   if a <> 0

   then

   begin

     gotoxy(10, 10);

     textcolor(red);

     x := (-b / a);

     writeln('Уравнение имеет корень и он равен: x =', x, '');

   end;

 end;

end.

Answer 2

It seems like you are trying to write a Pascal program to solve linear equations. I've spotted a few issues in your code:

1. Incorrect comparison operator: In Pascal, you should use "<>" for "not equal to" instead of "<>".
2. Syntax error in the write statement: There's a misplaced single quote after x in the write statement. It should be removed.

Here's the corrected version of your program:

pascalCopy code
Program calklin;
uses crt;

var
  a, b, x : real;

begin
  textcolor(red);
  gotoxy(10,5);
  write('Вас приветствует калькулятор, способный решать линейные уравнения');
  gotoxy(10,6);
  write('Введите a=');
  readln(a);
  gotoxy(10,7);
  write('Введите b=');
  readln(b);
  gotoxy(10,8);

  if a = 0 then 
  begin
    gotoxy(10,9);
    textcolor(red);
    write('Нет корней');
  end
  else
  begin
    if a <> 0  then 
    begin
      gotoxy(10,10);
      textcolor(red);
      x := (-b/a);
      write('Уравнение имеет корень и он равен: x = ', x);
    end;
  end;
  readln; // added to keep the output visible before the program exits
end.

With these changes, your Pascal program should work correctly and solve linear equations. Remember that this program only handles linear equations (equations of the form ax + b = 0) and does not cover other types of equations.