В чем дело? Ошибка 207 ошибочная операция с плавающей запятой - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Язык паскаль! Помогите пожалуйста )
Листинг программы
  1. program pr1;
  2. uses crt;
  3. var ab,bc,cd,da,ac,a,b,c,p,s,z:real;
  4. procedure k;
  5. begin
  6. p:=(a+b+c)/2;
  7. s:=sqrt(p*(p-a)*(p-b)*(p-c));
  8. end;
  9. begin clrscr;
  10. writeln('wwedite ab,bc,cd,da');
  11. readln(ab,bc,cd,da);
  12. writeln('wwedite diagonal');
  13. readln(ac);
  14. a:=ab; b:=bc; c:=ac;
  15. k;
  16. z:=s; a:=cd; b:=da;
  17. k;
  18. s:=s+z;
  19. writeln('ploshad vipyklogo chetirohygolnika ravna',s:5:2);
  20. readln;
  21. end.

Решение задачи: «В чем дело? Ошибка 207 ошибочная операция с плавающей запятой»

textual
Листинг программы
  1. uses crt;
  2. var ab,bc,cd,da,ac,a,b,c,p,s,z:real;
  3. procedure k;
  4. begin
  5. p:=(a+b+c)/2;
  6. s:=sqrt(p*(p-a)*(p-b)*(p-c));
  7. end;
  8.  
  9. begin
  10. clrscr;
  11. {ввод длин диагонали сторон выпуклого четырехугольника}
  12. repeat
  13. write('Введите длину диагонали ac=');
  14. readln(ac);
  15. until ac>0;
  16. repeat
  17. writeln('Введите длины первой пары смежных сторон,');
  18. writeln('так чтобы получился треугольник с диагональю и острыми углами при диагонали');
  19. readln(ab,bc);
  20. until(ab<ac)and(bc<ac)and(ab+bc>ac);
  21. repeat
  22. writeln('Введите длины второй пары смежных сторон,');
  23. writeln('так чтобы получился треугольник с диагональю и острыми углами при диагонали');
  24. readln(cd,da);
  25. until(cd<ac)and(da<ac)and(cd+da>ac);
  26. a:=ab; b:=bc; c:=ac;
  27. k;
  28. z:=s; a:=cd; b:=da;
  29. k;
  30. s:=s+z;
  31. writeln('Площадь данного выпуклого четырехугольника=',s:0:2);
  32. readln;
  33. end.

Объяснение кода листинга программы

  1. В начале кода подключается библиотека crt, которая является стандартной для Turbo Pascal.
  2. Затем объявляются переменные ab, bc, cd, da, ac, a, b, c, p, s, z, которые представляют собой вещественные числа.
  3. Создается процедура k, которая выполняет вычисления внутри себя.
  4. Затем начинается основной цикл программы, который включает в себя ввод длины диагонали ac и длины первой пары смежных сторон ab и bc. Это необходимо для создания треугольника с диагональю и острыми углами при диагонали.
  5. После этого вводятся длины второй пары смежных сторон cd и da. Также проверяется, что сумма этих длин больше или равна ac.
  6. Далее переменные a, b и c присваиваются значениям ab, bc и ac соответственно.
  7. Вызывается процедура k дважды, чтобы вычислить площадь выпуклого четырехугольника.
  8. Затем выводится значение переменной s, которое представляет собой площадь выпуклого четырехугольника.
  9. Программа завершается, и пользователю предлагается ввести данные для расчета площади еще одного выпуклого четырехугольника.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.429 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы