27 апреля, 18:44

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

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
Ответы (1)
  1. 27 апреля, 20:22
    0
    В таком виде программа, хотя бы запустится:

    program i_2;

    const c=2; f=4; g=6;

    var r, p: real;

    begin

    writeln ('определение площади треугольника по теореми Герона') ;

    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;

    begin

    writeln ('Определение площади треугольника по теореме Герона') ;

    write ('Введите стороны треугольника: ') ;

    readln (a, b, c) ;

    if (a + b < = c) or (b + c < = a) or (a + c < = b) then writeln ('Треугольника с

    такими сторонами не существует')

    else

    begin

    p: = (a+b+c) / 2;

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

    writeln ('Площадь треугольника равна ', s:0:3)

    end

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Где косяк помогите program i_2; const c=2; f=4; g=6; var r: real; begin writeln ('определение площади треугольника по теореми Герона') ; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы