Question

найдите ошибку.. она не работает(( program PLОСНАD; var А,В,С:real; D:real; Р:real; S:real; begin writeln('Задайте стороны A,В,С:'); read(А,В,С); Р:=(А + В + С)/2; D:=A; if D<B then D:=B; if D<C then D:=C; if P>D then begin S:=SQRT(P*(P-A)*(P-B)*(P-C)); writeln ('ПЛОЩАДЬ:',S) end else writeln (A,B,С, '- не являются сторонами треугольника'); end.

Answer 1

ты елсе пропустила в первом, когда начала второй запрос делать ну и в третьем что то пропустила)) и енд в 3 с конца без точки запятой))

Answer 2

program PLOCHAD;

var A,B,C:real;
D:real;
P:real;
S:real;
begin
writeln('Задайте стороны A,B,C:');
read(A,B,C);
P:=(A + B + C)/2;
D:=A;
if D<B then D:=B;
if D<C then D:=C;
if P>D
then
begin
S:=SQRT(P*(P-A)*(P-B)*(P-C));
writeln ('ПЛОЩАДЬ:',S)
end
else writeln (A,B,C, '- не являются сторонами треугольника');
end.

Не работало из-за того, что ты написала везде A,B,C русскими буквами. Я их просто заменил на английские и заработало.

 

Answer 3

Ваш код на языке Pascal содержит несколько ошибок. Вот подробное объяснение:

Ошибка 1: Неправильное название программы

В строке `program PLОСНАD;` вы используете неправильное название программы. В Pascal название программы должно начинаться с буквы и содержать только буквы, цифры и знак подчеркивания. Рекомендуется изменить название программы на что-то более осмысленное, например, `program TriangleArea;`.

Ошибка 2: Неправильное использование оператора "read"

В строке `read(А,В,С);` вы неправильно используете оператор "read". В Pascal, оператор "read" используется для чтения значений из стандартного ввода, но в данном случае вам нужно принять значения аргументов командной строки. Рекомендуется использовать аргументы командной строки вместо оператора "read".

Ошибка 3: Использование неправильного оператора сравнения

В строке `if D

Ошибка 4: Неправильное использование переменной "P"

В строке `if P>D then begin S:=SQRT(P*(P-A)*(P-B)*(P-C));` вы используете неправильную переменную "P". В начале программы вы объявили переменную "Р" (русская буква "Р"), а не "P" (латинская буква "P"). Рекомендуется заменить "P" на "Р" во всем коде.

Ошибка 5: Неправильное использование оператора "writeln"

В строке `writeln ('ПЛОЩАДЬ:',S)` и `writeln (A,B,С,'- не являются сторонами треугольника')` вы неправильно используете оператор "writeln". В Pascal, оператор "writeln" требует, чтобы каждый аргумент был отделен запятой. Рекомендуется добавить запятые между аргументами.

Ошибка 6: Неправильное использование оператора "begin" и "end"

В вашем коде отсутствуют операторы "begin" и "end" для определения границы блока кода внутри оператора "if". Рекомендуется добавить операторы "begin" и "end" вокруг блока кода внутри каждого оператора "if".

Исправленный код выглядит следующим образом:

program TriangleArea;

var
  A, B, C: real;
  D, Р, S: real;

begin
  writeln('Задайте стороны A, В, С:');
  readln(A, B, C);
  Р := (A + B + C) / 2;
  D := A;
  if D < B then
    D := B;
  if D < C then
    D := C;
  if Р > D then
  begin
    S := sqrt(Р * (Р - A) * (Р - B) * (Р - C));
    writeln('ПЛОЩАДЬ:', S);
  end
  else
    writeln(A, ', ', B, ', ', C, ' - не являются сторонами треугольника');
end.

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