Дополнительное  задание для 10-А класса.
(для Волкова К.)

Найти и исправить ошибки в программе.

Программа для вычисления площади выпуклого 4-угольника, заданного длинами его сторон и диагональю.
(используется п
роцедура без параметров)

program Prog;

var AB, BC, CD, DA, AC, S1, S2, S, a, b, c, p: real;
Procedure Ploshad1;
begin
p:=(a+b+c)*2;
s:=sqr(p*(p-a)*(p-b)*(p-c));
end.
begin
Writeln(‘Задайте стороны 4-х угольника ABCD и его диагональ AC’);
readln (AB, BC, CD, DA, AC);
a:=AB; b:=BC; c:=AD;
Ploshad1;
S1:=s;
a:=DA; b:=AC; c:=CD;
Ploshad1;
S2:=S1;
Writeln (‘Площадь ABCD= ‘, S1+S2:8:2);
readln;
end.

: 1 комментарий

  1. во-первых, код плохо читается, имена переменных и процедуры не совсем понятны, остается только догадываться. во-вторых, процедура не имеет параметров, используя вместо этого глобальные переменные — не слишком хорошо. кроме очевидных ошибок в синтаксисе, вероятно к ошибке следует отнести и сам алгоритм подсчета площади — как сумму треугольников? либо я чего-то недопонял..

Обсуждение закрыто.