Question

ВОПРОС НА 100 БАЛЛОВ var a,b,c,p:real; begin writeln('введите размеры треугольника a,b,c'); read(a,b,c); p:=a+b+c; if (a=b=c)then begin writeln('треугольник равносторонний'); writeln('периметр треугольника',p); end else writeln ('треугольник не равносторонний'); end. Ошибка Операция '=' не применима к типам boolean и real что делать?

Answer 1

Если Вашу программу исправить, это так будет выглядеть:
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.

А если написать самостоятельно, я бы сделал так:
var
  a,b,c:real;
begin
  Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
  if (a=b) and (a=c) then
    Writeln('Треугольник равносторонний с периметром ',3*a)
  else Writeln ('Треугольник не равносторонний')
end.

Answer 2

Ошибка, которую вы видите, связана с тем, что операция '=' в вашем условии if используется для сравнения переменных a, b и c, которые имеют тип real, с константой boolean (a=b=c). В Pascal оператор сравнения для числовых типов данных идентифицирует равенство, а для булевых типов данных - проверку истинности.

Чтобы исправить эту ошибку, вам нужно изменить условие сравнения. Если вы хотите проверить, что все три стороны треугольника равны, вы можете использовать логический оператор 'and':

if (a = b) and (b = c) then
begin
  writeln('треугольник равносторонний');
  writeln('периметр треугольника', p);
end
else
  writeln('треугольник не равносторонний');

В этом случае оператор '=' используется для сравнения переменных типа real между собой, и результат сравнения обрабатывается логическим оператором 'and'.