Задать вопрос
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.

+2
Ответы (1)
  1. 27 апреля, 20:44
    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 ('определение площади треугольника по теореми Герона') ; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Где здесь ошибка program n_11; var a, b, c:Real; var d:Real; var x, x1, x2:Real; begin WriteLn ('Расширение квадратного уровнения') ; Write ('Введите коофиценты a, b, c >>') ; ReadLn (a, b, c,) ; d:=b*b-4*a*c;
Ответы (1)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.
Ответы (1)
Почему выводится ноль в программе? program pr1; var a: real; n: longint; function power (a:real; n:longint) : real; begin var i: integer; var anew: real; anew:=a; for i: = 2 to n do begin a:=a*anew; end; end; begin readln (a, n) ;
Ответы (1)
Что я неправильно написал? var a, b, c, d: real; begin writeln (' введи число a') ; readln (a) ; writeln ('введи число b') ; readln (b) ; writeln ('введи число c') ; readln (c) ; d:=a; a:=c; writeln (a) ; c:=b; writeln (c) ; b:=d; writeln (b) ; end.
Ответы (1)