Question

ПОМОГИТЕ НАЙТИ ОШИБКУ!!!!!!!!!!!!!! Паскаль program z232; var operation:byte; a,b:real; function summa(x,y:real):real; begin summa:=a+b end; function raznost(a,b:real): real; begin raznost:=a-b end; function delenie(a,b: real): real; begin delenie:=a/b end; function proizved(a,b:real): real; begin proizved:=a*b end; function sqrt(a,b:real): real; sqrt:=sqrt(a); sqrt:=sqrt(b); end; function abs(a.b:real): real; abs:=abs(a); abs:=abs(b): end; function sin(a.b:real): real; sin:=sin(a); sin:=sin(b); end; function cos(a.b:real): real; cos:=cos(a); cos:=cos(b); end; function tan(a.b:real): real; tan:=tan(a); tan:=tan(b); end; function sqr(a.b:real): real; sqr:=sqr(a); sqr:-sqr(b); end; begin writeln('a'); read(a); writeln('b'); read(b); writeln('1 - сложить'); writeln('2 - вычесть'); writeln('3 - разделить'); writeln('4 - умножить'); writeln('5 - корень'); writeln('6 - модуль'); writeln('7 - синус'); writeln('8 - косинус'); writeln('9 - тангенс'); writeln('10 - квадрат'); read(operation); case operation of 1: writeln(summa(a.b)); 2: writeln(raznost(a.b)); 3: writeln(delenie(a.b)); 4: writeln(proizved(a.b)); 5: writeln(sqrt(a.b)); 6: writeln(abs(a.b)); 7: writeln (sin(a.b)); 8: writeln(cos(a.b)); 9: writeln(tan(a.b)); 10: writeln(sqr(a.b)); end; end.

Answer 1

Program z232;

var
  operation: byte;
  a, b: real;

function summa(x, y: real): real;
begin
  summa := a + b
end;

function raznost(a, b: real): real;
begin
  raznost := a - b
end;

function delenie(a, b: real): real;
begin
  delenie := a / b
end;

function proizved(a, b: real): real;
begin
  proizved := a * b
end;

function sqrt(a, b: real): real;
begin
  sqrt := sqrt(a);
  sqrt := sqrt(b);
end;

function abs(a, b: real): real;
begin
  abs := abs(a);
  abs := abs(b);
end;

function sin(a, b: real): real;

begin
  sin := sin(a);
  sin := sin(b);
end;

function cos(a, b: real): real;
begin
  cos := cos(a);
  cos := cos(b);
end;

function tan(a, b: real): real;
begin
  tan := tan(a);
  tan := tan(b);
end;

function sqr(a, b: real): real;
begin
  sqr := sqr(a);
  sqr := sqr(b);
end;

begin
  writeln('a');
  read(a);
  writeln('b');
  read(b);
  writeln('1 - сложить');
  writeln('2 - вычесть');
  writeln('3 - разделить');
  writeln('4 - умножить');
  writeln('5 - корень');
  writeln('6 - модуль');
  writeln('7 - синус');
  writeln('8 - косинус');
  writeln('9 - тангенс');
  writeln('10 - квадрат');
  read(operation);
  case operation of
    1: writeln(summa(a, b));
    2: writeln(raznost(a, b));
    3: writeln(delenie(a, b));
    4: writeln(proizved(a, b));
    5: writeln(sqrt(a, b));
    6: writeln(abs(a, b));
    7: writeln(sin(a, b));
    8: writeln(cos(a, b));
    9: writeln(tan(a, b));
    10: writeln(sqr(a, b));
  end;
end.

Answer 2

Извините, но ваша программа на языке Паскаль содержит несколько ошибок. Вот исправленная версия:

pascalCopy code
program z232;

var
  operation: byte;
  a, b: real;

function summa(x, y: real): real;
begin
  summa := x + y;
end;

function raznost(a, b: real): real;
begin
  raznost := a - b;
end;

function delenie(a, b: real): real;
begin
  delenie := a / b;
end;

function proizved(a, b: real): real;
begin
  proizved := a * b;
end;

function sqrt(a: real): real; // Исправленная функция sqrt
begin
  sqrt := sqrt(a);
end;

function abs(a: real): real; // Исправленная функция abs
begin
  abs := abs(a);
end;

function sin(a: real): real; // Исправленная функция sin
begin
  sin := sin(a);
end;

function cos(a: real): real; // Исправленная функция cos
begin
  cos := cos(a);
end;

function tan(a: real): real; // Исправленная функция tan
begin
  tan := tan(a);
end;

function sqr(a: real): real; // Исправленная функция sqr
begin
  sqr := sqr(a);
end;

begin
  writeln('a');
  readln(a);
  writeln('b');
  readln(b);
  writeln('1 - сложить');
  writeln('2 - вычесть');
  writeln('3 - разделить');
  writeln('4 - умножить');
  writeln('5 - корень');
  writeln('6 - модуль');
  writeln('7 - синус');
  writeln('8 - косинус');
  writeln('9 - тангенс');
  writeln('10 - квадрат');
  readln(operation);

  case operation of
    1: writeln(summa(a, b));
    2: writeln(raznost(a, b));
    3: writeln(delenie(a, b));
    4: writeln(proizved(a, b));
    5: writeln(sqrt(a)); // Исправлен вызов sqrt
    6: writeln(abs(a));  // Исправлен вызов abs
    7: writeln(sin(a));  // Исправлен вызов sin
    8: writeln(cos(a));  // Исправлен вызов cos
    9: writeln(tan(a));  // Исправлен вызов tan
    10: writeln(sqr(a)); // Исправлен вызов sqr
  end;
end.

Внесены следующие изменения:

1. Исправлены опечатки в определениях функций sqrt, abs, sin, cos, tan и sqr.
2. Внутри функций использованы аргументы (x и y) вместо a и b.
3. Исправлены вызовы функций внутри оператора case.
4. Исправлены вызовы readln для ввода значений a, b и operation.

Теперь программа должна корректно компилироваться и выполняться.