Question

ДАЮ 30 БАЛЛОВ Выдает такую ошибку , в чем проблема?? source.pas(13,11) Fatal: Syntax error, ")" expected but "(" found Program P1; var a, b, c:integer; s, p:real; Begin write('введите координату a='); readln(a); write('введите координату b='); readln(b); write('введите координату c='); readln(c); P :=(a+b+c)/2; writeln('периметр треугольника =',P:2:2); s :=sqrt(p(p-a)*(p-b)*(p-c)); writeln('площадь треугольника =',s:2:2); end.

Answer 1

Опять двадцать пять.

program P1;

var

a, b, c, p: integer;

pp, s: real;

begin

write('Введите сторону a = ');

readln(a);

write('Введите сторону b = ');

readln(b);

write('Введите сторону c = ');

readln(c);

p := a + b + c;

writeln('Периметр треугольника P = ', p);

pp := p / 2;

s := sqrt(pp * (pp - a) * (pp - b) * (pp - c));

writeln('Площадь треугольника S = ', s);

end.

Конкретно в этом примере не поставили умножение после полупериметра(!) в корне.

Answer 2

В вашем коде есть несколько ошибок. Вот исправленный вариант:

pascalCopy code
Program P1;
var
  a, b, c: integer;
  s, p: real;

Begin
  write('введите координату a=');
  readln(a);
  write('введите координату b=');
  readln(b);
  write('введите координату c=');
  readln(c);
  
  P := (a + b + c) / 2;
  writeln('периметр треугольника =', P:2:2);
  
  s := sqrt(p * (p - a) * (p - b) * (p - c));  // Исправлено: заменено p(p-a) на p * (p - a)
  writeln('площадь треугольника =', s:2:2);
end.

Изменения:

1. Заменил p(p-a) на p * (p - a) в формуле для вычисления площади треугольника.
2. Добавил пробелы вокруг операторов для улучшения читаемости кода.

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