В чем дело? Ошибка 207 ошибочная операция с плавающей запятой - Turbo Pascal
Формулировка задачи:
Язык паскаль!
Помогите пожалуйста )
Листинг программы
- program pr1;
- uses crt;
- var ab,bc,cd,da,ac,a,b,c,p,s,z:real;
- procedure k;
- begin
- p:=(a+b+c)/2;
- s:=sqrt(p*(p-a)*(p-b)*(p-c));
- end;
- begin clrscr;
- writeln('wwedite ab,bc,cd,da');
- readln(ab,bc,cd,da);
- writeln('wwedite diagonal');
- readln(ac);
- a:=ab; b:=bc; c:=ac;
- k;
- z:=s; a:=cd; b:=da;
- k;
- s:=s+z;
- writeln('ploshad vipyklogo chetirohygolnika ravna',s:5:2);
- readln;
- end.
Решение задачи: «В чем дело? Ошибка 207 ошибочная операция с плавающей запятой»
textual
Листинг программы
- uses crt;
- var ab,bc,cd,da,ac,a,b,c,p,s,z:real;
- procedure k;
- begin
- p:=(a+b+c)/2;
- s:=sqrt(p*(p-a)*(p-b)*(p-c));
- end;
- begin
- clrscr;
- {ввод длин диагонали сторон выпуклого четырехугольника}
- repeat
- write('Введите длину диагонали ac=');
- readln(ac);
- until ac>0;
- repeat
- writeln('Введите длины первой пары смежных сторон,');
- writeln('так чтобы получился треугольник с диагональю и острыми углами при диагонали');
- readln(ab,bc);
- until(ab<ac)and(bc<ac)and(ab+bc>ac);
- repeat
- writeln('Введите длины второй пары смежных сторон,');
- writeln('так чтобы получился треугольник с диагональю и острыми углами при диагонали');
- readln(cd,da);
- until(cd<ac)and(da<ac)and(cd+da>ac);
- a:=ab; b:=bc; c:=ac;
- k;
- z:=s; a:=cd; b:=da;
- k;
- s:=s+z;
- writeln('Площадь данного выпуклого четырехугольника=',s:0:2);
- readln;
- end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая является стандартной для Turbo Pascal.
- Затем объявляются переменные ab, bc, cd, da, ac, a, b, c, p, s, z, которые представляют собой вещественные числа.
- Создается процедура k, которая выполняет вычисления внутри себя.
- Затем начинается основной цикл программы, который включает в себя ввод длины диагонали ac и длины первой пары смежных сторон ab и bc. Это необходимо для создания треугольника с диагональю и острыми углами при диагонали.
- После этого вводятся длины второй пары смежных сторон cd и da. Также проверяется, что сумма этих длин больше или равна ac.
- Далее переменные a, b и c присваиваются значениям ab, bc и ac соответственно.
- Вызывается процедура k дважды, чтобы вычислить площадь выпуклого четырехугольника.
- Затем выводится значение переменной s, которое представляет собой площадь выпуклого четырехугольника.
- Программа завершается, и пользователю предлагается ввести данные для расчета площади еще одного выпуклого четырехугольника.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д