• где косяк помогите

    program i_2;
    const c=2; f=4;g=6;
    var r: real;
    begin
    writeln('определение площади треугольника по теореми Герона');
    write('нахождение площади');
    readln(r);
    r;sqrt(p(p-c)(p-f)(p-g));
    p;(c+f+g);2:
    end.

Ответы 1

  • В таком виде программа, хотя бы запустится:program i_2;const c=2; f=4; g=6;var r,p: real;beginwriteln('определение площади треугольника по теореми Герона');write('нахождение площади');readln(r);p:=(c+f+g)/2;r:=sqrt(p*(p-c)*(p-f)*(p-g))end.Но есть куча вопросов:1) Если c, f, g - стороны треугольника, то что такое - r ? 2) Если r - это площадь, то как мы можем её ввести, если мы хотим её сосчитать?3) Где вывод полученной информации (writeln(r))?4) Треугольника со сторонами c=2, f=4 и g=6 существовать не можетПредлагаю отказаться от экзотических обозначений и сделать проверку на существование треугольника, а также добавить получение данных по сторонам от пользователя:program i_2;var a,b,c,p,s: real;beginwriteln('Определение площади треугольника по теореме Герона');write('Введите стороны треугольника: ');readln(a,b,c);if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника стакими сторонами не существует')elsebeginp:=(a+b+c)/2;s:=sqrt(p*(p-a)*(p-b)*(p-c));writeln('Площадь треугольника равна ',s:0:3)endend.
    • Автор:

      mackd599
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years